Ideone.com | Online Common Lisp Interpreter & Debugging Tool

Computer geeks!

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 20965 page: 1 2 3 4 5 6 7 8 9 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

24 days 23 hours ago view (lines: 7, size: 159, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
5
6
7
(defun factorial (n)
    (if (= n 0)
        1
        (* n (factorial (- n 1))) ) )
 
(loop for i from 0 to 16
    do (format t "~D! = ~D~%" i (factorial i)) )

25 days 5 hours ago view (lines: 5, size: 205, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
5
(defun fu (x y) (if (or (= x 0) (= y 0)) (+ x y) (if (>= x y) (fu (- x y) y) (fu x (- y x)))))
(format t "~A:" (fu 10 12))
(format t "~A:" (fu 21 15))
(format t "~A:" (fu 32 41))
(format t "~A" (fu 60 81))

25 days 6 hours ago view (lines: 5, size: 205, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
5
(defun fu (x y) (if (or (= x 0) (= y 0)) (+ x x) (if (>= x y) (fu (- x y) y) (fu x (- y x)))))
(format t "~A:" (fu 10 12))
(format t "~A:" (fu 21 15))
(format t "~A:" (fu 32 41))
(format t "~A" (fu 60 81))

25 days 6 hours ago view (lines: 5, size: 205, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
5
(defun fu (x y) (if (or (= x 0) (= y 0)) (+ x x) (if (>= x y) (fu (- x y) y) (fu x (- y x)))))
(format t "~A:" (fu 10 12))
(format t "~A:" (fu 21 15))
(format t "~A:" (fu 32 41))
(format t "~A" (fu 60 81))

25 days 9 hours ago view (lines: 5, size: 205, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
5
(defun fu (x y) (if (or (= x 0) (= y 0)) (- x y) (if (>= x y) (fu (- x y) y) (fu x (- y x)))))
(format t "~A:" (fu 10 12))
(format t "~A:" (fu 21 15))
(format t "~A:" (fu 32 41))
(format t "~A" (fu 60 81))

25 days 9 hours ago view (lines: 2, size: 122, inputs: 1) Common Lisp (clisp) Success

1
2
(defun fu (x y) (if (or (= x 0) (= y 0)) (- x y) (if (>= x y) (fu (- x y) y) (fu x (- y x)))))
(format t "~A:" (fu 10 12))

25 days 14 hours ago view (lines: 8, size: 172, inputs: 2) Common Lisp (clisp) Success

1
2
3
4
5
6
7
8
(defun ff (x y)
        (cond
                ( (null y) nil )
                ( (eq x (car y))  (ff x (cdr y)) )
                ( T             (cons x (ff x (cdr y))) )
        )
)
(ff '3 '(1 2 3 4 5))

25 days 14 hours ago view (lines: 8, size: 172, inputs: 2) Common Lisp (clisp) Success

1
2
3
4
5
6
7
8
(defun ff (x y)
        (cond
                ( (null y) nil )
                ( (eq x (car y))  (ff x (cdr y)) )
                ( T             (cons x (ff x (cdr y))) )
        )
)
(ff '3 '(1 2 3 4 5))

25 days 14 hours ago view (lines: 7, size: 151, inputs: 2) Common Lisp (clisp) Success

1
2
3
4
5
6
7
(defun ff (x y)
        (cond
                ( (null y) nil )
                ( (eq x (car y))  (ff x (cdr y)) )
                ( T             (cons x (ff x (cdr y))) )
        )
)

25 days 14 hours ago view (lines: 7, size: 151, inputs: 2) Common Lisp (clisp) Success

1
2
3
4
5
6
7
(defun ff (x y)
        (cond
                ( (null y) nil )
                ( (eq x (car y))  (ff x (cdr y)) )
                ( T             (cons x (ff x (cdr y))) )
        )
)

25 days 14 hours ago view (lines: 7, size: 160, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
(defun ff (lambda (x y)
        (cond
                ( (null y) nil )
                ( (eq x (car y))  (ff x (cdr y)) )
                ( T             (cons x (ff x (cdr y))) )
        )
))

25 days 14 hours ago view (lines: 14, size: 223, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
5
6
7
8
9
(defun fu (x y)
        (if (or (= x 0) (= y 0))
                (+ y y)
                (if (>= x y)
                        (fu (- x y) y)
                        (fu x (- y x))
                )
        )
)
 ...

25 days 14 hours ago view (lines: 14, size: 220, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
5
6
7
8
9
(defun fu (x y)
        (if (or (= x 0) (= y 0))
                (+ y y)
                (if (>= x y)
                        (fu (- x y) y)
                        (fu x (- y x))
                )
        )
)
 ...

25 days 14 hours ago view (lines: 11, size: 139, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
5
6
7
8
9
(defun fu (x y)
        (if (or (= x 0) (= y 0))
                (+ y y)
                (if (>= x y)
                        (fu (- x y) y)
                        (fu x (- y x))
                )
        )
)
 ...

25 days 14 hours ago view (lines: 11, size: 138, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
8
9
(defun fu (x y)
        (if (or (= x 0) (= y 0))
                (+ y y)
                (if (>= x y)
                        (fu (- x y) y)
                        (fu x (- y x))
                )
        )
)
 ...

25 days 14 hours ago view (lines: 11, size: 134, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
8
9
(defun fu (x y)
        (if (or (= x 0) (= y 0))
                (+ y y)
                (if (>= x y)
                        (fu (- x y) y)
                        (fu x (- y x))
                )
        )
)
 ...

25 days 20 hours ago view (lines: 1, size: 7, inputs: 1) Common Lisp (clisp) Success

1
(+ 3 5)

25 days 20 hours ago view (lines: 1, size: 6, inputs: 1) Common Lisp (clisp) Runtime error

1
(+3 5)

25 days 20 hours ago view (lines: 1, size: 14, inputs: 1) Common Lisp (clisp) Success

1
(quote (+3 5))

26 days 7 hours ago view (lines: 11, size: 163, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
8
9
 
1
2
3
4
(loop 
        for line = (read-line *standard-input* nil nil) 
        while (not (equal line "42")) 
        do (format t "~A~%" line))
 ...

26 days 23 hours ago view (lines: 4, size: 116, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
(loop 
        for line = (read-line *standard-input* nil nil) 
        while (not (equal line "42")) 
        do (format t "~A~%" line))

27 days 5 hours ago view (lines: 12, size: 338, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
8
9
(defun avg (l)
  (let ((sum 
         (foldl (lambda (x u) (cons (+ (car u) (car x))
                                    (+ (cdr u) (cdr x))))
                (cons 0 0) (map (lambda (x) (cons x 1)) l))))
    (/ (car sum) (cdr sum))))
 
(defun test (list 1 2 3 4 5))
 
 ...

27 days 5 hours ago view (lines: 12, size: 334, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
8
9
(defun avg (l)
  (let ((sum 
         (foldl (lambda (x u) (cons (+ (car u) (car x))
                                    (+ (cdr u) (cdr x))))
                (cons 0 0) (map (lambda (x) (cons x 1)) l))))
    (/ (car sum) (cdr sum))))
 
(defun test '(1 2 3 4 5))
 
 ...

27 days 5 hours ago view (lines: 12, size: 335, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
8
9
(defun avg (l)
  (let ((sum 
         (foldl (lambda (x u) (cons (+ (car u) (car x))
                                    (+ (cdr u) (cdr x))))
                (cons 0 0) (map (lambda (x) (cons x 1)) l))))
    (/ (car sum) (cdr sum))))
 
(define test '(1 2 3 4 5))
 
 ...

27 days 5 hours ago view (lines: 12, size: 335, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
8
9
(defun (avg l)
  (let ((sum 
         (foldl (lambda (x u) (cons (+ (car u) (car x))
                                    (+ (cdr u) (cdr x))))
                (cons 0 0) (map (lambda (x) (cons x 1)) l))))
    (/ (car sum) (cdr sum))))
 
(define test '(1 2 3 4 5))
 
 ...

27 days 5 hours ago view (lines: 12, size: 336, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
7
8
9
(define (avg l)
  (let ((sum 
         (foldl (lambda (x u) (cons (+ (car u) (car x))
                                    (+ (cdr u) (cdr x))))
                (cons 0 0) (map (lambda (x) (cons x 1)) l))))
    (/ (car sum) (cdr sum))))
 
(define test '(1 2 3 4 5))
 
 ...

27 days 10 hours ago view (lines: 1, size: 7, inputs: 2) Common Lisp (clisp) Success

1
(+ 1 2)

27 days 10 hours ago view (lines: 1, size: 7, inputs: 2) Common Lisp (clisp) Success

1
(+ 1 2)

27 days 11 hours ago view (lines: 4, size: 116, inputs: 1) Common Lisp (clisp) Success

1
2
3
4
(loop 
        for line = (read-line *standard-input* nil nil) 
        while (not (equal line "42")) 
        do (format t "~A~%" line))

28 days 4 hours ago view (lines: 6, size: 72, inputs: 1) Common Lisp (clisp) Runtime error

1
2
3
4
5
6
(defun k-combinator (x y)
        (y x)
        x)
        
        
(k-combinator 10 format t "%a")

page: 1 2 3 4 5 6 7 8 9 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

1 2 3 4 5 6 7 8 9	(defun fu (x y) (if (or (= x 0) (= y 0)) (+ y y) (if (>= x y) (fu (- x y) y) (fu x (- y x)) ) ) )
...

1 2 3 4 5 6 7 8 9	1 2 3 4 (loop for line = (read-line standard-input nil nil) while (not (equal line "42")) do (format t "~A~%" line))
...

UsernamePassword

Username
Password