Ideone.com | Online Scheme Interpreter & Debugging Tool

RecruitCoders.com

Computer geeks!

RecruitCoders.com

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

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

56 days 13 hours ago view (lines: 3, size: 84, inputs: 11) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 13 hours ago view (lines: 3, size: 84, inputs: 11) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 13 hours ago view (lines: 3, size: 84, inputs: 11) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 13 hours ago view (lines: 3, size: 84, inputs: 11) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 13 hours ago view (lines: 3, size: 84, inputs: 11) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 13 hours ago view (lines: 3, size: 84, inputs: 11) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 13 hours ago view (lines: 3, size: 84, inputs: 11) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 16 hours ago view (lines: 2, size: 83, inputs: 1) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 17 hours ago view (lines: 2, size: 83, inputs: 5) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 17 hours ago view (lines: 2, size: 83, inputs: 5) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 17 hours ago view (lines: 2, size: 83, inputs: 5) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 17 hours ago view (lines: 2, size: 83, inputs: 5) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 17 hours ago view (lines: 2, size: 83, inputs: 5) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

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

1
2
3
4
5
6
7
8
9
(define (group-by xs f)
  (reverse (foldl (lambda (x l)
                    (let ((val  (cdr x)))
                      (if (null? l)
                          (list (list val))
                          (let ((prev (caar l)))
                            (if (= prev val)
                                (cons (append (car l) (list val)) (cdr l))
                                (cons (list val) l))))))
 ...

56 days 20 hours ago view (lines: 2, size: 83, inputs: 1) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 20 hours ago view (lines: 2, size: 84, inputs: 2) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r)))))

56 days 20 hours ago view (lines: 2, size: 84, inputs: 2) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r)))))

56 days 23 hours ago view (lines: 2, size: 83, inputs: 4) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 23 hours ago view (lines: 2, size: 83, inputs: 4) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 23 hours ago view (lines: 2, size: 83, inputs: 4) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 23 hours ago view (lines: 2, size: 83, inputs: 4) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 23 hours ago view (lines: 3, size: 84, inputs: 2) Scheme (guile) Success

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 23 hours ago view (lines: 3, size: 84, inputs: 2) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r))))

56 days 23 hours ago view (lines: 3, size: 85, inputs: 4) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r)))))

56 days 23 hours ago view (lines: 3, size: 85, inputs: 4) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r)))))

56 days 23 hours ago view (lines: 3, size: 85, inputs: 4) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r)))))

56 days 23 hours ago view (lines: 3, size: 85, inputs: 4) Scheme (guile) Runtime error

1
2
(let ((r (read)))
        (display (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (expt 3 r)))))

56 days 23 hours ago view (lines: 2, size: 105, inputs: 1) Scheme (guile) Runtime error

1
2
(let ((r (read)))
       (display(/ (expt 3 (/ (- (expt 3 r) 1) 2)) (+ (* 2 (/ (-(expt 3 r) 1) 2)) 1))))

56 days 23 hours ago view (lines: 2, size: 95, inputs: 2) Scheme (guile) Success

1
2
(let ((r (read)))
       (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (+ (* 2 (/ (-(expt 3 r) 1) 2)) 1)))

56 days 23 hours ago view (lines: 2, size: 95, inputs: 2) Scheme (guile) Runtime error

1
2
(let ((r (read)))
       (/ (expt 3 (/ (- (expt 3 r) 1) 2)) (+ (* 2 (/ (-(expt 3 r) 1) 2)) 1)))

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