RosettaCodeData/Task/Factorial/Red/factorial-3.red

2 lines
60 B
Plaintext

fac: function [n][m: #(0 1) any [m/:n m/:n: n * fac n - 1]]