(defun bubble () (format t "Enter the limit of no's :") (setf n (read)) (setf a (make-array n)) (setf len n) (setf i 1) (format t "Enter the no's") (dotimes (i n) (setf (aref a i) (read))) (format t " Entered Array is") (format t "~s" a) (…

英語のソースコードのwikiがあるみたいだ。いろんなアルゴリズムのソースコードを集めているサイトみたい。↓はLispで書いたアルゴリズムのページ。http://en.literateprograms.org/Category:Programming_language:Lispここはバブルソートのリンクにしようか…

Visual Studioで作ったバブルソート。そのままコピペだけどたぶん大丈夫。(追記)これはCLRコンソールアプリケーションあたりで作られたバブルソートみたいなので、CLRコンソールアプリケーションを選択しないとうまく動かないかも。あとCで書いたと思ったらC…