a.lsp:
(defun abcd(y)
(if(= y 10) (print (abc y))
(progn
(defun abc(x)
(if(= x (* y 10)) nil
(cons x (abc (+ x y)))
)
)
(print (abc y))
(abcd (+ y 1))
)
)
)
(print (abcd 1))
console:
[24]> (load "a.lsp")
;; Loading file a.lsp ...
(1 2 3 4 5 6 7 8 9)
(2 4 6 8 10 12 14 16 18)
(3 6 9 12 15 18 21 24 27)
(4 8 12 16 20 24 28 32 36)
(5 10 15 20 25 30 35 40 45)
(6 12 18 24 30 36 42 48 54)
(7 14 21 28 35 42 49 56 63)
(8 16 24 32 40 48 56 64 72)
(9 18 27 36 45 54 63 72 81)
*** - Program stack overflow. RESET
どこでオーバーフローしてるのかわからない…