方案继续
|
我是该计划的新成员，也是这个网站的新成员。我写一个像
(define function
(lambda (liste)
(do ((k 0 (+ k 1))) ((> k 3))
(do ((l 0 (+ l 1))) ((> l 3))
(do ((m 0 (+ m 1))) ((> m 3))
(do ((n 0 (+ n 1))) ((> n 3))
(if(not(equal? k l))
(if(not(equal? k m))
(if(not(equal? k n))
(if(not(equal? l m))
(if(not(equal? l n))
(if(not(equal? m n)) ((display k)(display l)(display m)(display n))
))))))))))))
(trace function)
(function \'(1 2 3 4 ))
0123. . procedure application: expected procedure, given: #<void>; arguments were: #<void> #<void> #<void>
if
没有找到相关结果
已邀请:
1 个回复
苛肠倒俱
通过Lisp通常通过评估每个列表条目并使用后一个条目的结果调用第一个条目来评估Lisp，但是不会评估一个函数！指示Scheme简单评估以下每个术语。 就像编码在Java中。