4 lines
137 B
Text
4 lines
137 B
Text
#import nat
|
|
|
|
good_factorial = ~&?\1! product:-1^lrtPC/~& iota
|
|
better_factorial = ~&?\1! ^T(~&lSL,@rS product:-1)+ ~&Z-~^*lrtPC/~& iota
|