여기서의 과제는 문자열을 가져와 원래 문자열로 끝나는 문자열의 문자 당 첫 번째 문자를 끝까지 반복해서 이동하여 모든 회전을 출력하는 것입니다.

john -> ohnj, hnjo, njoh, john

끝에서 문자를 이동하면서 다른 방향으로 순환 할 수도 있습니다.

john -> njoh, hnjo, ohnj, john

그 전에 원래 단어에 도달하더라도 문자 당 한 번의 회전을 출력해야합니다.

heehee -> eeheeh, eheehe, heehee, eeheeh, eheehe, heehee

결과가 위에 표시된대로 작동하는 한 문자 배열이 허용됩니다.

최단 답변이 승리합니다!

젤리 , 2 바이트

ṙJ

문자 목록을 허용하는 문자 목록을 허용하는 모나드 링크

온라인으로 사용해보십시오! (바닥 글은 링크를 호출하고 개행 문자와 결합하여 예쁘게 인쇄됩니다)

하스켈, 27 바이트

scanl(\(a:b)_->b++[a])=<<id

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

APL (Dyalog Unicode) , 6 바이트 ^SBCS

⍳∘≢⌽¨⊂

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

⍳ 지수

∘ 의

≢ 탈리

⌽¨ 각 회전 (왼쪽)

⊂ 전체 문자열

파이썬 2 , 38 바이트

s=input()
for c in s:s=s[1:]+c;print s

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

자바 스크립트 (ES6), 37 32 바이트

문자열 배열을 반환합니다.

s=>[...s].map(c=>s=s.slice(1)+c)

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

apt, 5 3 바이트

입력을 문자형 배열로 받아서 문자형 배열을 출력합니다.

£=é

여기 사용해보십시오

£=é     :Implicit input of character array U
£       :Map
  é     :  Rotate U one element to the right
 =      :  Reassign to U for next iteration

05AB1E , 3 바이트

ā._

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

brainfuck , 59 바이트

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

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

각 문자열을 널 바이트로 구분하여 출력합니다.

설명:

,[>,]    # Get input
<[       # Start loop over input
  >>[>]       # Go to end of the string
  +           # Set it to one to mark it
  [<]<[<]>    # Move to the beginning of input
  -[[>]>[>]<+[<]<[<]>-]   # Transfer the first character to the end
  >[.>]>[.>]  # Print the rotated string
  <[<].       # Print a nul byte
<]       # Repeat loop while input

MATL , 6 5 바이트

tf&+)

@luis 덕분에 1 바이트가 절약되었습니다!

MATL Online 에서 사용해보십시오 !

설명 :

    # Implicitly grab input string
t   # Duplicate the input
f   # Create an array [1, ..., N] where N is the number of characters in the input
&+  # Add the transpose of this array to itself to create a 2D array of indices
    #
    #   +   1  2  3  4
    #       ----------
    #   1 | 2  3  4  5
    #   2 | 3  4  5  6
    #   3 | 4  5  6  7
    #   4 | 5  6  7  8
    #
)   # Use this 2D array to index into the original string using periodic indexing
    # Implicitly display the resulting character array

Wolfram Language (Mathematica) , 35 26 바이트

Partition[#,Tr[1^#],1,-1]&

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

문자 목록을 입력으로 사용합니다.

Partition( StringPartition아래에 사용 된 변형 은 아님) 입력을 주기적으로 처리하고 정확하게 수행하는 방법에 대한 선택적 네 번째 인수가 있어이 솔루션을 문자열보다 간단하게 만들 수 있습니다. 기능.

Wolfram Language (Mathematica) , 44 바이트

Rest@StringPartition[#<>#,StringLength@#,1]&

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

동일하지만 문자열을 입력으로 사용합니다.

턴 "john"으로는 "johnjohn"다음의 모든 길이 - 얻어 StringLength["john"]제조 오프셋 1이 문자열의 문자열을 {"john","ohnj","hnjo","njoh","john"}다음으로 이들 제 드랍 Rest.

첨부 , 13 바이트

Rotate#{1:#_}

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

설명

Rotate#{1:#_}
      #          fork(f, g) = ${ f[x, g[x]] }; this forks:
Rotate               rotate's the input by
       {1:#_}        each number from 1 to the length of the input

대안

15 바이트 :{_&Rotate!1:#_}

16 바이트 :{Rotate[_,1:#_]}

16 바이트 :Rotate@Rotations

16 바이트 :Rotate#(1&`:@`#)

17 바이트 :Rotate#{1+Iota@_}

18 바이트 :Rotate#(1&`+@Iota)

19 바이트 :Rotate#(Succ=>Iota)

J , 7 바이트

#\|."{]

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

설명:

  |."{    - rotate ( "{ is short for "0 1 - rank 0 1 ) 
      ]   - the input
#\        - lenght of the successive prefixes of the input 

R , 58 바이트

function(s,`[`=substring)paste0(s[n<-nchar(s):1],s[1,n-1])

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

C # (Visual C # 대화식 컴파일러) , 34 바이트

x=>x.Select(c=>x=x.Substring(1)+c)

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

C (32 비트), 58 51 50 바이트

ceilingcat 덕분에 좋은 둥근 숫자를 위해 -1 바이트

i;f(s){for(i=0;i++<printf("%s%.*s\n",s+i,i,s)-2;);}

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

데 고프

i;           // "Global" i.
f(s){   // s is pointer to string, which conveniently fits in a 32 bit integer.
    for(i=0; // Initialize i.
        // Increment i and take its complement, and add it to the
        // return value of printf(); which just happens to be strlen(s)+1.
        // ~i + strlen(s) + 1 == strlen(s) + 1 - i - 1, so the last printed
        // string is the original string.
        ~++i + printf("%s%.*s\n",s+i,i,s);
        // The printf prints two strings: first until the terminating \0,
        // the second until a \0 or until i chars have been printed. It also
        // prints a linefeed.
}

숯 , 10 바이트

⮌Ｅθ⭆θ§θ⁻μκ

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

  θ         Input string
 Ｅ         Map over characters
    θ       Input string
   ⭆        Map over characters and join
      θ     Input string
     §      Circularly indexed by
       ⁻    Difference between
        μ   Inner index
         κ  Outer index
⮌           Reversed
            Implicitly print each string on its own line

반대 방향으로 회전하려면, 대신 Minus에 Plus.

빨강 , 49 43 바이트

func[s][forall s[print move head s tail s]]

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

파이썬 2 , 54 48 바이트

lambda i:[i[x:]+i[:x]for x in range(1,len(i)+1)]

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

xnor에 의해 맞았 지만 어쨌든 대안으로 게시되었습니다.

펄 6 , 32 바이트

{m:ex/^(.*)(.+)$/».&{[R~] @$_}}

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

m:ex/^(.*)(.+)$/ exm주어진 정규 표현식을 철저히 처리 하여 두 번째 하위 문자열에 적어도 하나의 문자가 있어야 입력 문자열이 출력에 두 번 표시되는 것을 제외하고 가능한 모든 위치에서 입력 문자열을 분할합니다. 그런 다음 각 결과 Match개체의 캡처 그룹이 반전 된 문자열 연결 연산자 []를 사용하여 단일 문자열로 줄어 듭니다 ( ) R~.

Pushy , 4 바이트

L:{"

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

L:    \ Length of the string times do:
  {   \    Cyclically shift left once
   "  \    Print

V , 8 바이트

ýñx$pÙñd

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

16 진 덤프 :

00000000: fdf1 7824 70d9 f164                      ..x$p..d

파워 쉘, 44 바이트

($s=$args|% t*y)|%{$h,$t=$s;-join($s=$t+$h)}

테스트 스크립트 :

$f = {

($s=$args|% t*y)|%{$h,$t=$s;-join($s=$t+$h)}

}

@(
    ,('john', 'ohnj', 'hnjo', 'njoh', 'john')
    ,('heehee', 'eeheeh', 'eheehe', 'heehee', 'eeheeh', 'eheehe', 'heehee')
) | % {
    $s,$expected = $_
    $result = &$f $s
    "$result"-eq"$expected"
    $result
}

산출:

True
ohnj
hnjo
njoh
john
True
eeheeh
eheehe
heehee
eeheeh
eheehe
heehee

Tcl , 80 91 바이트

proc P s {time {puts [set s [string ra $s 1 e][string in $s 0]]} [string le $s]}

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

SNOBOL4 (CSNOBOL4) , 82 바이트

	S =INPUT
T	X =X + 1
	S LEN(1) . L REM . R
	OUTPUT =S =R L LE(X,SIZE(S))	:S(T)
END

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

루아 , 61 바이트

function(s)for i=1,#s do print(s:sub(i+1)..s:sub(1,i))end end

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

연속 인덱스에서 문자열을 1에서 문자열의 길이 (1 기반 색인)로 분할하고 조각을 역순으로 연결하여 인쇄합니다.

루비 , 39 바이트

->s{a=s.chars.to_a;a.map{a.rotate!*''}}

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

자바 스크립트, 48 43 36 바이트

@Bubbler에서 -5 바이트 제공 @Shaggy에서 -7 바이트 제공

입력은 문자형 배열이고 출력은 문자형 배열입니다.

s=>s.map(_=>([a,...b]=s,s=[...b,a]))

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

공통 리스프, 88 바이트

(lambda(x)(loop for s from 1 to(length x)do(format t"~a~a "(subseq x s)(subseq x 0 s))))

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

MBASIC , 69 66 바이트

Ørjan Johansen 덕분에 -3 바이트

1 INPUT S$:L=LEN(S$):FOR I=1 TO L:S$=MID$(S$+S$,2,L):PRINT S$:NEXT

brainfuck , 38 바이트

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

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

공백 문자로 널 문자를 사용하려는 JoKing의 아이디어를 기반으로합니다. 이 코드는 인쇄 할 현재 문자를 표시하고 왼쪽 끝에 도달 할 때까지 반복됩니다.

,[>>,]<<    input string with empty cells in between
<+>         set first marker
[           main loop
  [.>>]     print remaining characters
  <<[<<]    return to start
  >-[+>.>-] print until marker (remove marker)
  .         print null
  <<+       set new marker
  >         restart loop with next character to the left
]           stop if there's no character to the left