问题

解决（python）

解决 (racket 5.2.1)

  3. ; 定义函数 equal-to-k
  4. ; 它接受一个整数输入 k
  5. ; 它输出一个只返回 true/false 的匿名函数
  6. ; 当 k = 1 时, equal-to-k 的功能可以这样理解
  7. ; (equal-to-k 1) => true
  8. ; (equal-to-k 2) => false
  9.   (lambda (n) (if (= k n) true false)))
  11. ; 定义函数 random-list-100-remainder-stats
  12. ; 它不接受任何输入
  13. ; 它输出一个整数型列表 b, 其每个元素的定义如下
  14. ; > 给定一个整数型列表 a,包含 100 个元素,保存 100 个随机的 4 位数。
  15. ; > 整数型列表 b，包含 10 个元素。
  16. ; > 统计a列表中的元素对10求余等于0的个数，保存到b[0]中；
  17. ; > 对10求余等于1的个数，保存到b[1]中，……依此类推。
  18. (define (random-list-100-remainder-stats)
  20.        [rand-list-100 (for/list ([i 100]) (rand-e4))]   ; 生成长度为 100 的列表, 其中每个元素都是 1000~9999 之间的随机数
  21.        [get-remainder-by-10 (lambda (n) (modulo n 10))] ; 定义对某整数除以 10 取余数的"生成器"
  22.        [remainder-list-100 (map get-remainder-by-10 rand-list-100)] ; 对前面长为 100 的列表批量除以 10 取余数
  23.        ; 最后, 对余数做统计, 生成 b 列表
  24.        [remainder-list-stats (for/list ([k (in-range 0 10)]) (count (filter-by-k k) remainder-list-100))])
  25.     ; 把生成的 b 列表输出出来
  26.     remainder-list-stats))
  28. ; 函数调用, 正常执行时, 应输出一个整数的列表
  29. (random-list-100-remainder-stats)