6 lines
108 B
Text
6 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
|