Fatal编程技术网

Functional programming 大于平均函数的方案

functional-programming scheme

Functional programming 大于平均函数的方案,functional-programming,scheme,Functional Programming,Scheme,我正在Scheme（Dr.Racket中的Scheme）中制作一个程序，它接受一系列整数，后跟整数值。我需要能够找到列表的平均值，我已经开始工作，并且能够计算出大于平均值的数字，并显示有多少 ;;Function for the sum of list (define (sum listlen) (if (null? listlen) 0 (+ (car listlen) (sum (cdr listlen))) ) ) ;;This is the

我正在Scheme（Dr.Racket中的Scheme）中制作一个程序，它接受一系列整数，后跟整数值。我需要能够找到列表的平均值，我已经开始工作，并且能够计算出大于平均值的数字，并显示有多少

;;Function for the sum of list
(define (sum listlen) 
  (if
    (null? listlen)
    0
    (+ (car listlen) (sum (cdr listlen)))
  )
)






;;This is the part I am having trouble with
(let ((avg  (/ (apply + (cdr numbers)) (car numbers))))
  (count (lambda (x) (< x avg)) (cdr numbers)))

；；函数用于列表的和
（定义（总和列表）
（如果
（空？列表）
0
（+（汽车列表）（总和（cdr列表）））
)
)
;;这是我遇到麻烦的部分
（let（（平均值（/（应用+（cdr编号））（车辆编号）））
（计数（λ（x）（
我寻找大于平均值函数的函数给了我一个算术失配。上面说 计数：算术不匹配； 参数的预期数量与给定数量不匹配 预期：1 给定：2 论点……”

我敢肯定，如果我的函数大于平均值，我做错了很简单，但就我的一生而言，我无法理解它是什么

;;Function for the sum of list
(define (sum listlen) 
  (if
    (null? listlen)
    0
    (+ (car listlen) (sum (cdr listlen)))
  )
)
这实际上只是
（define（sum lst）（apply+lst））

其次,

（
实际上应该是
（>x平均值）
（计算大于平均值的数字）

最后，对
计数说：

返回单词中的字母数或句子中的单词数


你的意思是类似于
（长度（过滤器（λ（x）（>x平均值））（cdr编号））
？（也可以用
reduce
完成，或者命名为
let
，或者其他任何东西。）
这有帮助。非常感谢。

(< x avg)