Rococo(测试程序）

(defun  test  (n)

(if  (>  n  0)

   (+   (test  (-  n  1) )  n )

    0

)

)

 

(test  0)

(test  1)

(test  2)

(test  3)

 

￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥

(defun  test  ( n  result)

(if  (>  n  0)

   (test (- n 1) (cons n result) ) 

    result

)

)

 

(test  0 nil)

(test  1  nil)

(test  2  nil)

(test  3  nil)

(test  4 nil)