Advertisement
UrQuan

Untitled

Oct 20th, 2015
298
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. ;LISP 2
  2.  
  3. (defun pitagora (x y)
  4. (sqrt (+ (expt x 2) (expt y 2)))
  5. )
  6.  
  7. (defun listaj-me (x)
  8. (car (cdr (cdr (cdr x))))
  9. )
  10.  
  11. (defun ima-li-nas (&optional (x 'nema) &rest y) ; Malo modificiran zadatak
  12. (if (not y) x ; buduci da ne bi trebalo biti
  13. (cons (* x (car y)) (cdr y)) ; "NEMA" dijela, vec je x obavezan
  14. )
  15. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement