![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | Recursion and Higher-order Functions - slide 7 : 35 |
(define (string-of-char-list? str char-list) (string-of-char-list-1? str char-list 0 (string-length str))) (define (string-of-char-list-1? str char-list i lgt) (if (= i lgt) #t (and (memv (string-ref str i) char-list) (string-of-char-list-1? str char-list (+ i 1) lgt))))