Changeset 38900 in project
 Timestamp:
 08/29/20 02:40:22 (4 weeks ago)
 Location:
 release/5/levenshtein/trunk
 Files:

 3 edited
Legend:
 Unmodified
 Added
 Removed

release/5/levenshtein/trunk/levenshteinpathiterator.scm
r38891 r38900 58 58 (mapinorder 59 59 (lambda (elm) 60 (print elm)61 60 (let ((elmcost (the number (car elm)))) 62 61 (and … … 84 83 (lambda (value) 85 84 (let/cc continue 86 (set! generator 87 (lambda (k) 88 (set! yielder k) 89 (continue value))) 85 (set! generator (lambda (k) (set! yielder k) (continue value))) 90 86 (yielder value) ) ) ) ) 91 87 (let try ((r (sub1 rs)) (c (sub1 cs)) (path '())) 
release/5/levenshtein/trunk/tests/levenshteintest.scm
r38891 r38900 236 236 `((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do))) 237 237 (vectorset! vec 1 238 ;`((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do)) 239 `((1 0 0 ,so) (2 1 0 ,io) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do))) 240 (vectorset! vec 2 241 ;`((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 3 5 ,do) (5 4 6 ,do) (6 6 10 ,do)) 238 242 `((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do))) 239 (vectorset! vec 2240 `((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 3 5 ,do) (5 4 6 ,do) (6 6 10 ,do)))241 243 (vectorset! vec 3 242 `((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 3 5 ,do) (5 4 6 ,do) (6 6 10 ,do))) 244 ;`((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 3 5 ,do) (5 4 6 ,do) (6 6 10 ,do)) 245 `((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do))) 243 246 (vectorset! vec 4 244 `((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 3 5 ,do) (5 3 6 ,do) (6 6 10 ,do))) 247 ;`((1 0 0 ,so) (2 1 1 ,so) (3 2 3 ,so) (4 3 5 ,do) (5 3 6 ,do) (6 6 10 ,do)) 248 `((1 0 0 ,so) (2 1 1 ,so) (3 2 2 ,io) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do))) 245 249 (vectorset! vec 5 246 `((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 3 5 ,do) (5 3 6 ,do) (6 6 10 ,do))) 250 ;`((1 0 0 ,so) (2 0 1 ,do) (3 2 3 ,so) (4 3 5 ,do) (5 3 6 ,do) (6 6 10 ,do)) 251 `((1 0 0 ,so) (2 1 0 ,io) (3 2 2 ,io) (4 4 5 ,so) (5 4 6 ,do) (6 6 10 ,do))) 247 252 vec)) 248 253 
release/5/levenshtein/trunk/tests/testgloss.incl.scm
r38733 r38900 111 111 ;; 112 112 113 (definesyntax glossln 114 (syntaxrules () 115 ((glossln) 116 (begin 117 (newline) 118 (flushoutput) ) ) ) ) 119 113 120 (definesyntax glossn 114 121 (syntaxrules () 115 122 ((glossn) 116 (begin) )123 (begin) ) 117 124 ((glossn ?obj) 118 125 (begin 119 126 (displayglossmarker) 120 (display ?obj) 121 (flushoutput)) ) 127 (display ?obj)) ) 122 128 ((glossn ?obj ...) 123 129 (begin 124 130 (displayglossmarker) 125 (foreach display (list ?obj ...)) 126 (flushoutput)) ) ) ) 131 (foreach display (list ?obj ...))) ) ) ) 127 132 128 133 (definesyntax gloss 129 134 (syntaxrules () 130 135 ((gloss) 131 ( newline))136 (glossln) ) 132 137 ((gloss ?obj ...) 133 138 (begin 134 139 (glossn ?obj ...) 135 ( newline)) ) ) )140 (glossln)) ) ) ) 136 141 137 142 ;Needs a format: … … 149 154 (begin 150 155 (glossnf ?fmt ?arg0 ...) 151 ( newline)) ) ) )156 (glossln) ) ) ) )
Note: See TracChangeset
for help on using the changeset viewer.