4 lines
141 B
Text
4 lines
141 B
Text
define('trfact(n,f)') :(trfact_end)
|
|
trfact trfact = le(n,0) f :s(return)
|
|
trfact = trfact(n - 1, n * f) :(return)
|
|
trfact_end
|