(defun set-array (&optional (list) (num) (array (make-array '(10) :initial-element nil))) (if (not list) array (let ((key (truncate (mod (/ (car list) (expt 10 num)) 10)))) (setf (svref array key) (append (svref array key) (list (car list)…

(defun max-elements (&optional (list) (elm 0)) (if (not list) elm (max-elements (cdr list) (if (> elm (car list)) elm (car list))))) (defun vector-to-list (&optional (array) (num 0)) (if (< num (length array)) (let ((anum (svref array num)…

K氏への私信みたいになるが。 自分の中では少なくとも、ラテンやジャズのようなジャンル的に割と古い音楽は、いくらアタックが必要といってもピックで得られるアタックとはモノが違うと考えている。だから、「その手の音楽に、ピックで得られるアタック、ひ…