у иметь возможность суммировать квадраты четных элементов в списке, однако мой текущий код только суммирует элементы, а не квадраты. Кто-нибудь знает какие-либо модификации, которые могут быть сделаны для суммирования квадратов четных элементов в списке?

(define (sum elemList)
  (if
    (null? elemList)
    0
    (+ (car elemList) (sum (cdr elemList)))
  )
)

Мой вклад будет:

(sum-evens (list 1 2 3 4))

Выход будет:

20

Который(2*2) + (4*4).

Если возможно, было бы хорошо увидеть как рекурсивное, так и итеративное решение. Есть идеи?