10 lines
247 B
Text
10 lines
247 B
Text
$ "ABCD CABD ACDB DACB BCDA ACBD
|
|
ADCB CDAB DABC BCAD CADB CDBA
|
|
CBAD ABDC ADBC BDCA DCBA BACD
|
|
BADC BDAC CBDA DBCA DCAB" nest$
|
|
16 base put
|
|
[] swap
|
|
witheach [ $->n drop join ]
|
|
0 swap witheach ^
|
|
number$ echo$
|
|
base release
|