Scheme - Land of Scheme - はじめてのSchemeプログラム(ローカル変数を定義する)

Land of Lisp
(オライリージャパン)
M.D. Conrad Barski (著) 川合 史朗 (翻訳)
原書: Land of LISP
Learn to Program in Lisp, One Game at a Time!

開発環境

• OS X Yosemite - Apple (OS)
• Emacs(Text Editor)
• Scheme (プログラミング言語)
• kscheme, Gauche, GNU Guile (処理系)

Land of Lisp (M.D. Conrad Barski (著)、川合 史朗 (翻訳)、オライリージャパン)の2章(はじめてのLispプログラム)、2.5(ローカル変数を定義する)をSchemeで取り組んでみる。

2.5(ローカル変数を定義する)

コード(Emacs)

(define print
  (lambda (x)
    (begin (display x)
           (newline))))

(define for-each
  (lambda (proc items)
    (if (not (null? items))
        (begin (proc (car items))
               (for-each proc (cdr items))))))

(define a 10)
(define b 20)
(begin (newline)
       (for-each print 
                 (list a
                       b
                       (let ((a 5)
                             (b 6))
                         (+ a b))
                       a
                       b)))

入出力結果(Terminal(kscheme), REPL(Read, Eval, Print, Loop))

$ kscheme < sample2_5.scm
kscm> kscm> kscm> kscm> kscm> 
10
20
11
10
20
#<undefined>
kscm> $