Ideone.com | Online Scheme Interpreter & Debugging Tool

Computer geeks!

language:	Scheme (guile) (guile 1.8.5)
date:	115 days 3 hours ago
link:
visibility:	public private user's deleted

source code clone download copy to clipboard report bug / make suggestion

1
(define (triangle-sum lst) (define (shift-right lst) (cons 0 lst)) (define (shift-left lst) (append lst '(0))) (if (or (null? lst) (null? (cdr lst))) lst (let loop ((rest-lst (cdr lst)) (output (car lst))) (if (null? rest-lst) (apply max output) (loop (cdr rest-lst) (apply map max (map (lambda (S) (map (lambda (x y) (+ x y)) S (car rest-lst))) (list (shift-left output) (shift-right output)))))))))

clone download copy to clipboard

compilation info hide

input / output show all hide all

# 6 # 5 # 4 # 3 # 2 # 1

upload with new input

# 6: show clone input 115 days 3 hours ago Success

input:

(define exp
(lambda (a b)
(if (= b 1) a (* a (exp a (- b 1))))))

(define sum
(lambda (a acc)
(if (= 0 a) acc (sum (quotient a 10) (+ acc (modulo a 10))))))

(write (sum (exp 2 1000) 0))

# 5: hide show clone input 115 days 3 hours ago Success

result: Success time: 0.02s memory: 4176 kB returned value: 0
input:
```
(write (+ 1 2))
```
output: no
# 4: hide show clone input 115 days 3 hours ago Success

result: Success time: 0.03s memory: 4176 kB returned value: 0
input:
```
(+ 1 2)
```
output: no

# 3: show clone input 115 days 3 hours ago Success

input:

(define (triangle-sum lst) (define (shift-right lst) (cons 0 lst)) (define (shift-left lst) (append lst '(0))) (if (or (null? lst) (null? (cdr lst))) lst (let loop ((rest-lst (cdr lst)) (output (car lst))) (if (null? rest-lst) (apply max output) (loop (cdr rest-lst) (apply map max (map (lambda (S) (map (lambda (x y) (+ x y)) S (car rest-lst))) (list (shift-left output) (shift-right output))))))))) 

(write (triangle-sum '(3 7 4 2 4 6 8 5 9 3)))

# 2: show clone input 115 days 3 hours ago Success

input:

(define (triangle-sum lst) (define (shift-right lst) (cons 0 lst)) (define (shift-left lst) (append lst '(0))) (if (or (null? lst) (null? (cdr lst))) lst (let loop ((rest-lst (cdr lst)) (output (car lst))) (if (null? rest-lst) (apply max output) (loop (cdr rest-lst) (apply map max (map (lambda (S) (map (lambda (x y) (+ x y)) S (car rest-lst))) (list (shift-left output) (shift-right output))))))))) 

(write (triangle--sum '(3 7 4 2 4 6 8 5 9 3)))

# 1: hide show clone input 115 days 3 hours ago Success

result: Success time: 0.03s memory: 4176 kB returned value: 0

UsernamePassword

Username
Password