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 件のコメント:

コメントを投稿