2018-03-01から1日間の記事一覧
というわけで新しい尺度 (defun wt (x) (if (atom x) '1 (+ (+ (wt (car x)) (wt (car x))) (wt (cdr x))))) Scheme手習いでやったやつと同じです そのときはこうでした
というわけで新しい尺度 (defun wt (x) (if (atom x) '1 (+ (+ (wt (car x)) (wt (car x))) (wt (cdr x))))) Scheme手習いでやったやつと同じです そのときはこうでした