Skip to main content
We’ve updated our Terms of Service. A new AI Addendum clarifies how Stack Overflow utilizes AI interactions.
Code Golf

Return to Answer

Commonmark migration
Source Link

#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
golf & golf the input because I can
Source Link
dzaima
  • 20.3k
  • 2
  • 42
  • 75

#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]]]
added 1750 characters in body
Source Link
dzaima
  • 20.3k
  • 2
  • 42
  • 75

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]]]
added 9 characters in body
Source Link
dzaima
  • 20.3k
  • 2
  • 42
  • 75
Loading
added 9 characters in body
Source Link
dzaima
  • 20.3k
  • 2
  • 42
  • 75
Loading
added 5 characters in body
Source Link
dzaima
  • 20.3k
  • 2
  • 42
  • 75
Loading
Source Link
dzaima
  • 20.3k
  • 2
  • 42
  • 75
Loading

AltStyle によって変換されたページ (->オリジナル) /