LISP Funcs, Common Lisp

Language: Layout:

;gnu clisp  2.49.60

; ЛР 5, 1
(defun lstLength (lst) 
     (cond ((null lst) 0)
           (t (+ 1 (lstLength (cdr lst))))    
     )
)

; ЛР 5, 2
(defun isMember (n lst)
    (cond ((null lst) NIL)
          ((atom (car lst)) 
              (cond ((eq (car lst) n) T)
                    (t (isMember n (cdr lst)))
              )
          )
          (t 
              (cond ((isMember n (car lst)) T)
                    (t (isMember n (cdr lst)))
              )          
          )  
    ) 
)

; ЛР 5, 3
(defun fibonacciNum (n)
    (cond ((eq n 0) 0)
          ((eq n 1) 1)
          (t (+ (fibonacciNum (- n 1)) (fibonacciNum (- n 2))))
    )
)

; ЛР 5, 4
(defun invers (lst)
    (cond ((null lst) ())
          (t (append (invers (cdr lst)) (list (car lst))))
    )
)

; ЛР 5, 5
(defun makeList (n x)
    (cond ((eq n 0) ())
          ((eq n 1) (list x))
          (t (cons x (makeList (- n 1) x)))
    )    
)

; ЛР 6, 6
;(listElSum '(() 15 (5) (11 (()))))
(defun listElSum (lst)
    (cond ((null lst) 0)
          ((atom (car lst)) 
              (cond ((null (car lst)) (+ 0 (listElSum (cdr lst))))
                    (t (+ (car lst) (listElSum (cdr lst))))
              )
          )
          (t (+ (listElSum (car lst)) (listElSum (cdr lst))))
    )
)

; ЛР 6, 1
(defun floatSum (lst) 
    (cond ((null lst) 0)
          ((floatp (car lst)) (+ (car lst) (floatSum (cdr lst))))
          (t (floatSum (cdr lst)))
    )
)

(print (floatSum '(2.1 33 333 3 3331 4.72))
)

[ + ] Show input
Absolute running time: 0.09 sec, cpu time: 0.01 sec, memory peak: 6 Mb, absolute service time: 0,21 sec