CLISP 程序示例与解释 (附C程序)

这些LISP语言程序示例代码通过http://clisp.sourceforge.net/  的common lisp 解释器解释执行。

clisp版本: 2.43

 【程序1】

题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？

1.程序分析：可填在百位、十位、个位的数字都是1、2、3、4。组成所有的排列后再去

掉不满足条件的排列。

2.CLISP程序源代码：


[code type="lisp"]
(do ((i 1 (+ i 1)))
((>= i 5) 'done)
(do ((j 1 (+ j 1)))
((>= j 5) 'jdone)
(do ((k 1 (+ k 1)))
((>= k 5 ) 'kdone)
(if (or (= i j) (= j k) (= k i)) () (format t "~A~A~A~%" i j k)))))
[/code]

3. C程序源代码：