11 of 13 one more byte

Perl 5, 41 bytes

39 bytes plus two for the -lF flags (-M5.01 is free): perl -lF -M5.01 script.pl



  • -lF reads the input, removes the trailing newline, puts the remainder into the string $_, splits it up into characters, and puts that split into the array @F.
  • /#+/ finds #s in $_ and sets $` equal to the stuff before it and $' equal to the stuff after it. $'.$` is thus the number of times to rotate the array.
  • Now for every element of the list from 1 to $'.$`, rotate the array (pop the last element and unshift it onto the beginning).
  • Then say all the elements of the rotated array.