schme 学習
simply schemeの beatle?例題
gaucheにmember?はないので書いてみた
(beatle? 'paul)
#t
(beatle? 'elvis)
#f
とプリントされたのでよしとする。
CS61A: Structure and Interpretation of Computer Programs
(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