2010/09/09

syntax-rules: coalesce

これの関連で。。


こういうのが
(let1 e 'd
  (if (or (if (eq? e 'a)
              'car)
          (if (eq? e 'd)
              'cdr))
      'found
      'notfound))

こうなる
(let1 e 'd
  (if (coalesce ((eq? e 'a) 'car)
                ((eq? e 'd) 'cdr))
      'found
      'notfound))

cond みたい。inspired by SQL's coalesce.

プログラミングGauche

0 件のコメント:

コメントを投稿