src/test/run-pass/fixed-point-bind-unique.rs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

fn fix_help<A, B: send>(f: native fn(fn@(A) -> B, A) -> B, x: A) -> B {
    ret f(bind fix_help(f, _), x);
}

fn fix<A, B: send>(f: native fn(fn@(A) -> B, A) -> B) -> fn@(A) -> B {
    ret bind fix_help(f, _);
}

fn fact_(f: fn@(&&int) -> int, &&n: int) -> int {
    // fun fact 0 = 1
    ret if n == 0 { 1 } else { n * f(n - 1) };
}

fn main() {
    let fact = fix(fact_);
    assert (fact(5) == 120);
    assert (fact(2) == 2);
}