Edit - Code Golf Stack Exchange

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

Rev

Required fields*

Unfurl a string

Given a square string, produce all the output for the string at every stage of unfurling.

The string must unfurl in a clockwise direction one quarter turn at a time.

Examples

Input:

Output:

Note: I'll also accept the input duplicated for this particular test case only if this helps reduce your byte count.

Input:

DC
AB

Output:

DC
AB
 D
ABC
ABCD

Input:

GFE
HID
ABC

Output:

GFE
HID
ABC
 HG
 IF
ABCDE
 IH
ABCDEFG
 I
ABCDEFGH
ABCDEFGHI

Input:

JIHG
KPOF
LMNE
ABCD

Output:

JIHG
KPOF
LMNE
ABCD
 LKJ
 MPI
 NOH
ABCDEFG
 NML
 OPK
ABCDEFGHIJ
 ON
 PM
ABCDEFGHIJKL
 PO
ABCDEFGHIJKLMN
 P
ABCDEFGHIJKLMNO
ABCDEFGHIJKLMNOP

Rules

This is code-golf so the shortest code in bytes wins.

Any reasonable format can be used for I/O assuming it is consistent.
Spaces must be used to pad the top lines of the output.
Must be able to handle input of all printable characters (including space: \x20-\x7e):

 !"#$%&'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

Leading/trailing whitespace is allowed.
You can assume the string will always be a square.
All standard loopholes are forbidden.

Inspiration: Write a square program that outputs the number of times it has been "unrolled".

Answer*

# [Perl 5], 155 bytes



 $"=,ドル;@a=map[/./g],<>;while(@a){say' 'x(length$s)."@$_"for@a[0..@a-2];say$s.="@{pop@a}";say@b=();for$i(0..$#a){$q=0;$b[$q++][$#a-$i]=$_ for@{$a[$i]}}@a=@b}

[Try it online!][TIO-j6pdcofj]

[Perl 5]: https://www.perl.org/
[TIO-j6pdcofj]: https://tio.run/##FY5dC4IwGEbv@xWyXlAxpwVercXbd130C8aQCaaC5fyACvGvt9blczgcHp13dWIMEA4Lhoo/lBYRjQq5WG/Yq6zq3EPlj736uI779ur8WQwl9D4lCCm5Nx0qEVOKKlxJZi3oKSc46kajmsifYMY9n1kTKs@aMLc5aHnMIBPQBoEUFoVQSQ6p8w@OoISd02TvYDYZcz4dZ5frYbbd7b@NHqrm2ZvwltB4Gf8A "Perl 5 – Try It Online"

Saved a few bytes without really modifying the logic. The flow below is still basically correct.


<s># [Perl 5], 163 bytes</s>



 $"=,ドル;@a=map[/./g],<>;while(@a){say' 'x(length$s)."@{$a[$_]}"for 0..@a-2;say$s.="@{pop@a}";say@b=();for$i(0..$#a){$b[$_][$#a-$i]=$a[$i][$_]for 0..$#{$a[$i]}}@a=@b}

[Try it online!][TIO-j6n154ja]

[Perl 5]: https://www.perl.org/
[TIO-j6n154ja]: https://tio.run/##LY7dCoIwFIDvfQqZB1TQaYFXtlj/ddETyIgJpgPToUKF7NVbG3V3@M53Po6shjbTGhCBKKecPLgsEpzULFqt82cj2iqgPJxH/vZd/xW0VVdPDYwhRnQGXsCNKXTvBzfFmPJ4mRsRRkzMVvaScoUsoSUJwtxoIAIjgmeKUNrjwswxCEZsSzCL/jXw5h9TyrxFS6X16Xhwzpe9s9nuPr2cRN@NOr5mOF2kXw "Perl 5 – Try It Online"

**How?**

 $"=,ドル; #set the array output separator to null
 @a=map[/./g],<>; # take the input as a 2-D array @a
 while(@a){ # repeat while there are still things to unfurl
 say' 'x(length$s)."@{$a[$_]}"for 0..@a-2; # output all but last
 # line of the remaining
 # square
 say$s.="@{pop@a}"; # remove bottom row, add it to the unfurled string $s
 # and output it
 say@b=(); # clear temporary array; output empty array, causing
 # a newline to output

 # rotate remaining shape 90 degrees:
 for$i(0..$#a){$b[$_][$#a-$i]=$a[$i][$_]for 0..$#{$a[$i]}}
 @a=@b # replace input with rotated array
 }

If this is an answer to a challenge…

…Be sure to follow the challenge specification. However, please refrain from exploiting obvious loopholes. Answers abusing any of the standard loopholes are considered invalid. If you think a specification is unclear or underspecified, comment on the question instead.
…Try to optimize your score. For instance, answers to code-golf challenges should attempt to be as short as possible. You can always include a readable version of the code in addition to the competitive one. Explanations of your answer make it more interesting to read and are very much encouraged.
…Include a short header which indicates the language(s) of your code and its score, as defined by the challenge.

More generally…

…Please make sure to answer the question and provide sufficient detail.
…Avoid asking for help, clarification or responding to other answers (use comments instead).

Draft saved

Draft discarded

Edit Summary*

Cancel

\$\begingroup\$ Nice method, but I'm after the output at each stage of unfurling, could you update to print all steps? Sorry! \$\endgroup\$

Dom Hastings
– Dom Hastings

2017年08月21日 15:23:30 +00:00
Commented Aug 21, 2017 at 15:23
1

\$\begingroup\$ OK, I rewrote it. \$\endgroup\$

Xcali
– Xcali

2017年08月21日 19:05:07 +00:00
Commented Aug 21, 2017 at 19:05
\$\begingroup\$ Perfect, thanks! Sorry for causing extra bytes though... \$\endgroup\$

Dom Hastings
– Dom Hastings

2017年08月21日 19:09:59 +00:00
Commented Aug 21, 2017 at 19:09

Add a comment |

How to Edit

Correct minor typos or mistakes
Clarify meaning without changing it
Add related resources or links
Always respect the author’s intent
Don’t use edits to reply to the author

How to Format

create code fences with backticks ` or tildes ~
```
like so
```
add language identifier to highlight code
```python
def function(foo):
print(foo)
```
put returns between paragraphs
for linebreak add 2 spaces at end
_italic_ or **bold**
indent code by 4 spaces
backtick escapes `like _so_`
quote by placing > at start of line
to make links (use https whenever possible)

<https://example.com>

[example](https://example.com)

<a href="https://example.com">example</a>
MathJax equations \$\sin^2 \theta\$

formatting help »
answering help »

MathJax help »

How to Tag

A tag is a keyword or label that categorizes your question with other, similar questions. Choose one or more (up to 5) tags that will help answerers to find and interpret your question.

complete the sentence: my question is about...
use tags that describe things or concepts that are essential, not incidental to your question
favor using existing popular tags
read the descriptions that appear below the tag

If your question is primarily about a topic for which you can't find a tag:

combine multiple words into single-words with hyphens (e.g. code-golf), up to a maximum of 35 characters
creating new tags is a privilege; if you can't yet create a tag you need, then post this question without it, then ask the community to create it for you

popular tags »