結城浩のSICP日記 RSSフィード

2006-05-24

case case - 結城浩のSICP日記 を含むブックマーク

Gaucheのマニュアルから半写経。

(define (sound-type c)
  (case c
    ((a e i o u) 'vowel)
    ((w y) 'semivowel)
    (else 'consonant)))

(map sound-type '(h y u k i))
;=> (consonant semivowel vowel consonant vowel)

追記:kmdsbngさんからtypoのご指摘。ありがとうございます。ちなみに結城はtypoの指摘を受けるのがとても好きです。そこまで細かく読んでもらえている!と感じるので。

kmdsbngkmdsbng2006/05/24 07:50char-type => sound-type ?

トラックバック - http://sicp.g.hatena.ne.jp/hyuki/20060524