明日も終日講義。その後、Android 勉強会の懇親会出席予定ッス。 明後日はがきの運動会らしい。暑そう。 しかし 体力の衰えを痛感せざるを得ない今日この頃です。始まったばかりでこのへろへろ具合は何だ。

accumulate とか filter とかも込みな手続きのセットが以下です。 (define (getChangePattern n) (accumulate cons '() (filter (lambda (x) (= (apply + x) n)) (enum-candidate n (make-list n candidate-list))))) (define (accumulate op init seq) (if …

できた。と思う。 (define candidate-list '(50 25 10 5 1)) (define (make-list n l) (cond ((null? l) '()) ((>= n (car l)) l) (else (make-list n (cdr l))))) (define (enum-candidate n candidate) (define (ec-inner rslt lst candidate) (if (null? …

要件としては ある数の両替パターンを全部数え上げたい まず、要素の合計がある数以下なリストの集合を取得したい という事になります。釣り銭のパターンとしては (define candidate-list '(50 25 10 5 1))で、例えば 16 が_ある数_としたら make-list とい…