2006-09-06から1日間の記事一覧
書いたソースとか (define (count-leaves tree) (fold + 0 (map (lambda (x) (if (pair? x) (count-leaves x) 1)) tree))) (define (sum seq) (fold + 0 seq)) (define (dot-product v w) (sum (map * v w))) (define (transpose mat) (fold-right (lambda (…