projects
/
lambda.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'pryor'
[lambda.git]
/
hints
/
cps_hint_2.mdwn
diff --git
a/hints/cps_hint_2.mdwn
b/hints/cps_hint_2.mdwn
index
2cdc49a
..
d948a28
100644
(file)
--- a/
hints/cps_hint_2.mdwn
+++ b/
hints/cps_hint_2.mdwn
@@
-19,10
+19,10
@@
This function is developed in *The Seasoned Schemer* pp. 76-83. It accepts a lis
(aux (cdr l)))]))])
(aux lst)))))
(aux (cdr l)))]))])
(aux lst)))))
- (beta '(((a b) ()) (c (d ())))) ; ~~> 'a
- (beta '((() (a b) ()) (c (d ())))) ; ~~> 'a
+ (beta '(((a b) ()) (c (d ()))))
; ~~> 'a
+ (beta '((() (a b) ()) (c (d ()))))
; ~~> 'a
(beta '(() (() (a b) ()) (c (d ())))) ; ~~> 'a
(beta '(() (() (a b) ()) (c (d ())))) ; ~~> 'a
- (beta '(() (() ()))) ; no leftmost atom, returns '()
+ (beta '(() (() ())))
; no leftmost atom, returns '()
This function could also be written like this:
This function could also be written like this: