Wirujące spirale

12

Biorąc pod uwagę kwadrat tekstu reprezentujący spiralę znaków, obróć go!

Spirala zaczyna się na środku i przesuwa się w kierunku przeciwnym do ruchu wskazówek zegara do zewnętrznej krawędzi, zaczynając na lewo od środka:

987
216
345

To przekłada się na ciąg 123456789. Obrót odbywa się w lewo , więc jeśli obrócisz go o jedną pozycję, będzie 234567891. Reprezentuje to:

198
327
456

Wejście

Wejście składa się ze spirali i odległości do jej obrócenia.

Odległość zawsze będzie dodatnią liczbą całkowitą lub zerem i może być ograniczona limitem typu danych w Twoim języku.

Spirala powinna być traktowana jako ciąg znaków z wybranym ogranicznikiem linii (w tym bez ogranicznika). Zawsze będzie kwadratem, bez ograniczników, i będzie miał nieparzystą długość boku.

Załóż, że wszystkie znaki są alfanumeryczne [A-Za-z0-9].

Wynik

Wyjściem jest obrócona spirala. Powinien to być kwadrat na wielu liniach (drukowany lub zwracany).

Przykłady

Wejście

3
tne
atd
bin

Wynik

bat
nit
den

Wejście

18
efilr
naepo
umshf
tootr
butte

Wynik

rettu
omseb
oofft
trliu
hpean

To jest kod golfowy, z wynikiem liczonym jak zwykle w bajtach.

Geobity
źródło

Odpowiedzi:

6

CJam, 45 44 bajtów

]]l~LqN/{(W%@+\zW%}h;m<{1$,/(W%a@W%z+\s}h;N*

Sprawdź to tutaj.

Wyjaśnienie

Leniwe rozwiązanie: rozpakuj spiralę, użyj wbudowanego obrotu CJam, ponownie zwiń spiralę.

]]       e# Push [""]. We'll later use this to roll up the spiral.
l~       e# Read the integer and evaluate it.
L        e# Push an empty string: we'll unroll the input into this.
qN/      e# Read the spiral and split it into lines.
{        e# While the top of the stack is truthy...
  (W%    e#   Pull the first line off the spiral and reverse it.
  @+     e#   Pull up the string we've built so far and prepend the reversed line.
  \zW%   e#   Swap with the remaining spiral, and rotate the spiral.
}h       e# This terminates when the centre character has been added to the string and
         e# the spiral becomes an empty array.
;        e# Discard the empty array.
         e# Note that we've unrolled the spiral from outside in, but we've also built up
         e# the string in reverse, which gives us the string from inside out.
m<       e# Rotate to the left by the given number of characters.
{        e# While the top of the stack is truthy...
  1$,    e#   Copy the spiral so far and get the number of lines.
  /      e#   Split the string into chunks of that size.
  (W%a   e#   Pull off the first chunk, reverse it and wrap it in an array.
  @zW%   e#   Pull up the spiral so far, rotate it.
  +      e#   Prepend the chunk to the spiral as a line.
  \s     e#   Swap with the other chunks and flatten them into a string again.
}h       e# This terminates when the string has been used up completely.
;        e# Discard the empty string.
N*       e# Join the lines with linefeed characters.
Martin Ender
źródło