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