Ideone.com

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

Embed source code on your page

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

1
2
3
4
5
6
7
8
9
10
(define (counts xs n)
  (let ((cs (make-vector (+ n 1) 0)))
    (vector-set! cs 0 1)
    (do ((xs xs (cdr xs)))
        ((null? xs) (vector-ref cs n))
      (do ((x (car xs) (+ x 1))) ((< n x))
        (vector-set! cs x (+ (vector-ref cs x)
          (vector-ref cs (- x (car xs)))))))))
 
(display (counts '(1 5 10 25 50) 100))

clone download copy to clipboard

compilation info hide

source code

syntax highlight

input (#_)

input / output show all hide all

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

upload with new input
# 6: hide show clone input 11 days 18 hours ago Success

result: Success time: 0.03s memory: 4132 kB returned value: 0
input:
```
(display (counts '(1 5 10 25 50) 1))
```
output:
```
292
```

# 5: show clone input 210 days 18 hours ago Success

input:

(define (counts xs n)
  (let ((cs (make-vector (+ n 1) 0)))
    (vector-set! cs 0 1)
    (do ((xs xs (cdr xs)))
        ((null? xs) (vector-ref cs n))
      (do ((x (car xs) (+ x 1))) ((< n x))
        (vector-set! cs x (+ (vector-ref cs x)
          (vector-ref cs (- x (car xs)))))))))
 
(display (counts '(1 5 10 25 50) 1))

output:

# 4: hide show clone input 210 days 18 hours ago Success

result: Success time: 0.03s memory: 4132 kB returned value: 0
input:
```
(display (counts '(1 5 10 25 50) 1))
```
output:
```
292
```
# 3: hide show clone input 244 days 18 hours ago Success

result: Success time: 0.03s memory: 4176 kB returned value: 0
input:
```
(display (counts '(1 2) 4))
```
output:
```
292
```
# 2: hide show clone input 272 days 13 hours ago Success

result: Success time: 0.02s memory: 4176 kB returned value: 0
input:
```
200
```
output:
```
292
```
# 1: hide show clone input 403 days 19 hours ago Success

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

input: no
output:
```
292
```

UsernamePassword

Username
Password