fork download 
  1.  
  2. (define ncases (read))
  3.  
  4. (define (sum-nums n)
  5.   (if (zero? n) 0
  6.       (+ (read) (sum-nums (- n 1)))))
  7.  
  8. (define (loop n)
  9.   (if (zero? n) '()
  10.       (begin (let* ((ssize (read)) (ssum (sum-nums ssize)))
  11.                (display (quotient ssum ssize)) (newline))
  12.             (loop (- n 1)))))
  13.  
  14. (loop ncases)
  15.  
Success #stdin #stdout 0.01s 7924KB
comments (?)
stdin 
2
5
1 2 3 4 5
3
2 1 1
stdout 
3
1
https://ideone.com/VixMCh
language:
Scheme (chicken 4.13)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!