16 lines
308 B
Text
16 lines
308 B
Text
|
[ this ] is null ( --> [ )
|
||
|
|
|
||
|
|
[ 0 unrot
|
||
|
|
witheach
|
||
|
|
[ dip
|
||
|
|
[ behead rot ]
|
||
|
|
* + swap ]
|
||
|
|
drop ] is [a]-> ( [ [ --> n )
|
||
|
|
|
||
|
|
[ [] unrot
|
||
|
|
reverse
|
||
|
|
witheach
|
||
|
|
[ /mod rot
|
||
|
|
join swap ]
|
||
|
|
drop ] is ->[a] ( n [ --> [ )
|