alternate Y1,Y2 tweak
authorJim Pryor <profjim@jimpryor.net>
Sat, 16 Oct 2010 20:44:36 +0000 (16:44 -0400)
committerJim Pryor <profjim@jimpryor.net>
Sat, 16 Oct 2010 20:44:36 +0000 (16:44 -0400)
Signed-off-by: Jim Pryor <profjim@jimpryor.net>
hints/assignment_4_hint_3_alternate_1.mdwn

index b0c0673..f0b720c 100644 (file)
@@ -44,10 +44,13 @@ Alternate strategy for Y1, Y2
 
        Or in Y1of3, Y2of3, Y3of3 form:
 
 
        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 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
 
                D