2012年3月24日
我的第一个lisp程序
摘要： (setf a (make-array 9))(setf i 0)(loop (setf (aref a i) i) (setf i (+ i 1)) (if (> i 8) (return)))数组赋值0~8 阅读全文
posted @ 2012-03-24 13:13 Dsp Tian 阅读(643) 评论(0) 推荐(0) 编辑