なんかnamed-letが分かりにくかったので書いて理解しようとした。 文字列の空白を除いて文字数をカウントする手続き (define (str-count str) (let loop ((ls (string->list str)) (count 0)) (let ((inc (lambda (x) (+ x 1)))) (cond ((null? ls) count) (…