(Схема) Используя пользовательскую карту и уменьшите, найдите минимальное значение в списке

Question

Мне нужно использовать 2 функции ниже, чтобы узнать минимальное значение в списке после возведения в квадрат каждого элемента.

Например: (minSquare '(10 -2 5 9 -11) должен распечатать 4.

---

карты и уменьшить код:

(define map 
    (lambda (f l) 
    (if (null? l) 
     '() 
     (cons (f (car l)) (map f (cdr l)))))) 

(define reduce 
    (lambda (op l id) 
    (if (null? l) 
     id 
     (op (car l) (reduce op (cdr l) id))))) 

Я попытался это:

(define minSquare 
    (lambda (x) 
    (cond [(null? x) '()] 
      [else (map minSquare (reduce * x (car x))) (minSquare (cdr x))]))) 

Но проходит все числа в список, умноженный на их квадраты, на map, затем сбой, дающий contract violation. Я не уверен, как использовать эти две функции.

Если кто-то может вести меня через него (не дать ответа), я был бы очень признателен!

ПРИМЕЧАНИЕ: Я не могу изменить map или reduce.

Answer 1

Сначала вы должны map над списком возведения в квадрат каждого элемента, и после что найти минимум, используя reduce. Некоторые подсказки:

• reduce получает три параметра, первое это процедура, которая сравнивает каждый элемент с начальным минимальным, обновляет свою ценность всякий раз, когда мы находим элемент, который меньше, чем текущий минимум.
• Второй параметр - это список для перемещения, который в этом случае является результатом возведения в квадрат каждого из элементов: (map (lambda (n) (* n n)) x).
• Третий параметр - это начальное минимальное значение, в данном случае это число, такое, что все остальные будут меньше, например, положительная бесконечность +inf.0.

Обратите внимание, что использование reduce здесь немного излишним, учитывая, что язык уже дает нам min функции.