Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

λλλλλλλλλλλ

Name: Anonymous 2010-11-21 15:11

(define Y

  (λ (f)

    ((λ (x)

       (f (delay (x x))))

     (λ (x)

       (f (delay (x x)))))))

(define fact

  (Y (λ (f)

       (λ (x)

         (if (zero? x) 1

             (* n ((force f) (- n 1))))))))

Name: Anonymous 2010-11-21 17:59

What an inadecuate way of implementing a Y combinator. All that forcing and delaying around sickens me.

Newer Posts