10 lines
182 B
Forth
10 lines
182 B
Forth
|
: decomp ( n -- )
|
||
|
|
2
|
||
|
|
begin 2dup dup * >=
|
||
|
|
while 2dup /mod swap
|
||
|
|
if drop 1+ 1 or \ next odd number
|
||
|
|
else -rot nip dup .
|
||
|
|
then
|
||
|
|
repeat
|
||
|
|
drop . ;
|