Lines Matching refs:cnt
76 (lambda (cnt)
77 (if (zero? cnt)
79 (eval (list 'rec-by-eval (- cnt 1))
84 (lambda (cnt)
85 (if (zero? cnt)
87 (apply rec-by-apply (list (- cnt 1))))))
90 (lambda (cnt)
91 (if (zero? cnt)
93 (apply apply (list rec-by-apply-with-apply (list (- cnt 1)))))))
97 (lambda (cnt)
98 (if (not (zero? cnt))
99 (rec-by-if-consequent (- cnt 1))
103 (lambda (cnt)
104 (if (not (zero? cnt))
107 (rec-by-if-consequent-with-begin (- cnt 1)))
111 (lambda (cnt)
112 (if (not (zero? cnt))
115 (rec-by-if-consequent-with-let (- cnt 1)))
119 (lambda (cnt)
120 (if (not (zero? cnt))
123 (rec-by-if-consequent-with-let* (- cnt 1)))
127 (lambda (cnt)
128 (if (not (zero? cnt))
131 (rec-by-if-consequent-with-letrec (- cnt 1)))
135 (lambda (cnt)
136 (if (zero? cnt)
138 (rec-by-if-alternate (- cnt 1)))))
141 (lambda (cnt)
142 (if (not (zero? cnt))
145 (rec-by-if-alternate-with-begin (- cnt 1)))
149 (lambda (cnt)
150 (if (not (zero? cnt))
153 (rec-by-if-alternate-with-let (- cnt 1)))
157 (lambda (cnt)
158 (if (not (zero? cnt))
161 (rec-by-if-alternate-with-let* (- cnt 1)))
165 (lambda (cnt)
166 (if (not (zero? cnt))
169 (rec-by-if-alternate-with-letrec (- cnt 1)))
173 (lambda (cnt)
175 ((positive? cnt)
176 (rec-by-cond-1st (- cnt 1)))
177 ((zero? cnt)
179 ((negative? cnt)
185 (lambda (cnt)
187 ((positive? cnt)
190 (rec-by-cond-1st-with-begin (- cnt 1))))
191 ((zero? cnt)
193 ((negative? cnt)
199 (lambda (cnt)
201 ((positive? cnt)
204 (rec-by-cond-1st-with-let (- cnt 1))))
205 ((zero? cnt)
207 ((negative? cnt)
213 (lambda (cnt)
215 ((positive? cnt)
218 (rec-by-cond-1st-with-let* (- cnt 1))))
219 ((zero? cnt)
221 ((negative? cnt)
227 (lambda (cnt)
229 ((positive? cnt)
232 (rec-by-cond-1st-with-letrec (- cnt 1))))
233 ((zero? cnt)
235 ((negative? cnt)
241 (lambda (cnt)
243 ((zero? cnt)
245 ((positive? cnt)
246 (rec-by-cond-2nd (- cnt 1)))
247 ((negative? cnt)
253 (lambda (cnt)
255 ((zero? cnt)
257 ((negative? cnt)
259 ((positive? cnt)
260 (rec-by-cond-3rd (- cnt 1)))
265 (lambda (cnt)
267 ((zero? cnt)
269 ((negative? cnt)
271 ((- cnt 1) => rec-by-cond-3rd-with-=>)
276 (lambda (cnt)
278 ((zero? cnt)
280 ((negative? cnt)
282 ((positive? cnt)
283 (rec-by-cond-last (- cnt 1))))))
286 (lambda (cnt)
288 ((zero? cnt)
290 ((negative? cnt)
292 ((not (positive? cnt))
295 (rec-by-cond-else (- cnt 1))))))
298 (lambda (cnt)
300 ((zero? cnt)
302 ((negative? cnt)
304 ((not (positive? cnt))
309 (rec-by-cond-else (- cnt 1)))))))
312 (lambda (cnt)
314 ((zero? cnt)
316 ((negative? cnt)
318 ((not (positive? cnt))
323 (rec-by-cond-else (- cnt 1)))))))
326 (lambda (cnt)
328 ((zero? cnt)
330 ((negative? cnt)
332 ((not (positive? cnt))
337 (rec-by-cond-else (- cnt 1)))))))
340 (lambda (cnt)
342 ((zero? cnt)
344 ((negative? cnt)
346 ((not (positive? cnt))
351 (rec-by-cond-else (- cnt 1)))))))
355 (lambda (cnt)
356 (case (if (positive? cnt)
358 cnt)
360 (rec-by-case-1st (- cnt 1)))
369 (lambda (cnt)
370 (case (if (positive? cnt)
372 cnt)
376 (rec-by-case-1st-with-begin (- cnt 1))))
385 (lambda (cnt)
386 (case (if (positive? cnt)
388 cnt)
392 (rec-by-case-1st-with-let (- cnt 1))))
401 (lambda (cnt)
402 (case (if (positive? cnt)
404 cnt)
408 (rec-by-case-1st-with-let* (- cnt 1))))
417 (lambda (cnt)
418 (case (if (positive? cnt)
420 cnt)
424 (rec-by-case-1st-with-letrec (- cnt 1))))
433 (lambda (cnt)
434 (case (if (positive? cnt)
436 cnt)
440 (rec-by-case-2nd (- cnt 1)))
447 (lambda (cnt)
448 (case (if (positive? cnt)
450 cnt)
456 (rec-by-case-3rd (- cnt 1)))
461 (lambda (cnt)
462 (case (if (positive? cnt)
464 cnt)
470 (rec-by-case-last (- cnt 1))))))
473 (lambda (cnt)
474 (case (if (positive? cnt)
476 cnt)
484 (rec-by-case-else (- cnt 1))))))
487 (lambda (cnt)
488 (case (if (positive? cnt)
490 cnt)
500 (rec-by-case-else (- cnt 1)))))))
503 (lambda (cnt)
504 (case (if (positive? cnt)
506 cnt)
516 (rec-by-case-else (- cnt 1)))))))
519 (lambda (cnt)
520 (case (if (positive? cnt)
522 cnt)
532 (rec-by-case-else (- cnt 1)))))))
535 (lambda (cnt)
536 (case (if (positive? cnt)
538 cnt)
548 (rec-by-case-else (- cnt 1)))))))
551 (lambda (cnt)
552 (and (not (zero? cnt))
553 (rec-by-and-tail (- cnt 1)))))
556 (lambda (cnt)
557 (and (not (zero? cnt))
560 (rec-by-and-tail-with-begin (- cnt 1))))))
563 (lambda (cnt)
564 (and (not (zero? cnt))
567 (rec-by-and-tail-with-let (- cnt 1))))))
570 (lambda (cnt)
571 (and (not (zero? cnt))
574 (rec-by-and-tail-with-let* (- cnt 1))))))
577 (lambda (cnt)
578 (and (not (zero? cnt))
581 (rec-by-and-tail-with-letrec (- cnt 1))))))
584 (lambda (cnt)
585 (and (not (zero? cnt))
586 (improper-rec-by-and-tail (- cnt 1)))
590 (lambda (cnt)
591 (or (zero? cnt)
592 (rec-by-or-tail (- cnt 1)))))
595 (lambda (cnt)
596 (or (zero? cnt)
599 (rec-by-or-tail-with-begin (- cnt 1))))))
602 (lambda (cnt)
603 (or (zero? cnt)
606 (rec-by-or-tail-with-let (- cnt 1))))))
609 (lambda (cnt)
610 (or (zero? cnt)
613 (rec-by-or-tail-with-let* (- cnt 1))))))
616 (lambda (cnt)
617 (or (zero? cnt)
620 (rec-by-or-tail-with-letrec (- cnt 1))))))
623 (lambda (cnt)
624 (or (zero? cnt)
625 (improper-rec-by-or-tail (- cnt 1)))
752 (lambda (cnt)
753 (rec-proper-infinite (+ cnt 1))))
756 (lambda (cnt)
757 (if (zero? cnt)
759 (rec-improper-infinite (- cnt 1)))
956 (do ((cnt explosive-count (- cnt 1))
958 ((zero? cnt)
960 (+ cnt dummy)))
966 (do ((cnt 3 (- cnt 1))
968 ((zero? cnt)
970 (+ cnt dummy)))))
1011 (let loop ((cnt explosive-count))
1012 (if (zero? cnt)
1014 (loop (- cnt 1)))))
1017 (let loop ((cnt explosive-count))
1018 (if (zero? cnt)
1022 (loop (- cnt 1))))))
1025 (let loop ((cnt explosive-count))
1026 (if (zero? cnt)
1030 (loop (- cnt 1))))))
1033 (let loop ((cnt explosive-count))
1034 (if (zero? cnt)
1038 (loop (- cnt 1))))))
1041 (let loop ((cnt explosive-count))
1042 (if (zero? cnt)
1046 (loop (- cnt 1))))))