14 lines
342 B
Plaintext
14 lines
342 B
Plaintext
(2 over over mod 'div dip) :divmod2
|
|
|
|
(
|
|
:n () =list
|
|
(n 0 >) (n divmod2 list append #list @n) while
|
|
list (1 ==) filter size
|
|
) :pop-count
|
|
|
|
(:n 0 () (over swap append 'succ dip) n times) :iota
|
|
|
|
"3^n: " print! 30 iota (3 swap pow int pop-count) map puts!
|
|
60 iota (pop-count odd?) partition
|
|
"Evil: " print! puts! "Odious: " print! puts!
|