Codewars Kata에서 영감을 얻었습니다 .

목표는 다음과 같은 입력 문자열을 얻는 것입니다.

"'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 바이트

^{가장 오른쪽에있는 2 바이트는 출력 형식입니다.}

áÇ32%ðý

내 젤리 답변 포트 이지만 O5AB1E는 알파벳 필터링에 더 간결합니다.

온라인으로 사용해보십시오!

어떻게?

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

자바 8, 82 78 72 69 62 바이트

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

@ OlivierGrégoire 덕분에 -13 바이트 .

온라인으로 사용해보십시오.

설명:

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

파이썬 3 , 62 60 49 바이트

Jo King 덕분에 -5 바이트 .
-8 덕분에 바이트 pLOPeGG .

이러한 개선 이후,이 답변은 이제 Jonathan Allan 의 답변 과 유사합니다 .

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

온라인으로 사용해보십시오!

R , 55 50 바이트

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

온라인으로 사용해보십시오!

표준 입력에서 입력을 읽고, 변환은 대문자 들을 제거 일 비 대문자 , 코드 포인트에 영문자, 변환을 64를 뺀다 (32)에 의해 개조, 및 스페이스로 구분 표준 출력으로 인쇄.

골프를 해준 Kevin Cruijssen에게 감사합니다!

APL (Dyalog Unicode) , 24, 20, 14 13 바이트

Zacharý (및 Mr. Xcoder) 덕분에 -4 바이트!

Adám 덕분에 -6 바이트!

ngn 덕분에 -1 바이트!

⎕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을 처음 접한다 :)

파이썬 2 , (45?) 55 바이트

^{출력을 형식화하기 위해 11 바이트가 추가되어 파이썬 3과 호환되지 않습니다.)}

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

내 젤리 답변의 또 다른 항구.

온라인으로 사용해보십시오!

포맷되지 않은 버전 (정수 목록을 반환) :

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

자바 스크립트 (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

@Kevin 덕분에 11 바이트 절약

@Neil 덕분에 1 바이트 더

일부 추가 바이트에 대한 숫자 지원을 추가 할 수 있습니다 (@neil 덕분에)

자바 스크립트 (Node.js) , 62 바이트

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

온라인으로 사용해보십시오!

젤리 , (7?) 8 바이트

^{가장 오른쪽 바이트는 출력 형식입니다}

fØẠO%32K

결과를 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

결과에 하나 이상의 문자가 포함되어 있다고 가정하면 {|}~

모든 ASCII 문자를 허용하는 40 바이트

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Éÿ%}},√

실행 및 디버깅

@recursive 덕분에 -1 바이트

설명:

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. 비슷하지만 map을 사용하여 후행 줄 바꿈으로 암시 적으로 출력합니다.

공백 , 152 117 바이트

@Lynn 덕분에 -35 바이트 .

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

온라인으로 사용해보십시오!

펄 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 ";

온라인으로 사용해보십시오!

Kevin 덕분에 -5 바이트

펄 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 바이트)

@manassehkatz 덕분에 -3 바이트 (strtolower 레벨 변경 및 정규식에서 AZ 제거)

코드, 루프를 피하려고

<?=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]

파이썬 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)

온라인으로 사용해보십시오!

파이썬 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는 알파벳으로 정의 합니다.

다음으로 목록 이해를 사용하여 다음을 수행합니다.

1. 각 항목이 소문자 인 목록을 작성하십시오. t
2. 각 문자마다 알파벳이 아닌 경우 폐기하십시오.
3. 그렇다면 알파벳으로 된 색인을 찾으십시오.
4. 그것에 1을 더하십시오 (1부터 계산하기 때문에)
5. 그것을 문자열로 만드십시오.

마지막으로 우리는 모두 함께 결합하여 인쇄합니다.

편집 :print 바이트를 저장하고 함수 외부에서 작동하도록 변경 (및 이식성 손실)

편집 2 :input() 사전 정의 된 변수 대신 버전 추가

편집 3 : Jo King 덕분에 솔루션 1 및 2에서 8 바이트 제거

PowerShell , 63 바이트

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

온라인으로 사용해보십시오!

(길게 보인다 ...)

input을 가져 $args와서 대 / .ToUpper소문자를 변환 한 다음이를 char배열로 변환하여 for each루프에 넣습니다 . 루프 내부에서, 우리는 현재 값이 있는지 여부에 근거하여 (ASCII의 INT) 값에서 하나 자체 또는 64 뺄 -in범위 65에 90(즉, 그것이 ASCII 대문자입니다). 이러한 값은 파이프 라인에 남아 있으며 -not equal을 사용하여 문자가 아닌 값을 제거합니다 (모두 0이므로). 배열의 기본 문자열 화는 공백으로 분리하는 것이기 때문에 이러한 숫자는 문자열로 캡슐화되므로 상당히 저렴합니다. 해당 문자열은 파이프 라인에 남아 있으며 출력은 암시 적입니다.

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가있는 기존 테이블 t 를 통해 입력이 이루어 집니다.

SQL 2017 이상이 필요합니다. 로 필터링 된 0 master이라는 시스템 테이블을 이용하기 때문에 데이터베이스 에서 실행해야 합니다 .spt_valuestype='P'

기본적으로을 사용하여 입력 문자열로 숫자 테이블을 조인합니다 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

온라인으로 사용해보십시오