fork download
copy 
  1. ;; Definición de hechos sobre los animales
  2.  
  3. (defparameter *mamiferos* '(leon perro))
  4.  
  5. (defparameter *aves* '(canario paloma))
  6.  
  7. ;; Función para determinar si un animal es mamífero
  8.  
  9. (defun es-mamifero (animal)
  10.  
  11.   (member animal *mamiferos*))
  12.  
  13. ;; Función para determinar si un animal es un ave
  14.  
  15. (defun es-ave (animal)
  16.  
  17.   (member animal *aves*))
  18.  
  19.  
  20.  
  21.  
  22. ;; Consultas de ejemplo
  23.  
  24. ;; ¿Es el león un mamífero?
  25.  
  26. ;;(print (es-mamifero 'leon))
  27.  
  28. ;; ¿Es el canario un ave?
  29.  
  30. ;;(print (es-ave 'canario))
  31.  
  32. ;; ¿Es el perro un ave?
  33.  
  34. ;;(print (es-ave 'perro)
Success #stdin #stdout #stderr 0.02s 9500KB
comments (?)
stdin
copy 
(print (es-mamifero 'leon))
stdout
copy 
Standard output is empty
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x150ab9400000 - 0x150ab96e4fff
  0x150ab9815000 - 0x150ab9839fff
  0x150ab983a000 - 0x150ab99acfff
  0x150ab99ad000 - 0x150ab99f5fff
  0x150ab99f6000 - 0x150ab99f8fff
  0x150ab99f9000 - 0x150ab99fbfff
  0x150ab99fc000 - 0x150ab99fffff
  0x150ab9a00000 - 0x150ab9a02fff
  0x150ab9a03000 - 0x150ab9c01fff
  0x150ab9c02000 - 0x150ab9c02fff
  0x150ab9c03000 - 0x150ab9c03fff
  0x150ab9c80000 - 0x150ab9c8ffff
  0x150ab9c90000 - 0x150ab9cc3fff
  0x150ab9cc4000 - 0x150ab9dfafff
  0x150ab9dfb000 - 0x150ab9dfbfff
  0x150ab9dfc000 - 0x150ab9dfefff
  0x150ab9dff000 - 0x150ab9dfffff
  0x150ab9e00000 - 0x150ab9e03fff
  0x150ab9e04000 - 0x150aba003fff
  0x150aba004000 - 0x150aba004fff
  0x150aba005000 - 0x150aba005fff
  0x150aba03f000 - 0x150aba042fff
  0x150aba043000 - 0x150aba043fff
  0x150aba044000 - 0x150aba045fff
  0x150aba046000 - 0x150aba046fff
  0x150aba047000 - 0x150aba047fff
  0x150aba048000 - 0x150aba048fff
  0x150aba049000 - 0x150aba056fff
  0x150aba057000 - 0x150aba064fff
  0x150aba065000 - 0x150aba071fff
  0x150aba072000 - 0x150aba075fff
  0x150aba076000 - 0x150aba076fff
  0x150aba077000 - 0x150aba077fff
  0x150aba078000 - 0x150aba07dfff
  0x150aba07e000 - 0x150aba07ffff
  0x150aba080000 - 0x150aba080fff
  0x150aba081000 - 0x150aba081fff
  0x150aba082000 - 0x150aba082fff
  0x150aba083000 - 0x150aba0b0fff
  0x150aba0b1000 - 0x150aba0bffff
  0x150aba0c0000 - 0x150aba165fff
  0x150aba166000 - 0x150aba1fcfff
  0x150aba1fd000 - 0x150aba1fdfff
  0x150aba1fe000 - 0x150aba1fefff
  0x150aba1ff000 - 0x150aba212fff
  0x150aba213000 - 0x150aba23afff
  0x150aba23b000 - 0x150aba244fff
  0x150aba245000 - 0x150aba246fff
  0x150aba247000 - 0x150aba24cfff
  0x150aba24d000 - 0x150aba24ffff
  0x150aba252000 - 0x150aba252fff
  0x150aba253000 - 0x150aba253fff
  0x150aba254000 - 0x150aba254fff
  0x150aba255000 - 0x150aba255fff
  0x150aba256000 - 0x150aba256fff
  0x150aba257000 - 0x150aba25dfff
  0x150aba25e000 - 0x150aba260fff
  0x150aba261000 - 0x150aba261fff
  0x150aba262000 - 0x150aba282fff
  0x150aba283000 - 0x150aba28afff
  0x150aba28b000 - 0x150aba28bfff
  0x150aba28c000 - 0x150aba28cfff
  0x150aba28d000 - 0x150aba28dfff
  0x55c9cc811000 - 0x55c9cc901fff
  0x55c9cc902000 - 0x55c9cca0bfff
  0x55c9cca0c000 - 0x55c9cca6bfff
  0x55c9cca6d000 - 0x55c9cca9bfff
  0x55c9cca9c000 - 0x55c9ccaccfff
  0x55c9ccacd000 - 0x55c9ccad0fff
  0x55c9cd828000 - 0x55c9cd848fff
  0x7ffec7f7d000 - 0x7ffec7f9dfff
  0x7ffec7ffa000 - 0x7ffec7ffdfff
  0x7ffec7ffe000 - 0x7ffec7ffffff
https://ideone.com/thOlQ7
language:
Common Lisp (clisp 2.49.92)
created:
11 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!