9 lines
93 B
Plaintext
9 lines
93 B
Plaintext
|= a=(list *)
|
|
=/ n=@ud 1
|
|
|-
|
|
?~ a
|
|
%napoleonesque-list
|
|
?: =(3 n)
|
|
i.a
|
|
$(n +(n), a t.a)
|