SICP 問題 3.18
;; 循環するリストを見つける手続き (define (cycle? x) (let recur ((x x) (record '())) (cond ((not (pair? x)) #f) ((memq x record) #t) (else (or (recur (car x) (cons x record)) (recur (cdr x) (cons x record)))))))
;; 循環するリストを見つける手続き (define (cycle? x) (let recur ((x x) (record '())) (cond ((not (pair? x)) #f) ((memq x record) #t) (else (or (recur (car x) (cons x record)) (recur (cdr x) (cons x record)))))))