fork download
copy 
  1. (defun count(x)
  2. 	(cond ((null x) 0)
  3. 	       ((atom x)1)
  4. 	       (t (+ (count (car x))
  5. 	    		(count (cdr x))))))
  6.  
  7. (write (count'((1 2)3)))
Success #stdin #stdout #stderr 0.02s 10308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3
stderr
copy 
WARNING: DEFUN/DEFMACRO(COUNT): #<PACKAGE COMMON-LISP> is locked
         Ignore the lock and proceed
WARNING: DEFUN/DEFMACRO: redefining function COUNT in /home/JGeBra/prog.lisp,
         was defined in C
https://ideone.com/F4HF3t
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!