2012-07-14から1日間の記事一覧
;リスト→最後の要素を取除いたリストを返す. (defun butlast$ (lst) (reverse (cdr (reverse lst))) ) ;階乗計算 ;1つめの方法 (defun factorial (x) (if (<= x 1) x (* x (factorial (- x 1))) )) ;2つめの方法 (defun factorial2 (n) (fac-loop 1 n 1)) …
;リスト→最後の要素を取除いたリストを返す. (defun butlast$ (lst) (reverse (cdr (reverse lst))) ) ;階乗計算 ;1つめの方法 (defun factorial (x) (if (<= x 1) x (* x (factorial (- x 1))) )) ;2つめの方法 (defun factorial2 (n) (fac-loop 1 n 1)) …