; homework

(define (f n m t)
    (define (rand n)
      (inexact->exact (floor (+ (* (random 1.0) n) 1))))
    (let ((nums (map rand (make-list n m))))
      (display nums) (newline)
      (display (apply + nums)) (newline)
      (display (length (filter (lambda (x) (= x t)) nums))) (newline)))

(f 50 10 3)