sleep sortすごいですね!!1 (defun sleep-sort (list) (dolist (i list) (lexical-let ((sec i)) (run-at-time sec nil (lambda () (princ (format "%d\n" sec))))))) まとめ → http://www.yuyak.com/1339