fork download
copy 
;; Definimos una lista con animales y su clasificación
(setq animales '(("perro" "mamifero")
                 ("gato" "mamifero")
                 ("águila" "ave")
                 ("canario" "ave")))

;; Función para determinar si un animal es mamífero o ave
(defun tipo-animal (animal)
  (dolist (elemento animales)
    (when (equal (car elemento) animal)
      (return (cadr elemento)))))

;; Ejemplo de uso de la función
(print(tipo-animal "gato"))   ;; Retorna "mamifero"
(print(tipo-animal "canario")) ;; Retorna "ave"
Success #stdin #stdout #stderr 0.01s 9652KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
"mamifero" 
"ave"
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x14fbffe00000 - 0x14fc000e4fff
  0x14fc00200000 - 0x14fc00202fff
  0x14fc00203000 - 0x14fc00401fff
  0x14fc00402000 - 0x14fc00402fff
  0x14fc00403000 - 0x14fc00403fff
  0x14fc00415000 - 0x14fc00439fff
  0x14fc0043a000 - 0x14fc005acfff
  0x14fc005ad000 - 0x14fc005f5fff
  0x14fc005f6000 - 0x14fc005f8fff
  0x14fc005f9000 - 0x14fc005fbfff
  0x14fc005fc000 - 0x14fc005fffff
  0x14fc00600000 - 0x14fc00603fff
  0x14fc00604000 - 0x14fc00803fff
  0x14fc00804000 - 0x14fc00804fff
  0x14fc00805000 - 0x14fc00805fff
  0x14fc0080f000 - 0x14fc00810fff
  0x14fc00811000 - 0x14fc00820fff
  0x14fc00821000 - 0x14fc00854fff
  0x14fc00855000 - 0x14fc0098bfff
  0x14fc0098c000 - 0x14fc0098cfff
  0x14fc0098d000 - 0x14fc0098ffff
  0x14fc00990000 - 0x14fc00990fff
  0x14fc00991000 - 0x14fc00992fff
  0x14fc00993000 - 0x14fc00993fff
  0x14fc00994000 - 0x14fc00995fff
  0x14fc00996000 - 0x14fc00996fff
  0x14fc00997000 - 0x14fc00997fff
  0x14fc00998000 - 0x14fc00998fff
  0x14fc00999000 - 0x14fc009a6fff
  0x14fc009a7000 - 0x14fc009b4fff
  0x14fc009b5000 - 0x14fc009c1fff
  0x14fc009c2000 - 0x14fc009c5fff
  0x14fc009c6000 - 0x14fc009c6fff
  0x14fc009c7000 - 0x14fc009c7fff
  0x14fc009c8000 - 0x14fc009cdfff
  0x14fc009ce000 - 0x14fc009cffff
  0x14fc009d0000 - 0x14fc009d0fff
  0x14fc009d1000 - 0x14fc009d1fff
  0x14fc009d2000 - 0x14fc009d2fff
  0x14fc009d3000 - 0x14fc00a00fff
  0x14fc00a01000 - 0x14fc00a0ffff
  0x14fc00a10000 - 0x14fc00ab5fff
  0x14fc00ab6000 - 0x14fc00b4cfff
  0x14fc00b4d000 - 0x14fc00b4dfff
  0x14fc00b4e000 - 0x14fc00b4efff
  0x14fc00b4f000 - 0x14fc00b62fff
  0x14fc00b63000 - 0x14fc00b8afff
  0x14fc00b8b000 - 0x14fc00b94fff
  0x14fc00b95000 - 0x14fc00b96fff
  0x14fc00b97000 - 0x14fc00b9cfff
  0x14fc00b9d000 - 0x14fc00b9ffff
  0x14fc00ba2000 - 0x14fc00ba2fff
  0x14fc00ba3000 - 0x14fc00ba3fff
  0x14fc00ba4000 - 0x14fc00ba4fff
  0x14fc00ba5000 - 0x14fc00ba5fff
  0x14fc00ba6000 - 0x14fc00ba6fff
  0x14fc00ba7000 - 0x14fc00badfff
  0x14fc00bae000 - 0x14fc00bb0fff
  0x14fc00bb1000 - 0x14fc00bb1fff
  0x14fc00bb2000 - 0x14fc00bd2fff
  0x14fc00bd3000 - 0x14fc00bdafff
  0x14fc00bdb000 - 0x14fc00bdbfff
  0x14fc00bdc000 - 0x14fc00bdcfff
  0x14fc00bdd000 - 0x14fc00bddfff
  0x561cf178f000 - 0x561cf187ffff
  0x561cf1880000 - 0x561cf1989fff
  0x561cf198a000 - 0x561cf19e9fff
  0x561cf19eb000 - 0x561cf1a19fff
  0x561cf1a1a000 - 0x561cf1a4afff
  0x561cf1a4b000 - 0x561cf1a4efff
  0x561cf2cd5000 - 0x561cf2cf5fff
  0x7ffd977e2000 - 0x7ffd97802fff
  0x7ffd9799a000 - 0x7ffd9799dfff
  0x7ffd9799e000 - 0x7ffd9799ffff
https://ideone.com/G4kX4M
language:
Common Lisp (clisp 2.49.92)
created:
12 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!