Applicative-order Fixed-Point Operator

fix.lf:
let

  // fix = \f. ((\x. f (\y. (x x) y)) (\x. f (\y. (x x) y)))

  fix = (\Fun:: h (| self=h |))
        [(| h=(\Fix:: Fun.f (\Args:: (Fix.self Fix) Args)) |)]
in

  fix

end
    

Last modified: 2006-02-11 — Markus Lumpe