1 line
83 B
Coq
1 line
83 B
Coq
[seq [] swap dup [zero? not] [rolldown [dup] dip cons rollup pred] while pop pop].
|
[seq [] swap dup [zero? not] [rolldown [dup] dip cons rollup pred] while pop pop].
|