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