conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #72 from koba-e964/master 

[bugfix] circular-list?, proper-list?
This commit is contained in:
Yuichi Nishiwaki 2014-03-17 11:57:46 +09:00
parent 00d92c79bf dfb525157e
commit cd657e7f9b
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
piclib/srfi/1.scm
View File

@ -51,19 +51,16 @@
;; list=
(define (not-pair? x)
(not (pair? x)))
;; detects circular list using Floyd's cycle-finding algorithm
(define (circular-list? x)
(and (pair? x)
(let rec ((lst (cdr x)))
(cond ((not-pair?) #f)
((null? lst) #f)
((eq? x lst) #t)
(else (rec (cdr lst)))))))
(let rec ((rapid x) (local x))
(if (and (pair? rapid) (pair? (cdr rapid)))
(if (eq? (cddr rapid) (cdr local))
#t
(rec (cddr rapid) (cdr local)))
#f)))
;; if list? is support circular list, (define proper-list? list?)
(define (proper-list? x)
(if (not (circular-list? x))
(list? x)))
(define proper-list? list?)
(define (dotted-list? x)
(and (pair? x)