Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;LISP 2
- (defun pitagora (x y)
- (sqrt (+ (expt x 2) (expt y 2)))
- )
- (defun listaj-me (x)
- (car (cdr (cdr (cdr x))))
- )
- (defun ima-li-nas (&optional (x 'nema) &rest y) ; Malo modificiran zadatak
- (if (not y) x ; buduci da ne bi trebalo biti
- (cons (* x (car y)) (cdr y)) ; "NEMA" dijela, vec je x obavezan
- )
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement