2012-04-01から1ヶ月間の記事一覧
問題2.21 (progn (defun square-list (items) (if (null items) nil (cons (* (car items) (car items)) (square-list (cdr items))))) (square-list (list 1 2 3 4))) -> (1 4 9 16) (progn (defun square-list (items) (map 'list (lambda (x) (* x x)) it…