blob: f6aa8cf0b59f34dcae11192a24ea5a0ec13c2e75 (
about) (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
= SICP exercise 3.19
[source,scheme]
----
(define (cycle? l)
(define (rec l x)
(cond
((null? x) false)
((eq? l x) true)
(true (rec l (cdr x)))))
(rec l (cdr l)))
----
Sample interactive session:
[source,scheme]
----
scheme@(guile-user)> (define true #t)
scheme@(guile-user)> (define false #f)
scheme@(guile-user)>
(define (cycle? l)
(define (rec l x)
(cond
((null? x) false)
((eq? l x) true)
(true (rec l (cdr x)))))
(rec l (cdr l)))
scheme@(guile-user)> (cycle? '(1 2 3))
$9 = #f
scheme@(guile-user)> (cycle? (make-cycle '(1 2 3)))
$10 = #t
----
|
