2018-04-11から1日間の記事一覧

SICPゼミ第60回

練習問題4.44 8×8 面倒なので 4×4 で。 #lang racket (require sicp-pict) (define (require p) (if (not p) (amb) 0)) (define (distinct? items) (cond ((null? items) true) ((null? (cdr items)) true) ((member (car items) (cdr items)) false) (else …