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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Factorial/Babel/factorial-1.pb Normal file
View file

@ -0,0 +1,10 @@
((main
{(0 1 2 3 4 5 6 7 8 9 10)
{fact ! %d nl <<}
each})
(fact
{({dup 0 =}{ zap 1 }
{dup 1 =}{ zap 1 }
{1 }{ <- 1 {iter 1 + *} -> 1 - times })
cond}))

10
Task/Factorial/Babel/factorial-2.pb Normal file
View file

@ -0,0 +1,10 @@
((main
{(0 1 2 3 4 5 6 7 8 9 10)
{fact ! %d nl <<}
each})
(fact
{({dup 0 =}{ zap 1 }
{dup 1 =}{ zap 1 }
{1 }{ dup 1 - fact ! *})
cond}))

16
Task/Factorial/Babel/factorial.pb
View file

@ -1,16 +0,0 @@
main:
{ argv 0 th $d
fac
%d cr << }
fac!:
{ dup zero?
{ dup one?
{ cp 1 - fac * }
{ zap 1 }
if }
{ zap 1 }
if }
one?! : { 1 = }
zero?!: { 0 = }