Lisp Scheme Part22 - 暇つぶし2ch

Lisp Scheme Part22 at TECH

687:デフォルトの名無しさん
08/06/18 15:55:29
;こんな感じ。
;URLﾘﾝｸ(pre.plt-scheme.org)
(require scheme/mpair)

(define-syntax cons
(syntax-rules ()
((_ a b) (mcons a b))))

(define-syntax set-car!
(syntax-rules ()
((_ a b) (set-mcar! a b))))

(define-syntax set-cdr!
(syntax-rules ()
((_ a b) (set-mcdr! a b))))

(define-syntax list
(syntax-rules ()
((_ a ...) (mlist a ...))))

(define Qoo (list 3 4))
(set-car! Qoo '(5 6))
(set-cdr! Qoo '(7 8))
(display Qoo) ; => {(5 6) . (7 8)}

次ページ

続きを表示

1を表示