mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-06-08 11:55:03 +02:00
42 lines
1.2 KiB
Scheme
42 lines
1.2 KiB
Scheme
;; predicates.scm -- list prediates
|
|
;; Copyright (c) 2009 Alex Shinn. All rights reserved.
|
|
;; BSD-style license: http://synthcode.com/license.txt
|
|
|
|
(define (proper-list? x)
|
|
(cond ((null? x) #t)
|
|
((pair? x) (proper-list? (cdr x)))
|
|
(else #f)))
|
|
|
|
(define (circular-list? x)
|
|
(and (pair? x) (pair? (cdr x))
|
|
(let race ((hare (cdr x)) (tortoise x))
|
|
(or (eq? hare tortoise)
|
|
(and (pair? hare) (pair? (cdr hare))
|
|
(race (cddr hare) (cdr tortoise)))))))
|
|
|
|
(define (dotted-list? x)
|
|
(not (proper-list? x)))
|
|
|
|
(define (not-pair? x) (not (pair? x)))
|
|
|
|
(define (null-list? x) (null? x)) ; no error
|
|
|
|
(define (list= eq . lists)
|
|
(let lp1 ((lists lists))
|
|
(or (null? lists)
|
|
(null? (cdr lists))
|
|
(let lp2 ((ls1 (car lists)) (ls2 (cadr lists)))
|
|
(if (null? ls1)
|
|
(and (null? ls2)
|
|
(lp1 (cdr lists)))
|
|
(and (eq (car ls1) (car ls2))
|
|
(lp2 (cdr ls1) (cdr ls2))))))))
|
|
|
|
(define (length+ x)
|
|
(if (not (pair? x))
|
|
0
|
|
(let lp ((hare (cdr x)) (tortoise x) (res 0))
|
|
(and (not (eq? hare tortoise))
|
|
(if (pair? hare)
|
|
(lp (cddr hare) (cdr tortoise) (+ res 1))
|
|
res)))))
|