แรงบันดาลใจจากCodewars กะตะ

เป้าหมายของคุณคือใช้สตริงอินพุตเช่นอันนี้:

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

และส่งคืนสตริงที่มีตำแหน่งของอักขระแต่ละตัวในตัวอักษรคั่นด้วยช่องว่างและละเว้นอักขระที่ไม่ใช่ตัวอักษรเช่นนี้

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

สำหรับความท้าทายเพิ่มเติมคุณสามารถแทนที่ตัวอักษรตัวเลขใด ๆ ในสายเดิมด้วยตัวเอง + 27. ตัวอย่างเช่นจะกลายเป็น"25" "29, 32"นี่เป็นทางเลือกที่สมบูรณ์

คุณต้องใช้ 1 การจัดทำดัชนี ( 'a'==1, 'b'==2ฯลฯ )

กฎเพิ่มเติม:

• คุณต้องส่งคืนสตริงไม่ใช่อาร์เรย์

• ช่องว่างต่อท้ายคือตกลง

ผู้ชนะมีจำนวนไบต์ต่ำสุด

โชคดี!

05AB1E , (5?) 7 ไบต์

^{สองไบต์ขวาสุดกำลังจัดรูปแบบเอาต์พุต}

áÇ32%ðý

พอร์ตของคำตอบ Jelly ของฉันแต่ O5AB1E นั้นสั้นกว่าสำหรับการกรองตัวอักษร

ลองออนไลน์!

อย่างไร?

áÇ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 ไบต์

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

-13 ไบต์ขอบคุณที่@ OlivierGrégoire

ลองออนไลน์

คำอธิบาย:

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 ไบต์

-5 ไบต์ต้องขอบคุณโจกษัตริย์
-8 ไบต์ขอบคุณที่pLOPeGG

หลังจากการปรับปรุงเหล่านี้คำตอบนี้อยู่ในขณะนี้คล้ายกับโจนาธานอัลลัน 's คำตอบ

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

ลองออนไลน์!

R , 55 50 ไบต์

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

ลองออนไลน์!

อ่านอินพุตจาก stdin แปลงเป็นตัวพิมพ์ใหญ่ลบตัวอักษรที่ไม่ใช่ตัวอักษรตัวพิมพ์ใหญ่แปลงเป็นรหัสจุดลบถึง 64 mods 32 และพิมพ์เป็น stdout คั่นด้วยช่องว่าง

ขอบคุณ Kevin Cruijssen สำหรับสนามกอล์ฟ!

APL (Dyalog Unicode) , 24, 20, 14 13 ไบต์

-4 ไบต์ขอบคุณZacharý (และ Mr. Xcoder)!

-6 ไบต์ขอบคุณAdám!

-1 ไบต์ขอบคุณ ngn!

⎕A⍳⎕A∩⍨≡819⌶⊢

ลองออนไลน์!

คำอธิบาย:

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

ทางออกแรกของฉัน:

APL (Dyalog Unicode) , 24 20 ไบต์

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

ลองออนไลน์!

คำอธิบาย:

             ⍳           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)

อย่าหัวเราะฉันฉันใหม่สำหรับ APL :)

Python 2 (45?) 55 ไบต์

^{เพิ่ม 11 ไบต์เพื่อจัดรูปแบบเอาท์พุทซึ่งทำให้สิ่งนี้เข้ากันไม่ได้กับ Python 3)}

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

อีกคำตอบ Jelly ของฉัน

ลองออนไลน์!

เวอร์ชันที่ไม่ได้จัดรูปแบบ (ส่งคืนรายการจำนวนเต็ม):

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

JavaScript (Node.js) , 69 55 54 ไบต์

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

ลองออนไลน์!

คำอธิบาย:

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 ไบต์ด้วย @Kevin

อีก 1 ไบต์ขอบคุณ @Neil

คุณสามารถเพิ่มการสนับสนุนสำหรับตัวเลขสำหรับไบต์เพิ่มเติมบางส่วน (ขอบคุณ @neil)

JavaScript (Node.js) , 62 ไบต์

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

ลองออนไลน์!

เยลลี่ , (7?) 8 ไบต์

^{ไบต์ขวาสุดคือการจัดรูปแบบผลลัพธ์}

fØẠO%32K

โปรแกรมแบบเต็มที่ยอมรับสตริงในรูปแบบ Python ซึ่งพิมพ์ผลลัพธ์ไปที่ STDOUT

ลองออนไลน์!

อย่างไร?

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 ไบต์

r\L ¨c uH

ลองมัน

คำอธิบาย

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

x86 opcode 35 ไบต์

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

สมมติว่าผลลัพธ์มีตัวอักษรอย่างน้อยหนึ่งตัวและไม่ใช่ {|}~

40 ไบต์อนุญาตให้ใช้ตัวอักษร 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 ไบต์

üpÉÿ%}},√

เรียกใช้และแก้ไขข้อบกพร่อง

-1 ไบต์ขอบคุณ @recursive

คำอธิบาย:

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 ไบต์

É▌Xl»↔"

เรียกใช้และแก้ไขข้อบกพร่อง

อันนี้เอาท์พุทคั่นบรรทัดใหม่ vmVaI^|cแตก: คล้ายกัน แต่กับแผนที่ซึ่งแสดงผลลัพธ์โดยนัยด้วยการขึ้นบรรทัดใหม่

ช่องว่าง , 152 117 ไบต์

-35 ไบต์ขอบคุณที่@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]

เพิ่มตัวอักษรS(ช่องว่าง), T(แท็บ) และN(บรรทัดใหม่) เป็นการเน้นเท่านั้น
[..._some_action]เพิ่มเป็นคำอธิบายเท่านั้น

ลองใช้ออนไลน์ (ด้วยพื้นที่ว่างเปล่าแท็บและบรรทัดใหม่เท่านั้น)

คำอธิบายในรหัสเทียม:

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 ไบต์

láÇ96-ðý

ลองออนไลน์!

หรือถ้าเราสามารถส่งคืนอาร์เรย์:

05AB1E , 6 ไบต์

láÇ96-

คำอธิบาย:

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

ลองออนไลน์!

หรือหากคุณต้องการให้นับจำนวน:

05AB1E , 13 ไบต์

lAžh«DŠÃSk>ðý

ลองออนไลน์!

05AB1E , 14 ไบต์

จัดการตัวเลขได้เช่นกัน

žKÃlvžKlÙyk>ðJ

ลองออนไลน์!

ถ่าน 21 ไบต์

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

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

≔⁺β⭆χιβ

ผนวกตัวเลขเข้ากับตัวแปรตัวอักษรตัวพิมพ์เล็กที่กำหนดไว้ล่วงหน้า

Ｆ↧Ｓ

วนซ้ำผ่านอินพุตที่ลดลง

¿№βι«

หากอักขระปัจจุบันเป็นตัวอักษรหรือตัวเลข

Ｉ⊕⌕βι

พิมพ์ดัชนี 1 ดัชนี

→

และเว้นช่องว่างสำหรับค่าถัดไป

สีแดง 93 ไบต์

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

ลองออนไลน์!

Perl 5 , 47 ไบต์

ด้วยความท้าทายเพิ่มเติมของการแยกตัวเลข:

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

ลองออนไลน์!

ลดลงถึง 38 ไบต์โดยไม่สนใจตัวเลข

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

PHP , 70 ไบต์

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

ลองออนไลน์!

-5 ไบต์ขอบคุณเควิน

Perl 5 -p , 35 ไบต์

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

ลองออนไลน์!

รวมส่วนเพิ่มเติมเกี่ยวกับตัวเลข

Japt 2.0 -S, 9 ไบต์

f\l ®c %H

เปิดใช้งานออนไลน์

คำอธิบาย:

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 ไบต์ (อัลฟา), 41 ไบต์ (อัลฟา + หลัก)

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

ลองใช้ (32 ไบต์อัลฟา)

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

ลองใช้ (41 ไบต์ตัวอักษร + ตัวเลข)

ขยาย:

32 ไบต์อัลฟา

{  # 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 + อัลฟาหลัก

{  # 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 ไบต์

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

ลองออนไลน์!

PHP 108 105 ไบต์

ลองออนไลน์ (108 ไบต์)

ทดลองใช้งานออนไลน์ (105 ไบต์)

-3 ไบต์ขอบคุณ @manassehkatz (เปลี่ยนระดับของ strtolower และลบ AZ ออกจาก regex)

รหัสพยายามหลีกเลี่ยงการวนซ้ำใด ๆ

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

คำอธิบาย

$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 ไบต์

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

ลองออนไลน์!

Python 2, 110 ไบต์ 104 ไบต์พร้อมอินพุตผู้ใช้

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

ลองออนไลน์!

Python 2, 105 ไบต์ 104 ไบต์ 96 ไบต์โดยที่tกำหนดไว้ล่วงหน้า:

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

ลองออนไลน์!

มาทำลายมันด้วยเวอร์ชันที่อ่านง่ายขึ้น:

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

อันดับแรกเรานิยามalphabetว่าเป็นตัวอักษรเอาละ

ต่อไปเราใช้ list comprehension เพื่อ:

1. ทำรายการที่แต่ละรายการเป็นอักขระตัวพิมพ์เล็ก t
2. สำหรับตัวอักษรแต่ละตัวถ้ามันไม่ได้อยู่ในตัวอักษรละทิ้งมัน
3. ถ้าเป็นเช่นนั้นค้นหาดัชนีในตัวอักษร
4. เพิ่มหนึ่งลงไป (เพราะเราเริ่มนับที่ 1)
5. และทำให้มันเป็นสตริง

ในที่สุดเราเข้าร่วมทั้งหมดเข้าด้วยกันและพิมพ์

แก้ไข:เปลี่ยนเป็นprint(และสูญเสียการพกพา) เพื่อบันทึกไบต์และทำให้มันทำงานนอกฟังก์ชั่น

แก้ไข 2:เพิ่มรุ่นด้วยinput()แทนที่จะเป็นตัวแปรที่กำหนดไว้ล่วงหน้า

แก้ไข 3:ลบ 8 ไบต์ในโซลูชัน 1 และ 2 ขอบคุณJo King

PowerShell , 63 ไบต์

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

ลองออนไลน์!

(ดูเหมือนยาว ... )

รับอินพุต$argsแปลง.ToUpperเคสเป็นcharคาสต์เป็น-array ฟีดนั้นเป็นfor eachลูป ภายในลูปเราจะลบค่าตัวเองหรือ 64 จากค่า (ASCII int) โดยพิจารณาว่าค่าปัจจุบันนั้นเป็น-inช่วง65ที่90(หรือว่ามันคือตัวอักษรตัวใหญ่ ASCII) ค่าเหล่านั้นจะถูกทิ้งไว้ที่ไพพ์ไลน์และเราใช้-not equal เพื่อกำจัดค่าที่ไม่ใช่ตัวอักษร (เพราะมันเป็นศูนย์ทั้งหมด) ตัวเลขเหล่านั้นถูกห่อหุ้มในสายอักขระเนื่องจากการเรียงสตริงเริ่มต้นของอาเรย์คือการเว้นวรรคดังนั้นเราจึงได้ค่าที่ค่อนข้างถูก สตริงนั้นจะถูกทิ้งไว้บนไปป์ไลน์และเอาท์พุทนั้นเป็นนัย

MS-SQL, 133 ไบต์

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]'

ต่อ IO ของเรากฎการป้อนข้อมูลจะได้รับการผ่านตารางที่มีอยู่ก่อนทีมีเขต varchar s

จำเป็นต้องใช้ SQL 2017 หรือใหม่กว่า ต้องทำงานในmasterฐานข้อมูลเพราะฉันใช้ประโยชน์จากตารางระบบที่เรียกว่าspt_valuesซึ่ง (เมื่อกรองตามtype='P') มีจำนวนการนับจาก 0 ถึง 2047

โดยพื้นฐานแล้วฉันกำลังเข้าร่วมตารางตัวเลขโดยใช้สตริงอินพุตSUBSTRING()ซึ่งส่งคืนแถวแยกสำหรับอักขระแต่ละตัว นี้จะถูกกรองสำหรับตัวอักษรเพียงแค่ใช้LIKE'[a-z]'แล้วเราจะได้รับค่า ASCII ของพวกเขาและลบ 64 ตัวเลขเหล่านี้จะเข้าร่วมกลับเป็นสตริงใช้ (ใหม่กับ SQL 2017) STRING_AGGฟังก์ชั่น

Pyth , 10 ไบต์

jdfTmhxGr0

ฉันค่อนข้างมั่นใจว่านี่สามารถเล่นกอล์ฟได้เล็กน้อย ... -2 ไบต์ถ้าฉันสามารถส่งออกเป็นรายการคำตอบบางอย่างดูเหมือนจะ แต่ไม่ได้อยู่ในสเป็ค

ลองออนไลน์!

C (gcc) , 67 ไบต์

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

ลองออนไลน์!

แปลงอักขระแต่ละตัวเป็นตัวพิมพ์เล็กชดเชยโค้ดโดย -96 และหากอยู่ในช่วงของตัวอักษรที่มีดัชนี 1 ตัวให้พิมพ์รหัสออฟเซ็ต

jq , 45 ไบต์

[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

ลองออนไลน์