schme 学習

simply schemeの beatle?例題

(define (beatle? person)
(member? person '(john paul george ringo)))

gaucheにmember?はないので書いてみた

(define (member? x list)
(if (null? list)
#f
(if (equal? x (car list))
#t
(member? x (cdr list)))))

(beatle? 'paul)
#t
(beatle? 'elvis)
#f
とプリントされたのでよしとする。


CS61A: Structure and Interpretation of Computer Programs





このブログの人気の投稿

マルチエフェクターの紹介 HX stomp ギターとベースのアンプシュミレーター入りのエフェクタ 追記バージョンアップでだいぶ使いやすさ変わった。

ギターメンテナンス アームを回すとキーと異音がするので直した。

ラミー2000の万年筆のインク漏れがあった。