7 lines
108 B
Text
7 lines
108 B
Text
|
to factorial :n
|
||
|
|
make "fact 1
|
||
|
|
make "i 1
|
||
|
|
repeat :n [make "fact :fact * :i make "i :i + 1]
|
||
|
|
print :fact
|
||
|
|
end
|