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

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Factorial/SNOBOL4/factorial-1.sno Normal file
View file

@ -0,0 +1,4 @@
define('rfact(n)') :(rfact_end)
rfact rfact = le(n,0) 1 :s(return)
rfact = n * rfact(n - 1) :(return)
rfact_end

4
Task/Factorial/SNOBOL4/factorial-2.sno Normal file
View file

@ -0,0 +1,4 @@
define('trfact(n,f)') :(trfact_end)
trfact trfact = le(n,0) f :s(return)
trfact = trfact(n - 1, n * f) :(return)
trfact_end

5
Task/Factorial/SNOBOL4/factorial-3.sno Normal file
View file

@ -0,0 +1,5 @@
define('ifact(n)') :(ifact_end)
ifact ifact = 1
if1 ifact = gt(n,0) n * ifact :f(return)
n = n - 1 :(if1)
ifact_end

3
Task/Factorial/SNOBOL4/factorial-4.sno Normal file
View file

@ -0,0 +1,3 @@
loop i = le(i,10) i + 1 :f(end)
output = rfact(i) ' ' trfact(i,1) ' ' ifact(i) :(loop)
end