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: 16364 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 3 hours ago view (lines: 5, size: 99, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
(define nbdigits
(lambda (a)
(if (= 0 a) 0 (+ 1 (nbdigits (quotient a 10))))))
 
(write (nbdigits 1)

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

1
(write (quotient 1 10))

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

1
(write (quotient (quotient 1 10) 10)))

11 days 3 hours ago view (lines: 19, size: 403, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 19, size: 397, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 19, size: 398, inputs: 1) Scheme (guile) Time limit exceeded

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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 19, size: 401, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 19, size: 399, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 19, size: 390, inputs: 1) Scheme (guile) Time limit exceeded

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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 19, size: 393, inputs: 1) Scheme (guile) Time limit exceeded

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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 19, size: 391, inputs: 1) Scheme (guile) Time limit exceeded

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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 19, size: 391, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 2, size: 46, inputs: 1) Scheme (guile) Success

1
2
(write (quotient 1034 10))
(write (/ 1034 10))

11 days 3 hours ago view (lines: 5, size: 96, inputs: 1) Scheme (guile) Runtime error

1
2
3
4
5
(define nbdigits
(lambda (a)
(if (= 0 a) 0 (+ 1 (nbdigits (/ a 10))))))
 
(write (nbdigits 1290))

11 days 3 hours ago view (lines: 5, size: 103, inputs: 1) Scheme (guile) Success

1
2
3
4
5
(define nbdigits
(lambda (a)
(if (= 0 a) 0 (+ 1 (nbdigits (quotient a 10))))))
 
(write (nbdigits 1290))

11 days 3 hours ago view (lines: 5, size: 115, inputs: 1) Scheme (guile) Success

1
2
3
4
5
(define nbdigits
(lambda (a)
(if (= 0 (modulo a 10)) 0 (+ 1 (nbdigits (floor (/ a 10)))))))
 
(write (nbdigits 120))

11 days 3 hours ago view (lines: 5, size: 107, inputs: 1) Scheme (guile) Success

1
2
3
4
5
(define nbdigits
(lambda (a)
(if (= 0 (modulo a 10)) 0 (+ 1 (nbdigits (/ a 10))))))
 
(write (nbdigits 120))

11 days 3 hours ago view (lines: 5, size: 113, inputs: 1) Scheme (guile) Success

1
2
3
4
5
(define nbdigits
(lambda (a)
(if (= 0 (modulo a 10)) 0 (+ 1 (nbdigits (quotient a 10))))))
 
(write (nbdigits 10))

11 days 3 hours ago view (lines: 21, size: 410, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 23, size: 416, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 11, size: 218, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 1 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 11, size: 219, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (!= 0 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

11 days 3 hours ago view (lines: 11, size: 218, 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 (floor (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 0 (modulo n 2)) (+ 1 fibn) fibn))))
 ...

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

1
(write (floor (/ 23 2)))

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

1
(write (/ 23 2))

11 days 3 hours ago view (lines: 10, size: 207, 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 (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))
(if (= 0 (modulo n 2)) (+ 1 fibn) fibn ))))

11 days 3 hours ago view (lines: 10, size: 207, 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 (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))))
(if (= 0 (modulo n 2)) (+ 1 fibn) fibn )))

11 days 3 hours ago view (lines: 9, size: 237, 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)
(if (= 0 (modulo n 2)) (+ 1 (fibn (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))) (fibn (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
 
(write (fib 10))

11 days 3 hours ago view (lines: 22, size: 439, 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)
(if (= 0 (modulo n 2)) (+ 1 (fibn (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5)))) (fibn (/ (exp (/ (+ 1 (sqrt 5)) 2) n) (sqrt 5))))))
 
    
 ...

11 days 3 hours ago view (lines: 9, size: 137, 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)
(if (= 0 (modulo n 2)) 1 2)))
 
(write (fib 10))

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