#SOGL V0.12 , (削除) 21 (削除ここまで)(削除) 20 (削除ここまで)(削除) 19 (削除ここまで)(削除) 18 (削除ここまで) 17 bytes
ø;[;ο4Noč▓┼NoTJι;jI
SOGL V0.12 , (削除) 21 (削除ここまで)(削除) 20 (削除ここまで)(削除) 19 (削除ここまで)(削除) 18 (削除ここまで) 17 bytes
ø;[;ο4Noč▓┼NoTJι;jI
#SOGL V0.12 , (削除) 21 (削除ここまで)(削除) 20 (削除ここまで)(削除) 19 (削除ここまで)(削除) 18 (削除ここまで) 17 bytes
ø;[;ο4Noč▓┼NoTJι;jI
SOGL V0.12 , (削除) 21 (削除ここまで)(削除) 20 (削除ここまで)(削除) 19 (削除ここまで)(削除) 18 (削除ここまで) 17 bytes
ø;[;ο4Noč▓┼NoTJι;jI
#SOGL V0.12, (削除) 21 (削除ここまで) (削除) 20 (削除ここまで) (削除) 19 (削除ここまで) 18(削除) 18 (削除ここまで) 17 bytes
ø;[4ο4Noč▓┼NoPJ∑h+;Iø;[;ο4Noč▓┼NoTJι;jI
Try it Here! Try it Here! (→ added because this expects input on the stack)
ø;[;ο4Noč▓┼NoTJι;jI
ø; push an empty string below the input stack with the input GFE,HID,ABC
] [ while [ToS (the array) isn't empty] do ["", [["G","F","E"],["H","I","D"],["A","B","C"]]]
printing stack at the second time looping
4 ; duplicate 2nd from top ["ABC", [[H[[[H,G], [I,F], [D,E]], "ABC"]
ο wrap it in an array ["ABC", [[H[[[H,G], [I,F], [D,E]], ["ABC"]]
4 duplicate 2nd from top ["ABC", [[H[[[H,G], [I,F], [D,E]], ["ABC"], [[H,G], [I,F], [D,E]]]
No reverse vertically ["ABC", [[H[[[H,G], [I,F], [D,E]], ["ABC"], [[D,E], [I,F], [H,G]]]
č▓ join the inner arrays (┼ fails otherwise) ["ABC", [[H[[[H,G], [I,F], [D,E]], ["ABC"], ["DE", "IF", "HG"]]
┼ add the 2 parts together ["ABC", [[H[[[H,G], [I,F], [D,E]], ["ABCDE", " IF", " HG"]]
No reverse vertically again ["ABC", [[H[[[H,G], [I,F], [D,E]], [" HG", " IF", "ABCDE"]]
P T print that without popping ["ABC", [[H[[[H,G], [I,F], [D,E]]]
unrolling E]], [" HG", " IF", "ABCDE"]]
J take the last line off ["ABC", [[H[[[H,G], [I,F]]F], [D,E]], [" HG", " IF"], "ABCDE"]
∑ join it together ι remove the rest of the array ["ABC", [[H[[[H,G], [I,F]]F], "DE"]
[D,E]], "ABCDE"]
h+ ;j append it toremove the string last line of the original array ["ABCDE", [[H,G], [I,F]]]
[[[H,G], [I,F]], "ABCDE"]
I rotate it clockwise ;I get the array & rotate it clockwise ["ABCDE", [[I,H], [F,G]]]
#SOGL V0.12, (削除) 21 (削除ここまで) (削除) 20 (削除ここまで) (削除) 19 (削除ここまで) 18 bytes
ø;[4ο4Noč▓┼NoPJ∑h+;I
Try it Here! (→ added because this expects input on the stack)
ø; push an empty string below the input stack with the input GFE,HID,ABC
] while [ToS (the array) isn't empty] do ["", [["G","F","E"],["H","I","D"],["A","B","C"]]]
printing stack at the second time looping
4 duplicate 2nd from top ["ABC", [[H,G], [I,F], [D,E]], "ABC"]
ο wrap it in an array ["ABC", [[H,G], [I,F], [D,E]], ["ABC"]]
4 duplicate 2nd from top ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], [[H,G], [I,F], [D,E]]]
No reverse vertically ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], [[D,E], [I,F], [H,G]]]
č▓ join the inner arrays (┼ fails otherwise) ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], ["DE", "IF", "HG"]]
┼ add the 2 parts together ["ABC", [[H,G], [I,F], [D,E]], ["ABCDE", " IF", " HG"]]
No reverse vertically again ["ABC", [[H,G], [I,F], [D,E]], [" HG", " IF", "ABCDE"]]
P print that ["ABC", [[H,G], [I,F], [D,E]]]
unrolling
J take the last line off ["ABC", [[H,G], [I,F]], [D,E]] ∑ join it together ["ABC", [[H,G], [I,F]], "DE"]
h+ append it to the string [[[H,G], [I,F]], "ABCDE"]
;I get the array & rotate it clockwise ["ABCDE", [[I,H], [F,G]]]
#SOGL V0.12, (削除) 21 (削除ここまで) (削除) 20 (削除ここまで) (削除) 19 (削除ここまで) (削除) 18 (削除ここまで) 17 bytes
ø;[;ο4Noč▓┼NoTJι;jI
Try it Here! (→ added because this expects input on the stack)
ø;[;ο4Noč▓┼NoTJι;jI
ø; push an empty string below the input stack with the input GFE,HID,ABC
[ while [ToS (the array) isn't empty] do ["", [["G","F","E"],["H","I","D"],["A","B","C"]]]
stack at the second time looping
; duplicate 2nd from top [[[H,G], [I,F], [D,E]], "ABC"]
ο wrap it in an array [[[H,G], [I,F], [D,E]], ["ABC"]]
4 duplicate 2nd from top [[[H,G], [I,F], [D,E]], ["ABC"], [[H,G], [I,F], [D,E]]]
No reverse vertically [[[H,G], [I,F], [D,E]], ["ABC"], [[D,E], [I,F], [H,G]]]
č▓ join the inner arrays (┼ fails otherwise) [[[H,G], [I,F], [D,E]], ["ABC"], ["DE", "IF", "HG"]]
┼ add the 2 parts together [[[H,G], [I,F], [D,E]], ["ABCDE", " IF", " HG"]]
No reverse vertically again [[[H,G], [I,F], [D,E]], [" HG", " IF", "ABCDE"]]
T print that without popping [[[H,G], [I,F], [D,E]], [" HG", " IF", "ABCDE"]]
J take the last line off [[[H,G], [I,F], [D,E]], [" HG", " IF"], "ABCDE"]
ι remove the rest of the array [[[H,G], [I,F], [D,E]], "ABCDE"]
;j remove the last line of the original array ["ABCDE", [[H,G], [I,F]]]
I rotate it clockwise ["ABCDE", [[I,H], [F,G]]]
Explanation:
ø; push an empty string below the input stack with the input GFE,HID,ABC
] while [ToS (the array) isn't empty] do ["", [["G","F","E"],["H","I","D"],["A","B","C"]]]
printing stack at the second time looping
4 duplicate 2nd from top ["ABC", [[H,G], [I,F], [D,E]], "ABC"]
ο wrap it in an array ["ABC", [[H,G], [I,F], [D,E]], ["ABC"]]
4 duplicate 2nd from top ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], [[H,G], [I,F], [D,E]]]
No reverse vertically ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], [[D,E], [I,F], [H,G]]]
č▓ join the inner arrays (┼ fails otherwise) ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], ["DE", "IF", "HG"]]
┼ add the 2 parts together ["ABC", [[H,G], [I,F], [D,E]], ["ABCDE", " IF", " HG"]]
No reverse vertically again ["ABC", [[H,G], [I,F], [D,E]], [" HG", " IF", "ABCDE"]]
P print that ["ABC", [[H,G], [I,F], [D,E]]]
unrolling
J take the last line off ["ABC", [[H,G], [I,F]], [D,E]]
∑ join it together ["ABC", [[H,G], [I,F]], "DE"]
h+ append it to the string [[[H,G], [I,F]], "ABCDE"]
;I get the array & rotate it clockwise ["ABCDE", [[I,H], [F,G]]]
Explanation:
ø; push an empty string below the input stack with the input GFE,HID,ABC
] while [ToS (the array) isn't empty] do ["", [["G","F","E"],["H","I","D"],["A","B","C"]]]
printing stack at the second time looping
4 duplicate 2nd from top ["ABC", [[H,G], [I,F], [D,E]], "ABC"]
ο wrap it in an array ["ABC", [[H,G], [I,F], [D,E]], ["ABC"]]
4 duplicate 2nd from top ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], [[H,G], [I,F], [D,E]]]
No reverse vertically ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], [[D,E], [I,F], [H,G]]]
č▓ join the inner arrays (┼ fails otherwise) ["ABC", [[H,G], [I,F], [D,E]], ["ABC"], ["DE", "IF", "HG"]]
┼ add the 2 parts together ["ABC", [[H,G], [I,F], [D,E]], ["ABCDE", " IF", " HG"]]
No reverse vertically again ["ABC", [[H,G], [I,F], [D,E]], [" HG", " IF", "ABCDE"]]
P print that ["ABC", [[H,G], [I,F], [D,E]]]
unrolling
J take the last line off ["ABC", [[H,G], [I,F]], [D,E]]
∑ join it together ["ABC", [[H,G], [I,F]], "DE"]
h+ append it to the string [[[H,G], [I,F]], "ABCDE"]
;I get the array & rotate it clockwise ["ABCDE", [[I,H], [F,G]]]