Wyzwanie polega na tym, aby pobrać ciąg i wyprowadzić wszystkie jego obroty, wielokrotnie przesuwając pierwszy znak na koniec, raz na znak w ciągu, kończąc na oryginalnym ciągu:

john -> ohnj, hnjo, njoh, john

Możesz także jechać w innym kierunku, przesuwając postacie od końca:

john -> njoh, hnjo, ohnj, john

Nadal powinieneś generować jeden obrót na literę, nawet jeśli wcześniej osiągnięte zostało oryginalne słowo:

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

Tablice znaków są dozwolone, o ile wynik działa, jak pokazano powyżej.

Najkrótsza odpowiedź wygrywa!

Galaretka , 2 bajty

ṙJ

Monadyczny link akceptujący listę znaków, który daje listę list znaków

Wypróbuj online! (stopka ładnie drukuje, wywołując link i łącząc się ze znakami nowej linii)

Haskell, 27 bajtów

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

Wypróbuj online!

APL (Dyalog Unicode) , 6 bajtów ^SBCS

⍳∘≢⌽¨⊂

Wypróbuj online!

⍳ wskaźniki

∘ z

≢ podsumowanie

⌽¨ każdy obrót (w lewo)

⊂ cały ciąg

Python 2 , 38 bajtów

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

Wypróbuj online!

JavaScript (ES6), 37 32 bajtów

Zwraca tablicę ciągów.

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

Wypróbuj online!

Japt, 5 3 bajty

Pobiera dane wejściowe jako tablicę znaków, generuje tablicę tablic znaków

£=é

Wypróbuj tutaj

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

05AB1E , 3 bajty

ā._

Wypróbuj online!

pieprzenie mózgu , 59 bajtów

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

Wypróbuj online!

Zwraca każdy ciąg oddzielony pustymi bajtami.

Wyjaśnienie:

,[>,]    # 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 bajtów

tf&+)

1 bajt zapisany dzięki @luis!

Wypróbuj w MATL Online !

Objaśnienie :

    # 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 bajtów

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

Wypróbuj online!

Pobiera na wejściu listę znaków.

Partition(ale nie jego wariant StringPartitionużyty poniżej) ma opcjonalny czwarty argument do traktowania danych wejściowych jako cyklicznych (i do określania, jak dokładnie to zrobić), co sprawia, że ​​to rozwiązanie jest prostsze niż łańcuchowe - oprócz tego, że nie ma zbudowanej 15 znaków -w funkcjach.

Wolfram Language (Mathematica) , 44 bajty

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

Wypróbuj online!

To samo, ale pobiera ciąg jako dane wejściowe.

Zamienia się "john"w "johnjohn", następnie bierze wszystkie StringLength["john"]podłańcuchy długości tego łańcucha z przesunięciem 1, tworząc {"john","ohnj","hnjo","njoh","john"}, a następnie upuszcza pierwszy z nich Rest.

Attache , 13 bajtów

Rotate#{1:#_}

Wypróbuj online!

Wyjaśnienie

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

Alternatywy

15 bajtów :{_&Rotate!1:#_}

16 bajtów :{Rotate[_,1:#_]}

16 bajtów :Rotate@Rotations

16 bajtów :Rotate#(1&`:@`#)

17 bajtów :Rotate#{1+Iota@_}

18 bajtów :Rotate#(1&`+@Iota)

19 bajtów :Rotate#(Succ=>Iota)

J , 7 bajtów

#\|."{]

Wypróbuj online!

Wyjaśnienie:

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

R , 58 bajtów

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

Wypróbuj online!

C # (interaktywny kompilator Visual C #) , 34 bajty

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

Wypróbuj online!

C (32-bit), 58 51 50 bajtów

-1 bajt dla ładnej okrągłej liczby dzięki pułapce cat

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

Wypróbuj online!

Degolf

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.
}

Węgiel drzewny , 10 bajtów

⮌Ｅθ⭆θ§θ⁻μκ

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

  θ         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

Obracają się w kierunku przeciwnym, zastępuje Minussię Plus.

Czerwony , 49 43 bajtów

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

Wypróbuj online!

Python 2 , 54 48 bajtów

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

Wypróbuj online!

Dobrze pokonany przez xnor, ale i tak opublikowany jako alternatywne podejście.

Perl 6 , 32 bajty

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

Wypróbuj online!

m:ex/^(.*)(.+)$/ exsilnie mwciska podany regex, dzieląc łańcuch wejściowy w każdym możliwym miejscu, z tym wyjątkiem, że drugi podłańcuch musi mieć co najmniej jeden znak - co zapobiega dwukrotnemu wyświetlaniu łańcucha wejściowego na wyjściu. Następnie każda z Matchgrup przechwytywania wynikowych obiektów jest redukowana ( []) do pojedynczego łańcucha za R~pomocą operatora odwrotnej konkatenacji łańcucha.

Pushy , 4 bajty

L:{"

Wypróbuj online!

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

V , 8 bajtów

ýñx$pÙñd

Wypróbuj online!

Hexdump:

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

PowerShell, 44 bajty

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

Skrypt testowy:

$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
}

wydajność:

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

Tcl , 80 91 bajtów

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

Wypróbuj online!

SNOBOL4 (CSNOBOL4) , 82 bajty

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

Wypróbuj online!

Lua , 61 bajtów

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

Wypróbuj online!

Podziel ciąg przy kolejnych indeksach od jednego do długości łańcucha (indeksowanie na podstawie jednego), połącz elementy w odwrotnej kolejności, wydrukuj.

Rubin , 39 bajtów

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

Wypróbuj online!

JavaScript, 48 43 36 bajtów

-5 bajtów dzięki uprzejmości @Bubbler * -7 bajtów dzięki uprzejmości @Shaggy

Dane wejściowe to tablica znaków, a dane wyjściowe to tablica znaków.

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

Wypróbuj online!

Common Lisp, 88 bajtów

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

Wypróbuj online!

MBASIC , 69 66 bajtów

-3 bajty, dzięki Ørjan Johansen

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

pieprzenie mózgu , 38 bajtów

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

Wypróbuj online!

Oparty na pomyśle JoKinga, aby używać znaków null jako symboli spacji. Ten kod oznacza bieżące litery do wydrukowania i zapętla się, aż dojdzie do lewego końca.

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