projects
/
lambda.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
12ccd52
)
Chris' improvement to tc with #
author
Jim
<jim.pryor@nyu.edu>
Fri, 1 May 2015 11:08:30 +0000
(07:08 -0400)
committer
Jim
<jim.pryor@nyu.edu>
Fri, 1 May 2015 11:08:30 +0000
(07:08 -0400)
code/refunctionalizing_zippers.rkt
patch
|
blob
|
history
diff --git
a/code/refunctionalizing_zippers.rkt
b/code/refunctionalizing_zippers.rkt
index
cac0916
..
477daea
100644
(file)
--- a/
code/refunctionalizing_zippers.rkt
+++ b/
code/refunctionalizing_zippers.rkt
@@
-69,7
+69,8
@@
(define (tc3 l k)
(cond
[(null? l) (k '())]
(define (tc3 l k)
(cond
[(null? l) (k '())]
- [(eqv? #\# (car l)) (append (k '()) (tc3 (cdr l) identity))]
+ ; [(eqv? #\# (car l)) (append (k '()) (tc3 (cdr l) identity))]
+ [(eqv? #\# (car l)) (k (tc3 (cdr l) identity))]
[(eqv? #\S (car l)) (tc3 (cdr l) (compose k k))]
[else (tc3 (cdr l) (lambda (tail) (k (cons (car l) tail))))]))
[(eqv? #\S (car l)) (tc3 (cdr l) (compose k k))]
[else (tc3 (cdr l) (lambda (tail) (k (cons (car l) tail))))]))
@@
-78,7
+79,8
@@
(shift k
(cond
[(null? l) (identity (k '()))]
(shift k
(cond
[(null? l) (identity (k '()))]
- [(eqv? #\# (car l)) (append (k '()) (reset (tr3 (cdr l))))]
+ ; [(eqv? #\# (car l)) (append (k '()) (reset (tr3 (cdr l))))]
+ [(eqv? #\# (car l)) (k (reset (tr3 (cdr l))))]
[(eqv? #\S (car l)) ((compose k k) (tr3 (cdr l)))]
[else ((lambda (tail) (k (cons (car l) tail))) (tr3 (cdr l)))])))
[(eqv? #\S (car l)) ((compose k k) (tr3 (cdr l)))]
[else ((lambda (tail) (k (cons (car l) tail))) (tr3 (cdr l)))])))