2007-03-22から1日間の記事一覧
意外とあっけなかった気がする。
(defun do-simple-select (&optional (list) (num nil)) (let ((tmp (car list))) (cond ((not num) (do-simple-select (cdr list) tmp)) ((not tmp) (cons nil num)) ((not (cdr list)) (if (> num tmp) (cons (list num) tmp) (cons (list tmp) num))) (t …
in Perl my ($a, $b) = (1, 2); みたいなことをLispでもできないのかな。 (setf '(a b) '(1 2)) なんてできちゃいそうな気もするけど(初心者というかバカ丸出し)
(defun do-simple-insert (list num) (if (not list) (setf list (list num)) (if (< (car list) num) (setf (cdr list) (do-simple-insert (cdr list) num)) (setf list (cons num list)))) list) (defun simple-insert-sort (list) (let ((ret-list)) (dol…