Advertisement
Latkoski

Doomy

Aug 21st, 2016
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.39 KB | None | 0 0
  1. (defun doomy (broj)
  2.     (rekurzija broj 1 2)
  3.     )
  4.  
  5. (defun rekurzija (broj arg1 arg2)
  6.     (cond
  7.         ((eq broj 1) 1)
  8.         ((eq broj 2) arg2)
  9.         ((and (evenp broj)(> broj 2))(rekurzija (- broj 1) arg2 (+ arg1 arg2 1))) ;;rekurzijava go prenesvit rezultat ko arg2
  10.         ((and (oddp broj)(> broj 1))(rekurzija (- broj 1) arg2 (+ arg1 arg2 )))
  11.         )
  12.     )
  13.  
  14. (print (doomy 11))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement