; 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)