6 lines
138 B
Text
6 lines
138 B
Text
|
define('ifact(n)') :(ifact_end)
|
||
|
|
ifact ifact = 1
|
||
|
|
if1 ifact = gt(n,0) n * ifact :f(return)
|
||
|
|
n = n - 1 :(if1)
|
||
|
|
ifact_end
|