입력 한 단어를 받아 그 단어를 빼고 첫 글자를 뺀 프로그램을 만든 다음 모든 글자가 사라질 때까지 반복합니다. 예를 들어, cat될 것입니다 catatt, 그리고 hello될 것입니다 helloellolloloo.

영어 알파벳의 26 글자 중 하나를 입력 하십시오. 공백으로 구분 된 여러 단어가있을 수 있으며 모든 단어에 변경 사항을 적용해야합니다.

출력
추가 된 글자가 더 이상 없을 때까지 각 단어의 첫 글자가 누락 된 후 두 번째 글자가 누락 된 상태로 입력 된 단어.

더 많은 예 :

ill eel 출력 illlll eelell

laser bat 출력 laserasersererr batatt

darth vader 출력 dartharthrththh vaderaderdererr

이것은 코드 골프이므로 가장 짧은 코드가 승리합니다.

설명 :
입력 또는 출력을 목록으로 취급 할 수 있습니다. 공백 대신 줄 바꿈을 사용하여 단어를 구분할 수 있습니다. 입력에 후행 공백을 추가 할 수 있습니다.

apt -m, 6 3 바이트

입력과 출력은 단어의 배열입니다.

£sY

시도 해봐

설명

        :For each word in the input array
£       :Map each letter at index Y
 sY     :  Slice the current word from index Y

brainfuck , 60 56 바이트

,[>++++++++[-<----<++++>>]<[>>]<[[<]>.[[-]>[.>]<[<]>]],]

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

후행 공백이 필요하고 선행 공백을 인쇄합니다. 이 두 가지 모두 우회 될 수 있지만 112 바이트로 끝납니다 .

설명

,[  Loop over each byte of input
  Tape: 32 w o r-32 d'
  >++++++++[-<----<++++>>]   Subtract 32 from the character and add 32 to the previous char
  Tape: 32 w o r d-32 0'
  <[>>]<   If the last character was a space
  Tape: 32 w o r d-32 0'
  or
  Tape: 32 w o r d' space-32
  [
    [<]>.   Move to the end of the word and print out the space
    [   Loop over each letter
      [-]    Remove the first letter (initially space)
      >[.>]  Print the rest of the word
      <[<]>  Move back to the first letter
    ]
    Tape: clear
  ]
,]  Get the next byte of input

하스켈, 36 21 바이트

map$concat.scanr(:)""

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

편집 : 새로운 IO 형식으로 인해 -15 바이트 (공백으로 구분 된 단어 대신 단어 목록)

펄 -p, 36 25 23 바이트

s!\b|\S!$'=~s/ .*//r!eg

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

이것은 단일 regsub입니다. 먼저 모든 단어 경계 또는 공백이 아닌 문자와 일치합니다.

[][H][e][l][l][o] [][W][o][r][l][d]

이러한 각 일치 항목은 나머지 단어로 바꿔야합니다.

[→Hello][H→ello][e→llo][l→lo][l→o][o→] (...)

$'일치 후 문자열 부분을 저장하는 특수 변수로이를 수행 할 수 있습니다 . 그러나, 우리는 중첩 된 regsub 적용 할 필요가 s/ .*//있는 최초의 우주 과거의 모든 것을 제거 그것에을 $'입력의 나머지 단어를 제거하기 위해.

2 바이트 동안 @nwellnhof 에게 감사드립니다 .

파이썬 3 , 49 바이트

d=lambda s:' '.join(n+d(n[1:])for n in s.split())

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

이것은 "".split()빈 배열 을 반환하여 재귀의 기본 사례에 대한 검사 역할 을하는 사실을 이용 합니다.

젤리 , 3 바이트

ḊƬ€

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

K이제 어레이 입 / 출력이 허용되므로 더 이상 필요하지 않습니다 .

ḊƬ€
  €   For each word:
Ḋ       Remove the first letter
 Ƭ      until there are none left.

APL (Dyalog), 19 9 바이트

{⌽∊,\⌽⍵}¨

내 두뇌를 조깅 해주신 @ H.PWiz에게 감사합니다

APL의 모든 문자열이 문자 배열이기 때문에 작동합니다.

{⌽∊,\⌽⍵}¨ 
        ¨ - for each string
      ⍵} - string argument - ex. "hello"
     ⌽ - reverse - "olleh"
   ,\ - scan magic - "o" "ol" "oll" "olle" "olleh"
  ∊ - enlist(join together) "oolollolleolleh"
{⌽ - reverse - "helloellolloloo"

TIO

자바 스크립트 (ES6), 33 바이트

@ShieruAsakoto 덕분에 1 바이트 절약

I / O 형식 : 단어 배열.

a=>a.map(g=w=>w&&w+g(w.slice(1)))

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

자바 스크립트 (ES6), 35 바이트

I / O 형식 : 단어 배열.

a=>a.map(w=>w.replace(/./g,"$&$'"))

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

R , 82 75 67 바이트

write(sapply(x<-scan(,""),substring,1:(y=max(nchar(x))),y),1,y,,"")

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

JayCe 덕분에 몇 바이트 절약

출력을 개행으로 분리합니다.

이 sapply(...)식은 적절한 부분 문자열로 구성된 행렬 / 열 벡터를 생성하고 ""필요에 따라 채워집니다 . write그런 다음 행렬 요소를 한 줄에 인쇄하여로 y구분합니다 "".

brainfuck , 94 93 바이트

-[-[-<]>>+<]>-<<+[[[-]<,[->+>+<<]>[-<+>]>>[-<->>+<]<]<<[>>+<<[-]]<[<]>[[.>]<[<]>[-]>]>>>>.<<]

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

• 한 바이트 덕분에 저장된 Nitrodon - 골프 .[-]>[.>]<[<]>에 [.>]<[<]>[-]>.

설명

[[[ (dynamic) tape layout: ... NUL STR ... STR CHR FLG BUF SPC NUL ... ]]]

load a 32 into SPC
-[-[-<]>>+<]>-

while FLG
<<+[

 read a word
 [
  clear FLG; read CHR
  [-]<,
  copy CHR to BUF (using FLG as a temporary)
  [->+>+<<]>[-<+>]
  subtract SPC from BUF and save SPC
  >>[-<->>+<]
  move tape layout one to the right
  <
 ]

 strip trailing space; set FLG to true
 << [>>+<<[-]]
 to STR's first character
 <[<]>
 print word in all reduced forms
 [
  [.>]<[<]>[-]>
 ]

 print SPC; move to FLG
 >>>>.<<
]

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

속성

Esolang의 brainfuck constant collection 은 초기 공간로드에 사용되었습니다.

05AB1E , 5 바이트

€.síJ

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

설명

€.s        # push suffixes of each
   í       # reverse each
    J      # join suffixes

Vim , 47 바이트 (38 키 스트로크)

Vim 버퍼에서 입력을 유일한 라인으로 시작하십시오.

:s/<Space>/\r/g<CR>ggqaywPlxqqb99@aj0q99@bgg99J

설명

이렇게하면 각 단어가 고유 한 줄에 들어가고 각 줄을 반복 한 다음 다시 결합됩니다. 단어가 99자를 초과하거나 입력에 99 개를 초과하면 중단됩니다.

1. :s/<Space>/\r/g<CR> 공백을 새 줄로 바꿉니다 ( \r)
2. gg 첫 번째 줄의 시작 부분에 커서를 놓습니다.
3. qa매크로 기록을 시작 합니다 :
   • yw 나머지 단어를 빼앗아
   • P 커서 뒤에 놓는다
   • lx 후자의 첫 글자를 제거
   • q매크로 기록 중지 을
4. qb매크로 b 기록 시작 :
   • 99@a매크로 를 아흔 아홉 번 실행 합니다 (문자 제한 소개)
   • j0 다음 줄의 시작 부분에 커서를 놓습니다.
   • q매크로 b 기록 중지
5. 99@b매크로 b를 아흔 아홉 번 실행 합니다 (단어 제한 소개)
6. gg 첫 번째 줄에 커서를 놓습니다.
7. 99J 공백으로 다음 90 개의 줄을 조인 합니다 (단어 제한).

다른 2 바이트 (2 키 스트로크)의 경우 단어 제한을 999로 확장 할 수 있습니다. 다른 4 바이트, 9999 등

껍질 , 6 4 바이트

^{Jonathan Allan 덕분에 -2 바이트 (입력을 목록으로 가져옴)!}

moΣṫ

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

설명

입력을 문자열 목록으로 가져와 다음 함수를 매핑합니다.

Σṫ  -- example argument: "abc"
 ṫ  -- tails: ["abc","bc","c"]
Σ   -- concat: "abcbcc"

레티 나 0.8.2 , 15 바이트

 
¶
.
$&$%'
¶
 

온라인으로 사용해보십시오! 참고 : 후행 공백. 설명:

 
¶

공백으로 나눕니다.

.
$&$%'

각 문자에 접미사를 추가하십시오. %우리는 단어의 접미사를 얻을 의미합니다.

¶
 

공백으로 참여하십시오.

페페 , 167153 바이트

REEerEeeEeeeeeRrEEEEerEEEEEeerEErEEeerreErEEeErreEREEEEEEEreereErEerEEEErEEeerrEEreRRErEEEEreREEreeereReeRerEEEEEErEEEeerreEerEEeerEEEEerEEeEreereErEeree

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

16 비트 x86 어셈블리 코드, 24 바이트

     47             inc    di
     B020           mov    al,20h
l1:  3806           cmp    [si],al
     7212           jb     l5 ;less means end of string
     7401           je     l2  ;equal means space was seen
     4F             dec    di ;overwrite extra space
l2:  E80300         call   l3
     46             inc    si ;move to next character in word
     75F1           jne    l1
l3:  56             push   si
l4:  3806           cmp    [si],al
     A4             movsb      ;copy character
     77FB           ja     l4  ;until either zero or space is seen
     5E             pop    si
l5:  C3             ret

소스 문자열에 대한 si = 포인터, 출력 버퍼에 대한 di = 포인터로 호출하십시오.
소스 문자열을 끝내려면 0 바이트가 필요합니다.
코드는 16 비트 또는 32 비트 또는 64 비트에서 동일합니다 (si / di는 esi / edi 또는 rsi / rdi가 됨).
확장 된 호출로 인해 32 비트 코드가 2 바이트 더 큽니다.
64 비트 코드는 rsi / rdi의 inc / dec가 접두사를 사용하기 때문에 여전히 3 바이트 더 큽니다 (하지만 32 비트 메모리 공간 내에있는 것으로 확인되면 해당 패널티를 피하기 위해 다시 esi / edi가 될 수 있음). .

MATL , 18 16 바이트

"@gXH"HX@Jh)]0&h

입력은 단어의 셀형 배열입니다. 온라인으로 사용해보십시오!

설명

"         % Implicit input: cell array of strings. For each cell
  @g      %   Push content of current cell, that is, a word
  XH      %   Copy into clipboard H
  "       %   For each letter
    H     %     Push word
    X@    %     Push iteration index
    Jh)   %     Index from that until the end into current word
  ]       %   End
  0       %   Push 0. Will be cast to char. Char(0) is displayed as space
  &h      %   Concatenate horizontally all elements so far. Implicit display

K4 / K (oK) , 9 바이트

해결책:

,/'(1_)\'

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

설명:

,/'(1_)\' / the solution
        ' / apply to each
       \  / scan
   (  )   / do this together
    1_    / drop first
,/'       / flatten (,/) each (')

C ++ (클랑) , 174 바이트

#include<map>
#include<string.h>
std::string r(std::string w){while(auto x=strchr(w.c_str(),32))return r(w.substr(0,x-w.c_str()))+" "+r(x+1);return w!=""?w+r(w.substr(1)):w;}

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

첫 번째 제출물이며 인쇄하는 대신 문자열을 반환하는지 알 수 없었습니다. :)

Stax , 3 바이트

m|]

실행 및 디버깅

설명:

m   Map over the lines
 |] Get all suffixes (suffices?)
    Implicit flatten and output

숯 , 14 바이트

⪫Ｅ⪪Ｓ ⭆ι✂ιμＬι¹ 

온라인으로 사용해보십시오! 참고 : 후행 공간. 링크는 자세한 버전의 코드입니다. 설명:

   Ｓ            Input string
  ⪪             Split on spaces
 Ｅ              Map over each word
      ι         Current word
     ⭆          Map over each character and join
        ι       Current word
         μ      Current index
           ι    Current word
          Ｌ     Length
            ¹   Literal 1
       ✂        Slice
⪫               Join with spaces
                Implicitly print

C (gcc) , 79 바이트

f(s,t)char*s,*t;{for(;*s;printf("%.*s",*s^32?t?t-s:~0:1,s),s++)t=strchr(s,32);}

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

핍 -s , 11 바이트

J_@>,#_Mq^s

공백으로 구분 된 단어 목록을 stdin에서 가져옵니다. 온라인으로 사용해보십시오!

설명

             s is space (implicit)
        q    Read a line of stdin
         ^s  Split it on spaces
       M     Map this lambda function to each word:
 _            The word...
  @>          sliced starting at index...
    ,#_       range(len(word))
              This creates len(word) slices ["word" "ord" "rd" "d"]
J             Join those into a single string
             The resulting list of modified words is printed; the -s flag uses space
             as the separator

루비 , 42 바이트

->s{s.map{|a|(w=a.b).chars{a[0]='';w<<a}}}

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

파이썬 2 , 63 바이트

lambda s:' '.join(map(g,s.split()))
g=lambda s:s and s+g(s[1:])

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

캔버스 , 6 바이트

±［±］⇵］

여기 사용해보십시오!

미친 출력 형식의 5 바이트

C #, 111 90 바이트

b=>string.Join(" ",(b.Split(' ').Select(x=>string.Concat(x.Select((y, i)=>x.Substring(i))))))

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

입력 및 출력을 배열로 변경하여 몇 바이트를 절약했습니다.

b=>b.Select(x=>string.Concat(x.Select((y,i)=>x.Substring(i)))).ToArray()

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

K (oK) , 17 13 바이트

{,/|:'|,\|x}'

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

접두사 익명 함수; 입력은 문자열 목록으로 간주되며 문자열 목록으로 표시됩니다.

@streetster에게 4 바이트 감사합니다.

어떻게:

{,/|:'|,\|x}' //Main function, argument x → ("ill";"eel")
            ' // For each element of the argument
         |x}  // Flip it. x → ("lli";"lee")
       ,\     // Concatenate each element, keeping intermediates. x → (("l";"ll";"lli");("l";"le";"lee")
      |       // Flip it again. x → (("lli";"ll";"l");("lee";"le";"l"))
   |:'        // Now flip each element. x → (("ill";"ll";"l");("eel";"el";"l"))
{,/           // Concatenation scan. x → ("illlll";"eelell")

공통 리스프 , 179 바이트

(defun r(s)(cond((endp s)nil)((eql(first s)#\Space)(princ " ")(r(rest s)))(t(q s)(r(rest s)))))(defun q (l)(cond((eql(first l)#\Space)t)((endp l)t)(t(princ(first l))(q(rest l)))))

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

이것은 편집을 환영합니다 골프를 처음 시도합니다

루아 , 70 바이트

for i=1,#arg do x=arg[i]for i=1,#x do io.write(x:sub(i))end print()end

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

설명

루아의 인수는 테이블에 저장됩니다 arg단항 연산자는 인덱스 1에서 시작 #테이블의 크기를 반환하고 함수는 s:sub(a,b)문자열을 기반으로 문자열을 반환하는 s정수로 구분 a하고 bB는 문자열의 나머지 부분을 반환 통과되지 않은 경우.

줄 바꿈을 피하기 위해 io.write()대신 사용해야 하고 반대 이유로 끝 부분에 print()추가 print()했습니다.