fork download
copy 
  1. ; your code goes here
  2. ; your code goes here
  3. (defun ICidadep(lista)
  4.     (if (and (numberp (second lista))
  5. (numberp (first lista))
  6.          (numberp (third lista)))
  7.       1 0))
  8.  
  9. (print (ICidadep '("Lisboa" 3 4)))
  10.  
  11. (print (ICidadep '(1 2 4)))
Success #stdin #stdout 0.01s 9552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0 
1
https://ideone.com/OtoSug
language:
Common Lisp (clisp 2.49.92)
created:
4 years 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!