X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=hints%2Fcps_hint_3.mdwn;h=fa8b3736d0a6eaa96edddeba6217862eced75f75;hp=afc5beeafdfbb287bb6748bc7f48bde09d845a18;hb=72cca371a48d35b0177427b35f23ae8cc704fdf2;hpb=745774e349b41deea78eab9163f64031016224bb diff --git a/hints/cps_hint_3.mdwn b/hints/cps_hint_3.mdwn index afc5beea..fa8b3736 100644 --- a/hints/cps_hint_3.mdwn +++ b/hints/cps_hint_3.mdwn @@ -31,11 +31,10 @@ This function is developed in *The Seasoned Schemer* pp. 84-89. It accepts an at [(eq? lst2 'notfound) lst] [else lst2])))) - (gamma 'a '(((a b) ()) (c (d ())))) ; ~~> '(((b) ()) (c (d ()))) - (gamma 'a '((() (a b) ()) (c (d ())))) ; ~~> '((() (b) ()) (c (d ()))) + (gamma 'a '(((a b) ()) (c (d ())))) ; ~~> '(((b) ()) (c (d ()))) + (gamma 'a '((() (a b) ()) (c (d ())))) ; ~~> '((() (b) ()) (c (d ()))) (gamma 'a '(() (() (a b) ()) (c (d ())))) ; ~~> '(() (() (b) ()) (c (d ()))) - (gamma 'c '((() (a b) ()) (c (d ())))) ; ~~> '((() (a b) ()) ((d ()))) + (gamma 'c '((() (a b) ()) (c (d ())))) ; ~~> '((() (a b) ()) ((d ()))) (gamma 'c '(() (() (a b) ()) (c (d ())))) ; ~~> '(() (() (a b) ()) ((d ()))) - (gamma 'x '((() (a b) ()) (c (d ())))) ; ~~> '((() (a b) ()) (c (d ()))) - (gamma 'x '(() (() (a b) ()) (c (d ())))) ; ~~> '(() (() (a b) ()) (c (d ()))) + (gamma 'x '((() (a b) ()) (c (d ())))) ; ~~> '((() (a b) ()) (c (d ())))