vallog
ring wandering
2008/12/28
【Scheme】問題1.4@SICP
パラメータbが正なら+負なら-のプロシージャを返す。
処理の結果としてプロシージャも返せますよー、ってことが言いたいのかな?問題文イミフ。
(define a-plus-abs-b (lambda (a b)
((if (> b 0) + -) a b)))
(a-plus-abs-b 1 2)
;;=> 3
(a-plus-abs-b 1 -2)
;;=> 3
0 件のコメント:
コメントを投稿
次の投稿
前の投稿
ホーム
登録:
コメントの投稿 (Atom)
0 件のコメント:
コメントを投稿