Ideone.com | Online Scheme Interpreter & Debugging Tool

Computer geeks!

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

codes: 16374 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

11 days 14 hours ago view (lines: 20, size: 451, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 14 hours ago view (lines: 9, size: 164, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
(define (factorial n)
                (define (f n k)
                                (if (= n 0)
                                        (k 1)
                                        (f (- n 1) (lambda (acc) (* acc n)))))
                (f n (lambda (acc) acc)))
 
(display (factorial 3))

11 days 14 hours ago view (lines: 9, size: 164, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
(define (factorial n)
                (define (f n k)
                                (if (= n 0)
                                        (k 1)
                                        (f (- n 1) (lambda (acc) (* acc n)))))
                (f n (lambda (acc) acc)))
 
(display (factorial 2))

11 days 14 hours ago view (lines: 9, size: 164, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
(define (factorial n)
                (define (f n k)
                                (if (= n 0)
                                        (k 1)
                                        (f (- n 1) (lambda (acc) (* acc n)))))
                (f n (lambda (acc) acc)))
 
(display (factorial 1))

11 days 14 hours ago view (lines: 9, size: 169, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define (factorial n)
                (define (f n k)
                                (if (= n 0)
                                        (k 1)
                                        (f (- n 1) (lambda (acc) (* acc n)))))
                (f n (lambda (acc) acc)))
 
(display "~a" (factorial 1))

11 days 14 hours ago view (lines: 20, size: 532, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
9
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 
 ...

11 days 14 hours ago view (lines: 9, size: 162, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define (factorial n)
                (define (f n k)
                                (if (= n 0)
                                        (k 1)
                                        (f (- n 1) (lambda (acc) (* acc n)))))
                (f n (lambda (acc) acc)))
 
(print (factorial 1))

11 days 14 hours ago view (lines: 20, size: 530, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
9
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 
 ...

11 days 14 hours ago view (lines: 9, size: 154, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
(define (factorial n)
                (define (f n k)
                                (if (= n 0)
                                        (k 1)
                                        (f (- n 1) (lambda (acc) (* acc n)))))
                (f n (lambda (acc) acc)))
 
(factorial 1)

11 days 14 hours ago view (lines: 20, size: 437, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 14 hours ago view (lines: 20, size: 450, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 14 hours ago view (lines: 20, size: 449, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 14 hours ago view (lines: 20, size: 448, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 14 hours ago view (lines: 20, size: 459, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 14 hours ago view (lines: 20, size: 457, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 14 hours ago view (lines: 1, size: 15, inputs: 1) Scheme (guile) Runtime error

1
(write (log e))

11 days 14 hours ago view (lines: 1, size: 18, inputs: 1) Scheme (guile) Success

1
(write (log 1000))

11 days 14 hours ago view (lines: 20, size: 443, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
9
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 
 ...

11 days 14 hours ago view (lines: 20, size: 443, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
9
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 
 ...

11 days 14 hours ago view (lines: 20, size: 437, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
9
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 
 ...

11 days 14 hours ago view (lines: 20, size: 441, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 20, size: 439, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 20, size: 437, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 20, size: 433, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 20, size: 431, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 20, size: 430, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 20, size: 433, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 19, size: 423, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 19, size: 420, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 15 hours ago view (lines: 20, size: 430, inputs: 1) Scheme (guile) Success

1
2
3
4
5
6
7
8
(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))
 
(define fib
(lambda (n)
(let ((fibn (inexact->exact (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

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

UsernamePassword

Username
Password