aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Factorial/Red/factorial-1.red Normal file
View file

@ -0,0 +1,2 @@
fac: function [n][r: 1 repeat i n [r: r * i] r]
fac: function [n][repeat i also n n: 1 [n: n * i] n]

3
Task/Factorial/Red/factorial-2.red Normal file
View file

@ -0,0 +1,3 @@
fac: func [n][either n > 1 [n * fac n - 1][1]]
fac: func [n][any [if n = 0 [1] n * fac n - 1]]
fac: func [n][do pick [[n * fac n - 1] 1] n > 1]

1
Task/Factorial/Red/factorial-3.red Normal file
View file

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