fork download
copy 
  1. (defun my-length (s) (if (null (car s)) 0 (1+ (my-length (cdr s)))))
  2.  
  3. (print (my-length (list 1 2 3 4 5 6)))
  4.  
  5. (defun counter (x n) (if (zerop n) nil (cons x (counter (1+ x) (1- n)))))
  6. (print (counter 10 50))
Success #stdin #stdout 0s 535040KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
6 
(10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59)
https://ideone.com/zowtRS
language:
Common Lisp (clisp 2.49.92)
created:
7 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!