doomy - Fevruari (2015) - kaznena

Дефинирај функција doomy која како аргумент прима природен број, а враќа вредност
дефинирана на следниот начин:
doomy(n) = doomy(n – 1) + doomy(n – 2) + 1, ако n е парен број поголем од 2,
doomy(n) = doomy(n – 1) + doomy(n – 2), ако n e непарен број поголем од 1,
doomy(1) = 1 и doomy(2) = 2.

Пример: (doomy 4) -> 6
 (doomy 11) -> 177

(defun doomy (n)
    (cond
        ((equal n 1) 1)
        ((equal n 2) 2)
        ((and (evenp n)(> n 2))(+ (doomy (- n 1))(doomy (- n 2)) 1))
        ((and (oddp n)(> n 1))(+ (doomy (- n 1))(doomy (- n 2))))
        )
    )

(print (doomy 11))