2010/03/23

S式

これこれ。頭でわかってるつもりでも、実際なかなか書けない・・・。

(cond ((negative? x)
  (display 'foo)
  (newline))
 ((zero? x)
  (display 'bar)
  (newline))
 (else
  (display 'baz)
  (newline))))
  (newline))))
(begin (display (cond ((negative? x) 'foo)
   ((zero? x) 'bar)
   (else 'baz)))
  (newline)))

0 件のコメント:

コメントを投稿