Lisp Scheme Part31
■ このスレッドは過去ログ倉庫に格納されています
0057デフォルトの名無しさん
2010/09/18(土) 12:08:33(define a 10)
(define (f x) (+ a x))
(define (g x) (+ (f x) a))
(define a (+ a 10)) ;(set! a (+ a 10))
(define (p x) (display x) (newline))
(p (f 10))
(p (g 10))
(define (f x) (- a x))
(p (f 10))
(p (g 10))
(define (g x) (- (f x) a))
(p (f 10))
(p (g 10))
■ このスレッドは過去ログ倉庫に格納されています