Lisp 재귀 적 랜덤 워크 최적화

Question

이 함수는 약 2000 단계 이상의 스택 오버 플로우를 초래합니다. 메모리를 적게 사용하도록 쉽게 최적화 할 수있는 방법이 있습니까? 난 당신이 내가 가지고 사용하는 기능을 가지고 있지 않기 때문에

(defun randomwalk (steps state) 
    (loop :if (= steps 0)  
      :do (return nil) 
     :if (solved? state) 
      :do (return t) 
     :else 
      :do (let* ((nrmlstate (normalize state)) 
         (moves (getallmoves nrmlstate)) 
         (random-move (nth (random (length moves)) moves))) 
        (setf state (applymove nrmlstate random-move)) 
        (decf steps)))) 

을 : 당신은 당신이 쉽게 모든 재귀하지를 다시 작성할 수 있습니다 의미 꼬리 위치에 전화처럼

(defun randomwalk (steps state) 
(displaystate state) 
(if (equal steps 0) nil 
     (if (solved? state) t 
      (let ((nrmlstate (normalize state))) 
       (randomwalk (- steps 1) (applymove nrmlstate (nth (random 
(length (getallmoves nrmlstate))) (getallmoves nrmlstate)))) 
      ) 
     ) 
    ) 
) 

Answer 1

은 같습니다 기본 케이스가 아닌 다른 테스트를 할 수 없었습니다.