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

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Y-combinator/Oforth/y-combinator-1.oforth Normal file
View file

@ -0,0 +1 @@
: Y(f) #[ f Y f perform ] ;

2
Task/Y-combinator/Oforth/y-combinator-2.oforth Normal file
View file

@ -0,0 +1,2 @@
: X(me, f) #[ me f me perform f perform ] ;
: Y(f) #X f X ;

11
Task/Y-combinator/Oforth/y-combinator-3.oforth Normal file
View file

@ -0,0 +1,11 @@
: almost-fact(n, f) n ifZero: [ 1 ] else: [ n n 1 - f perform * ] ;
#almost-fact Y => fact
: almost-fib(n, f) n 1 <= ifTrue: [ n ] else: [ n 1 - f perform n 2 - f perform + ] ;
#almost-fib Y => fib
: almost-Ackermann(m, n, f)
m 0 == ifTrue: [ n 1 + return ]
n 0 == ifTrue: [ 1 m 1 - f perform return ]
n 1 - m f perform m 1 - f perform ;
#almost-Ackermann Y => Ackermann