16 lines
346 B
Scheme
16 lines
346 B
Scheme
|
|
||
|
|
|
||
|
|
(for-each display
|
||
|
|
'(#\( #\" #\' #\a #\space #\b #\tab #\c #\)))
|
||
|
|
|
||
|
|
;;; from comp.lang.scheme
|
||
|
|
|
||
|
|
(let ((x (list 1)) (y (list 2)))
|
||
|
|
(for-each display
|
||
|
|
(list "Before: " "x = " (car x) " and y = " (car y)
|
||
|
|
#\newline))
|
||
|
|
(set-car! (if #t x y) 3.1415)
|
||
|
|
(for-each display
|
||
|
|
(list "After: " "x = " (car x) " and y = " (car y)
|
||
|
|
#\newline)))
|