ความท้าทายที่นี่คือการใช้สายอักขระและเอาท์พุทการหมุนทั้งหมดของมันโดยการย้ายตัวละครตัวแรกไปยังจุดสิ้นสุดซ้ำ ๆ หนึ่งครั้งต่อตัวละครในสตริงที่ลงท้ายด้วยสตริงเดิม:

john -> ohnj, hnjo, njoh, john

นอกจากนี้คุณยังสามารถวนไปในทิศทางอื่น ๆ ย้ายตัวละครจากท้ายที่สุด:

john -> njoh, hnjo, ohnj, john

คุณควรส่งออกหนึ่งรอบการหมุนต่อตัวอักษรแม้ว่าจะถึงคำดั้งเดิมก่อนหน้านั้น:

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

อนุญาตให้ใช้อาร์เรย์อักขระได้ตราบใดที่ผลลัพธ์ดังที่แสดงด้านบน

คำตอบที่สั้นที่สุดชนะ!

เยลลี่ 2 ไบต์

ṙJ

Monadic Link ยอมรับรายการของอักขระที่ให้รายการของอักขระ

ลองออนไลน์! (ส่วนท้ายที่สวยพิมพ์โดยการเรียกลิงค์และเข้าร่วมกับตัวละครขึ้นบรรทัดใหม่)

Haskell, 27 ไบต์

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

ลองออนไลน์!

APL (Dyalog Unicode) , 6 ไบต์^SBCS

⍳∘≢⌽¨⊂

ลองออนไลน์!

⍳ ดัชนี

∘ ของ

≢ นับ

⌽¨ หมุนแต่ละครั้ง (ไปทางซ้าย)

⊂ สตริงทั้งหมด

Python 2 , 38 ไบต์

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

ลองออนไลน์!

JavaScript (ES6), 37 32 ไบต์

ส่งคืนอาร์เรย์ของสตริง

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

ลองออนไลน์!

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

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

ลองออนไลน์!

เอาต์พุตแต่ละสตริงคั่นด้วย null null

คำอธิบาย:

,[>,]    # 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&+)

บันทึก 1 ไบต์ขอบคุณ @luis!

ลองที่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 (Mathematica) , 35 26 ไบต์

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

ลองออนไลน์!

ใช้รายการอักขระเป็นอินพุต

Partition(แต่ไม่ใช่ตัวแปรที่StringPartitionใช้ด้านล่าง) มีอาร์กิวเมนต์ที่สี่ที่เป็นตัวเลือกสำหรับจัดการอินพุตของมันเป็นวงจร (และสำหรับการระบุวิธีการทำเช่นนั้น) ซึ่งทำให้การแก้ปัญหานี้ง่ายกว่าสตริงหนึ่ง - นอกเหนือจากไม่มีอักขระ 15 ตัวใด ๆ ในฟังก์ชั่น

ภาษา Wolfram (Mathematica)ขนาด 44 ไบต์

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

ลองออนไลน์!

เหมือนกัน แต่ใช้สตริงเป็นอินพุต

ผลัดกัน"john"เข้าไป"johnjohn"แล้วจะใช้เวลาทั้งหมด length- 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 # Interactive คอมไพเลอร์) , 34 ไบต์

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

ลองออนไลน์!

C (32- บิต), 58 51 50 ไบต์

-1 ไบต์สำหรับจำนวนรอบที่ดีต้องขอบคุณแมวป่า

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

ลองออนไลน์!

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

ถ่าน 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

เพื่อหมุนในทิศทางตรงกันข้ามแทนที่ด้วยMinusPlus

สีแดง , 49 43 ไบต์

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

ลองออนไลน์!

Python 2 , 54 48 ไบต์

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

ลองออนไลน์!

พ่ายแพ้อย่างดีโดยxnorแต่โพสต์เป็นวิธีทางเลือกต่อไป

Perl 6 , 32 ไบต์

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

ลองออนไลน์!

m:ex/^(.*)(.+)$/ exmการแยก regex ที่กำหนดไว้อย่างเร่งด่วนแยกสตริงอินพุตในทุกที่ที่เป็นไปได้ยกเว้นสตริงย่อยที่สองต้องมีอักขระอย่างน้อยหนึ่งตัว - ซึ่งป้องกันไม่ให้สตริงอินพุตแสดงขึ้นสองครั้งในเอาต์พุต จากนั้นแต่ละMatchกลุ่มการดักจับของวัตถุที่เป็นผลลัพธ์จะถูกลดขนาดลง ( []) เหลือเพียงสายเดียวด้วยR~ตัวดำเนินการเชื่อมต่อสายอักขระที่กลับด้าน

Pushy , 4 ไบต์

L:{"

ลองออนไลน์!

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

V , 8 ไบต์

ýñx$pÙñd

ลองออนไลน์!

hexdump:

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

Powershell ขนาด 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

ลองออนไลน์!

แยกสตริงที่ดัชนีต่อเนื่องจากหนึ่งถึงความยาวของสตริง (การทำดัชนีแบบฐานเดียว) เชื่อมต่อชิ้นส่วนตามลำดับย้อนกลับพิมพ์

Ruby , 39 ไบต์

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

ลองออนไลน์!

JavaScript, 48 43 36 ไบต์

-5 ไบต์ความอนุเคราะห์ของ @Bubbler * -7 bytes ความอนุเคราะห์ของ @Shaggy

อินพุตเป็นอาร์เรย์อักขระและเอาต์พุตเป็นอาร์เรย์ของอักขระอาร์เรย์

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

ลองออนไลน์!

Lisp ทั่วไป, 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 ไบต์

-3 ไบต์ขอบคุณØrjan Johansen

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

brainfuck , 38 ไบต์

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

ลองออนไลน์!

ตามแนวคิดของ JoKing ที่จะใช้อักขระ null เป็นสัญลักษณ์ช่องว่าง รหัสนี้ทำเครื่องหมายตัวอักษรปัจจุบันเพื่อพิมพ์และวนซ้ำจนกว่าจะถึงด้านซ้าย

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