3 lines
79 B
Forth
3 lines
79 B
Forth
|
: ^ over swap 1 ?do over * loop nip ;
|
||
|
|
s" 3 4 2 * 1 5 - 2 3 ^ ^ / +" evaluate .
|