From: Jim Pryor Date: Sat, 16 Oct 2010 20:44:36 +0000 (-0400) Subject: alternate Y1,Y2 tweak X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=commitdiff_plain;h=004782ebd72fdb95badbaef55d2faaa6c49f3bed alternate Y1,Y2 tweak Signed-off-by: Jim Pryor --- diff --git a/hints/assignment_4_hint_3_alternate_1.mdwn b/hints/assignment_4_hint_3_alternate_1.mdwn index b0c06735..f0b720cd 100644 --- a/hints/assignment_4_hint_3_alternate_1.mdwn +++ b/hints/assignment_4_hint_3_alternate_1.mdwn @@ -44,10 +44,13 @@ Alternate strategy for Y1, Y2 Or in Y1of3, Y2of3, Y3of3 form: - let Yv = \ff. Y (\v g h. ff ( v g h) g h) in - let Yw = \ff gg. Y ( \w h. (\g. gg (Yv ff g h) g h) ( w h)) in + let Yv = \ff. Y (\v g h. ff ( v g h) g h) in + let Yw = \ff gg. Y ( \w h. (\g. gg (Yv ff g h) g h) ( w h)) in let Y3of3 = \ff gg hh. Y ( \h. (\g. hh (Yv ff g h) g h) (Yw ff gg h)) in let Y2of3 = \ff gg hh. Yw ff gg (Y3of3 ff gg hh) in let Y1of3 = \ff gg hh. Yv ff (Y2of3 ff gg hh) (Y3of3 ff gg hh) in + let f = Y1of3 (\f g h. A) (\f g h. B) (\f g h. C) in + let g = Y2of3 (\f g h. A) (\f g h. B) (\f g h. C) in + let h = Y3of3 (\f g h. A) (\f g h. B) (\f g h. C) in D