examples/lamb.nl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

make_adder (x: int32) -> fn (p: int32) -> int32
{
    // Which looks prettier? This:
    
    //		return (() => y => x + y)();              

    // or this:
    
    return fn () -> fn (p: int32) -> int32
    {
	return fn (y: int32) -> int32 { return x + y; };
    } ();
}

adder: fn (p: int32) -> int32;

adder = make_adder (100);

for (i: = 0; i < 81150; ++i)
{
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
    adder = make_adder (adder (100));
}

print adder (500);