学习Lisp——打印乘法表
文章
#| 第一个LISP程序 |# (write-line "Clisp Test") (setq a (read)) (if (> a 10) (write-line "Bigger than 10") (write-line "Less than 10") ) (write-line "9x9 Table with 'dotimes'") (dotimes (i 9) (dotimes (j 9) (format t "~d x ~d = ~d~c" (+ 1 i) (+ 1 j) (* (+ 1 i) (+ 1 j)) #\Tab) (if (>= j i) (return)) ) (write-line "")……
Tags: #Lisp

 

TonyChyi © 2020 GPLv2