Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing bug in length+

Browse source
This commit is contained in:
Alex Shinn 2011-01-02 23:12:46 +09:00
parent 23382e9540
commit f555b50083
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/srfi/1/predicates.scm
View file

@ -35,8 +35,10 @@
(define (length+ x) (define (length+ x)
(if (not (pair? x)) (if (not (pair? x))
0 0
(let lp ((hare (cdr x)) (tortoise x) (res 0)) (let lp ((hare (cdr x)) (tortoise x) (res 1))
(and (not (eq? hare tortoise)) (and (not (eq? hare tortoise))
(if (pair? hare) (if (pair? hare)
(lp (cddr hare) (cdr tortoise) (+ res 1)) (if (not (pair? (cdr hare)))
(+ res 1)
(lp (cddr hare) (cdr tortoise) (+ res 2)))
res))))) res)))))