Lấy cảm hứng từ Codewars Kata .

Mục tiêu của bạn là lấy một chuỗi đầu vào như chuỗi này:

"'Twas a dark and stormy night..."

và trả về một chuỗi chứa vị trí của từng ký tự trong bảng chữ cái, được phân tách bằng khoảng trắng và bỏ qua các ký tự không theo thứ tự chữ cái, như sau:

"20 23 1 19 1 4 1 18 11 1 14 4 19 20 15 18 13 25 14 9 7 8 20"

Đối với một thử thách bổ sung, bạn có thể thay thế bất kỳ ký tự số nào trong chuỗi gốc bằng chính chúng + 27. Ví dụ: "25"sẽ trở thành "29, 32". Điều này là hoàn toàn tùy chọn.

Bạn phải sử dụng 1-indexing ( 'a'==1, 'b'==2, vv)

Quy tắc bổ sung:

• Bạn phải trả về một chuỗi, không phải là một mảng.

• Trailing khoảng trắng là OK.

Người chiến thắng có số byte thấp nhất.

Chúc may mắn!

05AB1E , (5?) 7 byte

^{Hai byte ngoài cùng bên phải là định dạng đầu ra}

áÇ32%ðý

Một cổng của câu trả lời Jelly của tôi , nhưng O5AB1E thì ngắn gọn hơn cho việc lọc bảng chữ cái.

Hãy thử trực tuyến!

Làm sao?

áÇ32%ðý - take input implicitly
á       - filter keep alphabetical characters
 Ç      - to ordinals
  32    - thirty-two
    %   - modulo (vectorises)
     ð  - push a space character
      ý - join

Java 8, 82 78 72 69 62 byte

s->{for(int c:s)System.out.print(c>64&~-c%32<26?c%32+" ":"");}

-13 byte nhờ @ OlivierGrégoire .

Hãy thử trực tuyến.

Giải trình:

s->                    // Method with character-array parameter and no return-type
  for(int c:s)         //  Loop over its characters as integers
    System.out.print(  //   Print:
     c>64&~-c%32<26?   //    If the current character is a letter:
      c%32+" "         //     Print the position in the alphabet with a trailing space
     :                 //    Else:
      "");}            //     Print nothing

Python 3 , 62 60 49 byte

-5 byte nhờ Jo King .
-8 byte nhờ pLOPeGG .

Sau những cải tiến này, câu trả lời này giờ giống với câu trả lời của Jonathan Allan .

print(*[ord(c)%32for c in input()if c.isalpha()])

Hãy thử trực tuyến!

R , 55 50 byte

cat(utf8ToInt(gsub("[^A-Za-z]","",scan(,"")))%%32)

Hãy thử trực tuyến!

Đọc đầu vào từ stdin, chuyển đổi thành chữ hoa, loại bỏ các chữ cái không chữ hoa , chuyển đổi thành các điểm mã, trừ 64 mod bằng 32 và in thành stdout, cách nhau bởi khoảng trắng.

Cảm ơn Kevin Cruijssen cho golf!

APL (Dyalog Unicode) , 24, 20, 14 13 byte

-4 byte nhờ Zacharý (và ông Xcoder)!

-6 byte nhờ Adám!

-1 byte nhờ ngn!

⎕A⍳⎕A∩⍨≡819⌶⊢

Hãy thử trực tuyến!

Giải trình:

        ≡819⌶⊢  - to uppercase
   ⎕A∩⍨         - intersect with the letters A-Z (args swapped to preserve the order)
   ⍳              - index in
⎕A               - the A-Z letters list

Giải pháp ban đầu của tôi:

APL (Dyalog Unicode) , 24 20 byte

{⍵/⍨27>⍵}⎕A⍳1(819⌶)⊢

Hãy thử trực tuyến!

Giải trình:

             ⍳           indices of     
              1(819⌶)⊢  the right argument (⊢) changed to uppercase
          ⎕A            in the list of uppercase letters
{⍵/⍨     }              copy (filter) those items from the list of indeces
     27>⍵               which are smaller than 27 (all non A-Z chars will have index 27)

Đừng cười tôi, tôi mới đến APL :)

Python 2 , (45?) 55 byte

^{11 byte được thêm vào để định dạng đầu ra, điều này cũng làm cho điều này không tương thích với Python 3)}

lambda s:' '.join(`ord(c)%32`for c in s if c.isalpha())

Một cổng khác của câu trả lời Jelly của tôi.

Hãy thử trực tuyến!

Phiên bản không được định dạng (trả về danh sách các số nguyên):

lambda s:[ord(c)%32for c in s if c.isalpha()]

JavaScript (Node.js) , 69 55 54 byte

t=>t.match(/[a-z]/gi).map(i=>parseInt(i,36)-9).join` `

Hãy thử trực tuyến!

Giải trình :

t =>                       // lambda function accepting a string as input
    t.match(/a-z/gi).      // returns all parts of string that match as an array 
        map(i=>            // map over that array with argument i 
            parseInt(i,36) // convert to base 36 
                - 9        // and subtract 9 from it
        ).                 // end map
        join` `            // convert to space separated string

11 byte được lưu nhờ @Kevin

Thêm 1 byte nhờ @Neil

Bạn có thể thêm hỗ trợ cho số cho một số byte bổ sung (nhờ @neil)

JavaScript (Node.js) , 62 byte

t=>t.match(/[^_\W]/g).map(i=>(parseInt(i,36)+26)%36+1).join` `

Hãy thử trực tuyến!

Jelly , (7?) 8 byte

^{Byte ngoài cùng bên phải là định dạng đầu ra}

fØẠO%32K

Một chương trình đầy đủ chấp nhận một chuỗi ở định dạng Python in kết quả thành STDOUT

Hãy thử trực tuyến!

Làm sao?

fØẠO%32K - Main Link: list of characters (created from the string input)
 ØẠ      - yield the alphabet = ['A','B',...,'Z','a','b',...,'z']
f        - filter keep (discard non alphabet characters)
   O     - ordinals          ('A':65, 'Z':90, 'a':97, 'z':122, etc.)
     32  - literal thirty-two
    %    - modulo            (65:1,   90':26,  97:1,  122:26,  etc.)
       K - join with spaces (makes a list of characters and integers)
         - implicit print

Japt v2.0a0 -S, 12 10 byte

r\L ¨c uH

Thử nó

Giải trình

r              :Remove
 \L            :  Non-letter characters
    ¬          :Split to array
     ®         :Map
      c        :  Character code
        u      :  Modulo
         H     :  32
               :Implicitly join with spaces and output

op86 x86, 35 byte

0080h: AC 3C 24 75 04 88 45 FF C3 0C 20 2C 60 76 F1 D4
0090h: 0A 0D 30 30 86 E0 3C 30 74 01 AA 86 E0 AA B0 20
00a0h: AA EB DD                                       

f:  lodsb
    cmp al, '$'
    jnz @f
        mov [di-1], al
        ret
    @@:
    or al, 32
    sub al, 96
    jbe f
    aam
    or ax, 3030H
    xchg ah, al
    cmp al, 48
    jz @f
        stosb
    @@:
    xchg ah, al
    stosb
    mov al, 32
    stosb
    jmp f

Giả sử kết quả chứa ít nhất một chữ cái và không {|}~

40 byte, cho phép tất cả các ký tự ASCII

0080h: AC 3C 24 75 04 88 45 FF C3 0C 20 2C 60 76 F1 3C
0090h: 1A 77 ED D4 0A 0D 30 30 86 E0 3C 30 74 01 AA 86
00a0h: E0 AA B0 20 AA EB D9                           

Stax , 9 10 9 byte

üpÉÿ%}},√

Chạy và gỡ lỗi nó

-1 byte nhờ @recursive

Giải trình:

v{VaIvm0-J Full program, unpacked, implicit input
v          Lowercase
 {    m    Map:
  VaI        Index in lowercase alphabet (0-based, -1 for not found)
     ^       Increment
       0-  Remove zeroes
         J Join by space
           Implicit output

Stax , 7 byte

É▌Xl»↔"

Chạy và gỡ lỗi nó

Điều này đầu ra phân tách dòng mới. Giải nén : vmVaI^|c. Tương tự, nhưng với bản đồ, mà đầu ra ngầm với dòng mới.

Khoảng trắng , 152 117 byte

-35 byte nhờ @Lynn .

[N
S S N
_Create_Label_LOOP][S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   S _Read_STDIN_as_character][T   T   T   _Retrieve][S N
S _Duplicate_input][S S S T S S S S S N
_Push_32][T S T T   _Modulo][S N
T   _Swap_top_two][S S S T  T   T   T   T   T   N
_Push_63][T S T S _Integer_divide][T    S S N
_Multiply][S N
S _Duplicate][S S S T   T   S T T   N
_Push_27][S T   S S T   N
_Copy_1st][S S S T  N
_Push_1][T  S S S _Add][T   S T S _Integer_divide][T    S S N
_Mulitply][N
T   S N
_If_0_Jump_to_Label_LOOP][T N
S T _Print_as_number][S S S T   S S S S S N
_Push_32_space][T   N
S S _Print_as_character][N
S N
N
_Jump_to_Label_LOOP]

Chữ cái S(dấu cách), T(tab) và N(dòng mới) được thêm vào dưới dạng chỉ tô sáng.
[..._some_action]chỉ thêm vào giải thích.

Dùng thử trực tuyến (chỉ có khoảng trắng, tab và dòng mới).

Giải thích bằng mã giả:

Start LOOP:
  Character c = STDIN as character
  Integer n = (c modulo-32) * (c integer-divided by 63)
  Integer m = 27 integer-divided by (n + 1) * n;
  If(m == 0):
    Go to next iteration of LOOP
  Else:
    Print n as integer to STDOUT
    Print a space to STDOUT
    Go to next iteration of LOOP

05AB1E , 8 byte

láÇ96-ðý

Hãy thử trực tuyến!

hoặc, nếu chúng ta có thể trả về một mảng:

05AB1E , 6 byte

láÇ96-

Giải trình:

l         Lowercase
 á        Only letters
  Ç       Codepoints
   96-    Subtract 96.

Hãy thử trực tuyến!

hoặc nếu bạn muốn nó đếm số:

05AB1E , 13 byte

lAžh«DŠÃSk>ðý

Hãy thử trực tuyến!

05AB1E , 14 byte

Số xử lý là tốt

žKÃlvžKlÙyk>ðJ

Hãy thử trực tuyến!

Than , 21 byte

≔⁺β⭆χιβＦ↧Ｓ¿№βι«Ｉ⊕⌕βι→

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

≔⁺β⭆χιβ

Nối các chữ số vào biến chữ thường được xác định trước.

Ｆ↧Ｓ

Vòng lặp trên đầu vào hạ cấp.

¿№βι«

Nếu ký tự hiện tại là một chữ cái hoặc chữ số,

Ｉ⊕⌕βι

in chỉ mục 1 chỉ mục của nó,

→

và để lại một khoảng trống cho giá trị tiếp theo.

Màu đỏ , 93 byte

func[s][a: charset[#"a"-#"z"]parse lowercase s[any[copy c a(prin[-96 + to-char c""])| skip]]]

Hãy thử trực tuyến!

Perl 5 , 47 byte

Với thách thức bổ sung về phân tích cú pháp chữ số:

print map{(ord(uc)-64)%43," "}<>=~/([A-Z\d])/gi

Hãy thử trực tuyến!

Giảm xuống 38 byte bằng cách bỏ qua các chữ số

print map{ord()%32," "}<>=~/([A-Z])/gi

PHP , 70 byte

for(;$c=$argv[1][$i++];)if(($c=ord($c))>64&($c%=32)>0&$c<27)echo"$c ";

Hãy thử trực tuyến!

-5 byte nhờ Kevin

Perl 5 -p , 35 byte

$_="@{[map{(-64+ord uc)%43}/\w/g]}"

Hãy thử trực tuyến!

Bao gồm phần thêm về các chữ số.

Japt 2.0 -S, 9 byte

f\l ®c %H

Chạy nó trực tuyến

Giải trình:

f\l ®c %H                                    Input: "Hello..."
f            Match:
 \l             [A-Za-z]                     ["H","e","l","l","o"]
    ®        Map Z over the results:
     c         char-code of Z                [72,101,108,108,111]
       %H      mod 32                        [8,5,12,12,15]
-S           Join the chars with a space     8 5 12 12 15

Perl 6 , 32 byte (alpha), 41 byte (chữ số alpha +)

{~(.uc.comb(/<:L>/)».ord X-64)}

Hãy thử nó (32 byte alpha)

{~((.uc.comb(/<:L+:N>/)».ord X-64)X%43)}

Hãy thử nó (41 byte alpha + chữ số)

Mở rộng:

32 byte alpha

{  # bare block lambda with implicit parameter $_

  ~( # coerce to string (space separated)

      .uc                      # uppercase
      .comb( / <:L > / )\      # get letters as a sequence
      ».ord                    # get the ordinal of each
      X- 64                    # subtract 64 from each
  )
}

41 byte alpha + chữ số

{  # bare block lambda with implicit parameter $_

  ~( # coerce to string (space separated)
    (
      .uc                      # uppercase
      .comb( / <:L + :N > / )\ # get letters and numbers as a sequence
      ».ord                    # get the ordinal of each
      X- 64                    # subtract 64 from each
    ) X% 43                    # modulus 43 for each
  )
}

Tcl , 93 byte

puts [lmap c [split $argv ""] {if [string is alp $c] {expr ([scan $c %c]-64)%32} {continue}}]

Hãy thử trực tuyến!

PHP 108 105 byte

Dùng thử trực tuyến (108 byte)

Tri nó trực tuyến (105 byte)

-3 Byte, nhờ @manassehkatz (Thay đổi cấp độ của strtolower và xóa AZ khỏi regex)

Mã, đã cố gắng tránh bất kỳ vòng lặp

<?=strtr(implode(" ",str_split(preg_replace(
"/[^a-z]/",'',strtolower($argv)))),array_flip(range("`",z)));

Giải trình

$string = preg_replace("/[^a-z]/",'',strtolower($argv))  
//the string only contains letters

$string = implode(" ",str_split($string)); 
//the string has a space after every letter

$string = strtr($string, array_flip(range("`",z)));  
//replace every letter   acording to the array

$replacementArray = array_flip(range("`",z));
//this array contains the ansi characters from "`" to the "z"
//array_flip to change the keys with the values
//final array ["`"=>0,"a"=>1, "b"=>2...."z"=>26]

Python 3 , 84 byte

print(*filter(int,['abcdefghijklmnopqrstuvwxyz'.find(c)+1for c in input().lower()]))

Hãy thử trực tuyến!

Python 2, 110 byte 104 byte , với đầu vào của người dùng

a="abcdefghijklmnopqrstuvwxyz";print" ".join(str(a.index(l)+1)for l in list(input().lower())if l in a)

Hãy thử trực tuyến!

Python 2, 105 byte 104 byte 96 byte , tđược xác định trước:

a="abcdefghijklmnopqrstuvwxyz";print" ".join(str(a.index(l)+1)for l in list(t.lower())if l in a)

Hãy thử trực tuyến!

Hãy chia nhỏ nó với phiên bản dễ đọc hơn:

alphabet = "abcdefghijklmnopqrstuvwxyz"
foo = [str(alphabet.index(letter) + 1) for letter in list(t.lower()) if letter in alphabet]
print " ".join(foo)

Đầu tiên, chúng tôi định nghĩa alphabetlà, tốt, bảng chữ cái.

Tiếp theo, chúng tôi sử dụng hiểu danh sách để:

1. Tạo một danh sách trong đó mỗi mục là một ký tự chữ thường từ t
2. Đối với mỗi chữ cái, nếu nó không có trong bảng chữ cái, hãy loại bỏ nó.
3. Nếu có, hãy tìm chỉ mục của nó trong bảng chữ cái,
4. thêm một vào nó (vì chúng ta bắt đầu đếm ở 1)
5. và làm cho nó một chuỗi.

Cuối cùng, chúng tôi tham gia tất cả cùng nhau và in nó.

Chỉnh sửa: Đã thay đổi thành print(và mất tính di động) để lưu byte và làm cho nó hoạt động bên ngoài một chức năng

Chỉnh sửa 2: Đã thêm phiên bản input()thay vì các biến được xác định trước

Chỉnh sửa 3: Đã xóa 8 byte trong Giải pháp 1 và 2 nhờ Jo King

PowerShell , 63 byte

"$(([char[]]"$args".ToUpper()|%{$_-($_,64)[$_-in65..90]})-ne0)"

Hãy thử trực tuyến!

(Có vẻ dài ...)

Đưa đầu vào $args, chuyển đổi .ToUppertrường hợp, biến nó thành mộtchar -array, đưa nó vào một for eachvòng lặp. Bên trong vòng lặp, chúng ta trừ hoặc bản thân hoặc 64 từ giá trị (ASCII int), dựa trên hay không giá trị hiện tại là -inkhoảng 65đến 90(ví dụ, nó là một chữ cái viết hoa ASCII). Các giá trị đó được để lại trên đường ống và chúng tôi sử dụng một loại -not eđể loại bỏ các giá trị không phải là chữ cái (vì tất cả đều bằng không). Những con số đó được gói gọn trong một chuỗi vì việc xâu chuỗi mặc định của một mảng là để phân tách không gian, vì vậy chúng ta có được điều đó khá rẻ. Chuỗi đó được để lại trên đường ống và đầu ra là ẩn.

MS-SQL, 133 byte

SELECT STRING_AGG(ASCII(substring(upper(s),number+1,1))-64,' ')FROM
spt_values,t WHERE type='P'AND substring(s,number+1,1)LIKE'[a-z]'

Theo quy tắc IO của chúng tôi , đầu vào được lấy thông qua bảng t có sẵn với trường varchar s .

SQL 2017 trở lên là bắt buộc. Cũng phải được chạy trong mastercơ sở dữ liệu, vì tôi đang tận dụng một bảng hệ thống được gọi spt_values, mà (khi được lọc bởi type='P') chứa các số đếm từ 0 đến 2047.

Về cơ bản, tôi đang tham gia một bảng số với chuỗi đầu vào bằng cách sử dụng SUBSTRING(), nó trả về một hàng riêng cho từng ký tự riêng lẻ. Điều này được lọc chỉ cho các chữ cái bằng cách sử dụng LIKE'[a-z]', sau đó chúng tôi nhận được giá trị ASCII của chúng và trừ 64. Các số này được nối lại thành một chuỗi bằng cách sử dụng hàm (mới cho SQL 2017) STRING_AGG.

Bình thường , 10 byte

jdfTmhxGr0

Tôi khá chắc chắn rằng điều này có thể được chơi một chút ... -2 byte nếu tôi có thể xuất ra dưới dạng một danh sách, một số câu trả lời dường như nhưng nó không có trong thông số kỹ thuật

Hãy thử trực tuyến!

C (gcc) , 67 byte

c;f(char*s){for(;*s;)(c=tolower(*s++)-96)>0&c<27&&printf("%d ",c);}

Hãy thử trực tuyến!

Chuyển đổi từng ký tự thành chữ thường, bù mã của nó bằng -96 và, nếu nó nằm trong phạm vi của bảng chữ cái 1 chỉ mục, hãy in mã bù

jq , 45 byte

[gsub("\\W";"")|explode[]%32|@text]|join(" ")

 gsub("\\W";"")                                # remove non-alpha characters
               |explode[]                      # get decimal values of characters
                         %32                   # get positions in alphabet
                            |@text             # convert back to string
[                                 ]|join(" ")  # join with a space

Dùng thử trực tuyến