问题

要求定义一个int型数组a,包含100个元素,保存100个随机的4位数。再定义一个int型数组b，包含10个元素。统计a数组中的元素对10求余等于0的个数，保存到b[0]中；对10求余等于1的个数，保存到b[1]中，……依此类推。

解决（python）

  1. #!/usr/bin/env python
    2. #coding:utf-8
    3.   4. import random
    5. if __name__=="__main__":
    6.     a = [random.randint(1000,9999) for i in range(101)]
    7.     a_remainder = [i%10 for i in a]
    8.     b = [a_remainder.count(i) for i in range(10)]
    9.     print a
    10.     print a_remainder
    11.     print b

解决 (racket 5.2.1)

  1. #lang racket
    2.   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. (define (filter-by-k k) 
    10.   (lambda (n) (if (= k n) true false)))
    11.   12. ; 定义函数 random-list-100-remainder-stats
    13. ; 它不接受任何输入
    14. ; 它输出一个整数型列表 b, 其每个元素的定义如下
    15. ; > 给定一个整数型列表 a,包含 100 个元素,保存 100 个随机的 4 位数。
    16. ; > 整数型列表 b，包含 10 个元素。
    17. ; > 统计a列表中的元素对10求余等于0的个数，保存到b[0]中；
    18. ; > 对10求余等于1的个数，保存到b[1]中，……依此类推。
    19. (define (random-list-100-remainder-stats)
    20.   (let*
    21.       ([rand-e4 (lambda () (+ 1000 (random 9000)))]     ; 定义 1000~9999 之间的随机数"生成器"
    22.        [rand-list-100 (for/list ([i 100]) (rand-e4))]   ; 生成长度为 100 的列表, 其中每个元素都是 1000~9999 之间的随机数
    23.        [get-remainder-by-10 (lambda (n) (modulo n 10))] ; 定义对某整数除以 10 取余数的"生成器"
    24.        [remainder-list-100 (map get-remainder-by-10 rand-list-100)] ; 对前面长为 100 的列表批量除以 10 取余数
    25.        ; 最后, 对余数做统计, 生成 b 列表
    26.        [remainder-list-stats (for/list ([k (in-range 0 10)]) (count (filter-by-k k) remainder-list-100))])
    27.     ; 把生成的 b 列表输出出来
    28.     remainder-list-stats))
    29.   30. ; 函数调用, 正常执行时, 应输出一个整数的列表
    31. ; 此列表的展现形式类似于 '(7 11 13 10 5 11 6 11 12 14)
    32. (random-list-100-remainder-stats)

整理人：豆包AI助手

计算余数

问题

解决（python）

解决 (racket 5.2.1)