23 lines
334 B
Text
23 lines
334 B
Text
/O> [ 3 ** ] is cubed ( n --> n )
|
|
...
|
|
|
|
Stack empty.
|
|
|
|
/O> ' [ 1 2 3 4 5 6 7 8 9 10 ]
|
|
... [] swap witheach
|
|
... [ cubed join ]
|
|
...
|
|
|
|
Stack: [ 1 8 27 64 125 216 343 512 729 1000 ]
|
|
|
|
/O> drop
|
|
...
|
|
|
|
Stack empty.
|
|
|
|
/O> ' [ 1 2 3 4 5 6 7 8 9 10 ]
|
|
... dup witheach
|
|
... [ cubed swap i^ poke ]
|
|
...
|
|
|
|
Stack: [ 1 8 27 64 125 216 343 512 729 1000 ]
|