ちょっと息抜きに Scheme の勉強。人のコード読み
文字列に a という文字が含まれるか
(define (has-a? string i) (and (>= i 0) (or (eqv? (string-ref string i) #\a) (has-a? string (- i 1))))) (has-a? "hoge" 3) ; => #f (has-a? "fuga" 3) ; => #t (define a "hoga") (has-a? a (- (string-length a) 1)) ; => #t