Lisp再帰的ランダムウォークを最適化する

Question

この関数は約2000ステップ以上のスタックオーバーフローを引き起こします。メモリを少なくするために簡単に最適化できる方法はありますか？

(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

あなただけあなたが簡単にすべての再帰的ではないし、それを書き換えることができることを意味し、尾の位置に呼び出すように見えます：私は私が持っているあなたが使用する関数を持っていないので

(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)))) 

ベースケース以外でテストすることはできませんでした。