plutonas
public text v1 · immutable(defun find-line-cost (i j M wordlist) ;; bingo
(cond ((= j (1- (length wordlist))) 0)
((> (+ j (- i) (sum i j #'(lambda (x) (length (elt wordlist x)))))) 1e38)
(t (expt (+ i M
(- j)
(- (sum i j #'(lambda (x) (length (elt wordlist x))))))
3))))