2012-07-14から1日間の記事一覧

演習1.3

リスト中に含まれるアトムの数を返す関数count-atomsを作る。 ;;; Exercise 1.3 (defun count-atoms (lst) (cond ((null lst) 0) ((listp (first lst)) (+ (count-atoms (first lst)) (count-atoms (rest lst)))) (t (+ 1 (count-atoms (rest lst)))))) と作…