15 lines
308 B
Text
15 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 [ --> [ )
|