2 lines
55 B
Forth
2 lines
55 B
Forth
: ** ( n m -- n^m )
|
|
1 swap 0 ?do over * loop nip ;
|
: ** ( n m -- n^m )
|
|
1 swap 0 ?do over * loop nip ;
|