Любой список рано или поздно захочется обойти (traverse), то есть поработать с отдельными элементами. В процедурных языках используются циклы, но многие языки имеют и декларативные средства работы с коллекциями: map
, filter
, reduce
. А ведь сами эти функции пришли в программирование через Lisp!
Racket тоже предоставляет полный набор таких функций. Ближайшие несколько уроков будут посвящены им.
map
Итак, map
в Racket используется так:
(map add1 (list 1 2 3)) ; '(2 3 4)
Здесь add1
— встроенная функция, добавляющая к числу единицу. Всё максимально предсказуемо: map
превращает старый список в новый, применяя функцию к каждому элементу. Обход получается функциональный, потому что мы получаем новый список, не меняя старый.
Может map
обходить и несколько списков одновременно: если применить map
к нескольким спискам, то функция-аргумент будет применена ко всем первым элементам, затем ко всем вторым и так далее. Но map
потребует от входных списков иметь одинаковую длину, иначе вы получите ошибку.
Вот так можно поэлементно просуммировать три списка:
(map +
(list 1 2 3)
(list 10 20 30)
(list 100 200 300))
; '(111 222 333)
Заметьте, не потребовалось даже использовать анонимную функцию, которая складывала бы три числа, ведь функция "+
" принимает произвольное количество аргументов!
Реализуйте функцию maps
, которая должна принимать два списка — список функций и список списков аргументов — и возвращать список результатов применения функций к наборам аргументов. Вот как использование maps
должно выглядеть:
(maps
(list
add1
string?)
(list
(list 10 20)
(list "a" 0)))
; '((11 21) (#t #f))
Здесь:
'(11 21)
— это результат применения add1
к (list 10 20)
;'(#t #f)
— это результат применения string?
к (list "a" 0)
.Если вы зашли в тупик, то самое время задать вопрос в «Обсуждениях». Как правильно задать вопрос:
Тесты устроены таким образом, что они проверяют решение разными способами и на разных данных. Часто решение работает с одними входными данными, но не работает с другими. Чтобы разобраться с этим моментом, изучите вкладку «Тесты» и внимательно посмотрите на вывод ошибок, в котором есть подсказки.
Это нормально 🙆, в программировании одну задачу можно выполнить множеством способов. Если ваш код прошел проверку, то он соответствует условиям задачи.
В редких случаях бывает, что решение подогнано под тесты, но это видно сразу.
Создавать обучающие материалы, понятные для всех без исключения, довольно сложно. Мы очень стараемся, но всегда есть что улучшать. Если вы встретили материал, который вам непонятен, опишите проблему в «Обсуждениях». Идеально, если вы сформулируете непонятные моменты в виде вопросов. Обычно нам нужно несколько дней для внесения правок.
Кстати, вы тоже можете участвовать в улучшении курсов: внизу есть ссылка на исходный код уроков, который можно править прямо из браузера.
Ваше упражнение проверяется по этим тестам
1#lang racket
2
3(require (only-in rackunit check-equal? test-begin))
4(require "index.rkt")
5
6(test-begin
7 (check-equal?
8 (maps
9 (list)
10 (list))
11 (list))
12
13 (check-equal?
14 (maps (list add1)
15 (list (list 0)))
16 (list (list 1)))
17
18 (check-equal?
19 (maps
20 (list add1 string?)
21 (list (list 0 100)
22 (list "foo" 42)))
23 (list (list 1 101)
24 (list #t #f))))
25
Решение учителя откроется через: