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

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

36
Task/Y-combinator/Objective-C/y-combinator.m
View file

@ -16,27 +16,27 @@ Func fix (FuncFunc f) {
}
int main (int argc, const char *argv[]) {
NSAutoreleasePool * pool = [[NSAutoreleasePool alloc] init];
@autoreleasepool {
FuncFunc almost_fac = ^Func(Func f) {
return [[^(int n) {
if (n <= 1) return 1;
return n * f(n - 1);
} copy] autorelease];
};
FuncFunc almost_fac = ^Func(Func f) {
return ^(int n) {
if (n <= 1) return 1;
return n * f(n - 1);
};
};
FuncFunc almost_fib = ^Func(Func f) {
return [[^(int n) {
if (n <= 2) return 1;
return f(n - 1) + f(n - 2);
} copy] autorelease];
};
FuncFunc almost_fib = ^Func(Func f) {
return ^(int n) {
if (n <= 2) return 1;
return f(n - 1) + f(n - 2);
};
};
Func fib = fix(almost_fib);
Func fac = fix(almost_fac);
NSLog(@"fib(10) = %d", fib(10));
NSLog(@"fac(10) = %d", fac(10));
Func fib = fix(almost_fib);
Func fac = fix(almost_fac);
NSLog(@"fib(10) = %d", fib(10));
NSLog(@"fac(10) = %d", fac(10));
[pool release];
}
return 0;
}