fork download
copy 
  1. ; homework
  2.  
  3. (define (f n m t)
  4.     (define (rand n)
  5.       (inexact->exact (floor (+ (* (random 1.0) n) 1))))
  6.     (let ((nums (map rand (make-list n m))))
  7.       (display nums) (newline)
  8.       (display (apply + nums)) (newline)
  9.       (display (length (filter (lambda (x) (= x t)) nums))) (newline)))
  10.  
  11. (f 50 10 3)
Success #stdin #stdout 0.01s 50224KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(8 5 10 8 10 5 2 9 5 9 4 6 10 5 5 7 5 5 1 9 4 10 6 4 8 3 8 7 1 9 3 6 6 9 10 7 9 9 7 7 9 10 5 5 6 2 3 6 2 7)
316
3
https://ideone.com/EAgAmB
language:
Scheme (guile 2.2.4)
created:
4 years 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!