Sistemas

FBNC
(defun fib (n)
"Simple recursive Fibonacci number function"
(if (< n 2)
n
(+ (fib (- n 1)) (fib (- n 2)))))

FACT
(Defun factorial (N)
"Calcular el factorial de N."
(If (= N 1)
1(* N (factorial (- N 1)))))

>(sort ´(1 7 3 9 4) #'>))
(9 7 4 3 1)
>(sort '((2 7 8) (4 3 1 9) (1 4) (1)) #'(lambda (x y)
(< (length x) (length y))))
((1) (1 4) (2 7 8) (4 3 1 9))>(find 4 ’(1 2 3 4 5))
4
>(if (find 3 ’(1 2 3 4)) ’Si ’No)
Si

> (find 3 ’(2 4 6 8) :test #’<)
4
Se corresponde con la siguiente cuestión ¿hay un elemento de (2 4 6 8) tal que(< 3 elemento) devuelva TRUE? Si así es, devolverá 4.

>(find ’(A B)’((A B) (C D) (E F))
NIL
>(find ’(A B)’((A B) (C D) (E F) :test #’equal)
(A B)
>(defun casi-igual (Num1 Num2)(<= (abs (- Num1 Num2)) 0.1))
CASI-IGUAL
>(find pi ’(2.9 3.0 3.1 3.2 3.3) :test #’casi-igual)
3.1

>(remove 1 ’((0 1) (1 2) (2 3)) :key #’first)
((0 1) (2 3))
>(remove-if #’evenp ’(1 23 4 5))
(1 3 5)
>(remove-if-not #’evenp ’(1 2 3 4 5))
(2 4)

(defun Mantener-si(Predicado Lista &rest Especificadores)
(apply #’remove-if-not Predicado Lista Especificadores))(mapcar (lambda (x) (+ x 10)) '(1 2 3 4)) => (11 12 13 14)
(mapcar #'round '(1.3 2.7 3.4 4.5)) => (1 3 3 4)
(mapcar #'list '(123 symbol "string" 345)'(1 2 3)) => ((123 1) (SYMBOL 2) ("string" 3))
(mapcar #'* '(3 4 5) '(4 5 6)) => (12 20 30)

(mod 36 6) modulo
(sqrt 25) raíz cuadrada
(max 7 37 39 2) devuelve elmáximo valor.
(min 7 37 39 2) devuelve el mínimo valor.
(abs -2) devuelve el valor absoluto.
(cons 'a '(b c)) Devuelve (a b c)
(list 5 7 9) Devuelve (5 7 9)
(append '(a) (list 2 (cons 'b'(3)) 4) '(5)) Devuelve (a 2 (b 3) 4 5) (une las listas)
(length ‘(a b c)) Devuelve el número de elementos de la lista.
(reverse ‘(a b c)) Devuelve la misma lista pero invierte el orden....