6 lines
83 B
Text
6 lines
83 B
Text
factorial:
|
|
1
|
|
while over:
|
|
* over
|
|
swap -- swap
|
|
drop swap
|