К-тын тооллын систем 2 /SPOJ-CSMS/ - CLISP language

Яаж бодчихсон юм бол оо? Одоо харсан ойлгох юу ч алга. Тэр өдөр л сүрхий ойлгоод тэнцүүлчихсэн юм байх даа?


http://www.spoj.com/CSMS/problems/TIM1012/

(setf myarray (make-array '(180 200) :initial-element -1)) (defun func(n k) (if (zerop n) 1 (if (eq n 1) (1- k) (if (= (aref myarray n k) -1) (setf (aref myarray n k) (* (1- k) (+ (func (1- n) k) (func (- n 2) k)))) (aref myarray n k))))) (print (func (read) (read)))