(
defun cont (lista)
(
if (equal lista nil)
  0
(
    + 1 (cont (cdr lista)) 
)
 
 
)
)
 
 
(
defun contuno(lista)
(
   + 1 (
 
if (equal lista nil)
-1
(
    contuno(cdr lista)
)
)
)
)
 
(
  defun del(lista)
   (
    if(equal lista nil)
     lista
     (
     if(numberp (car lista))
     (
          cons (car lista) (del (cdr lista))
     )
(
    append (del (car lista)) (del(cdr lista))
)
     )
)
)
(
  defun quita(lista)
   (
    if(equal lista nil)
     lista
     (
     if(numberp (car lista))
     (
          cons (car lista) ( quita (cdr lista))
     )
(
     if(listp (car lista))
       (    cons (quita (car lista)) ( quita (cdr lista)))
       ( quita (cdr lista) )
)
     )
)
)
 
(
defun suma_lista (l)
(
if(equal l nil)
0
(
    if(numberp (car l))
(
    + (car l) (suma_lista (cdr l))
)
(
    + (suma_lista (car l)) (suma_lista (cdr l))
)
)
)
)
 
(
defun fib1(n)
(
if(or (= n 0) (= n 1))
1
(
 * (fib1(- n 1)) (fib1(- n 2))
)
)
)
(print (cont '(1 2 3 4 5 6)))
(print (contuno '(1 2 3 4 5 6)))
(print (del '(1 (2 (3)) 4 5 6)))
(print (quita '(1 (a (a)) 4 b 6)))
 
(print (suma_lista '(1 (2 (3)) 4 5 6)))
 
(print(fib1 5))
 
 
 
 

KApkZWZ1biBjb250IChsaXN0YSkKKAppZiAoZXF1YWwgbGlzdGEgbmlsKQogIDAKKAogICAgKyAxIChjb250IChjZHIgbGlzdGEpKSAKKQoKCikKKQoKCigKZGVmdW4gY29udHVubyhsaXN0YSkKKAogICArIDEgKAoKaWYgKGVxdWFsIGxpc3RhIG5pbCkKLTEKKAogICAgY29udHVubyhjZHIgbGlzdGEpCikKKQopCikKCigKICBkZWZ1biBkZWwobGlzdGEpCiAgICgKICAgIGlmKGVxdWFsIGxpc3RhIG5pbCkKICAgICBsaXN0YQogICAgICgKICAgICBpZihudW1iZXJwIChjYXIgbGlzdGEpKQogICAgICgKICAgICAgICAgIGNvbnMgKGNhciBsaXN0YSkgKGRlbCAoY2RyIGxpc3RhKSkKICAgICApCigKICAgIGFwcGVuZCAoZGVsIChjYXIgbGlzdGEpKSAoZGVsKGNkciBsaXN0YSkpCikKICAgICApCikKKQooCiAgZGVmdW4gcXVpdGEobGlzdGEpCiAgICgKICAgIGlmKGVxdWFsIGxpc3RhIG5pbCkKICAgICBsaXN0YQogICAgICgKICAgICBpZihudW1iZXJwIChjYXIgbGlzdGEpKQogICAgICgKICAgICAgICAgIGNvbnMgKGNhciBsaXN0YSkgKCBxdWl0YSAoY2RyIGxpc3RhKSkKICAgICApCigKICAgICBpZihsaXN0cCAoY2FyIGxpc3RhKSkKICAgICAgICggICAgY29ucyAocXVpdGEgKGNhciBsaXN0YSkpICggcXVpdGEgKGNkciBsaXN0YSkpKQogICAgICAgKCBxdWl0YSAoY2RyIGxpc3RhKSApCikKICAgICApCikKKQoKKApkZWZ1biBzdW1hX2xpc3RhIChsKQooCmlmKGVxdWFsIGwgbmlsKQowCigKICAgIGlmKG51bWJlcnAgKGNhciBsKSkKKAogICAgKyAoY2FyIGwpIChzdW1hX2xpc3RhIChjZHIgbCkpCikKKAogICAgKyAoc3VtYV9saXN0YSAoY2FyIGwpKSAoc3VtYV9saXN0YSAoY2RyIGwpKQopCikKKQopCgooCmRlZnVuIGZpYjEobikKKAppZihvciAoPSBuIDApICg9IG4gMSkpCjEKKAogKiAoZmliMSgtIG4gMSkpIChmaWIxKC0gbiAyKSkKKQopCikKKHByaW50IChjb250ICcoMSAyIDMgNCA1IDYpKSkKKHByaW50IChjb250dW5vICcoMSAyIDMgNCA1IDYpKSkKKHByaW50IChkZWwgJygxICgyICgzKSkgNCA1IDYpKSkKKHByaW50IChxdWl0YSAnKDEgKGEgKGEpKSA0IGIgNikpKQoKKHByaW50IChzdW1hX2xpc3RhICcoMSAoMiAoMykpIDQgNSA2KSkpCgoocHJpbnQoZmliMSA1KSkKCgoK