2018-03-01から1日間の記事一覧
というわけで新しい尺度 (defun wt (x) (if (atom x) '1 (+ (+ (wt (car x)) (wt (car x))) (wt (cdr x))))) Scheme手習いでやったやつと同じです そのときはこうでした
kb84tkhrのブログ
何を書こうか考え中です あ、あと組織とは関係ないってやつです 個人的なやつ
というわけで新しい尺度 (defun wt (x) (if (atom x) '1 (+ (+ (wt (car x)) (wt (car x))) (wt (cdr x))))) Scheme手習いでやったやつと同じです そのときはこうでした
