Lispで挿入ソート・その1 - Shammerismで作成した ins-list を少し改良。比較が常に ? (defun insert-element (test element l) (if (null l) (cons element nil) (let ((first-element (car l))) (if (funcall test element first-element) (append (cons e…