如果用Scheme写的话 :)
Scheme:
(length (filter (lambda (x) (> x 5)) (map sqr '(-1 -2 -3 0 1 2 3))))
>> 2
也可以让祂更好读一点
(define gt5?
(lambda (x)
(> x 5)))
(define xs '(-1 -2 -3 0 1 2 3))
(length (filter gt5? (map sqr xs)))