Clojure: Вычисления внутри цитирования
Попробуем решить еще одну задачку, создадим макрос, который принимает вектор чисел, суммирует их, а потом вычитает из суммы этот же вектор. Если бы мы писали функцию, то она выглядела бы так:
(defn strange-fn [coll]
(apply - (apply + coll) coll))
(strange-fn [1 2 3 4])
0
Раз мы хотим решить задачу через макрос, то последней формой, которую он будет возвращать, будет символы apply, + и -, поэтому применим оператор цитирования к последней форме, которую возвращаем:
(defmacro strange-macro [coll]
`(apply - (apply + coll) coll))
(strange-macro [1 2 3 4])
Could not resolve symbol: coll
Ох, нам нужно значение, которое хранится в coll, но как же получить это значение?
Для того чтобы подсказать Clojure, что внутри макроса при цитировании нужно вычислить, используется оператор ~ (unquote). Этот оператор используется вместе с оператором цитирования ', можно сказать, что он отменяет цитату в процитированном макросе (сложности перевода со словом unquote).
Теперь попробуем на другом примере новый оператор:
; получим сумму двух сумм элементов вектора
(defmacro twice-sum-macro [coll]
`(+ (apply + ~coll) (apply + ~coll)))
(twice-sum-macro [1 2 3 4])
20
Как видно из примера, мы воспользовались оператором ~, для вычисления значения, которое хранилось в coll. Однако из-за того, что мы теперь производим зависимые вычисления внутри формы (зависимость от переданных аргументов), которую возвращаем, не получится воспользоваться формами macroexpand и macroexpand-1.
(macroexpand twice-sum-macro)
Syntax error compiling at (REPL:1:1).
Can't take value of a macro: #'user/twice-sum-macro
(macroexpand-1 twice-sum-macro)
Syntax error compiling at (REPL:1:1).
Can't take value of a macro: #'user/twice-sum-macro
Задание
Вернемся к первоначальной задачи, которую мы поставили, исправьте макрос strange-macro так (не забудьте про оператор ~), что бы он работал :)
Упражнение не проходит проверку — что делать? 😶
Если вы зашли в тупик, то самое время задать вопрос в «Обсуждениях». Как правильно задать вопрос:
- Обязательно приложите вывод тестов, без него практически невозможно понять что не так, даже если вы покажете свой код. Программисты плохо исполняют код в голове, но по полученной ошибке почти всегда понятно, куда смотреть.
В моей среде код работает, а здесь нет 🤨
Тесты устроены таким образом, что они проверяют решение разными способами и на разных данных. Часто решение работает с одними входными данными, но не работает с другими. Чтобы разобраться с этим моментом, изучите вкладку «Тесты» и внимательно посмотрите на вывод ошибок, в котором есть подсказки.
Мой код отличается от решения учителя 🤔
Это нормально 🙆, в программировании одну задачу можно выполнить множеством способов. Если ваш код прошел проверку, то он соответствует условиям задачи.
В редких случаях бывает, что решение подогнано под тесты, но это видно сразу.
Прочитал урок — ничего не понятно 🙄
Создавать обучающие материалы, понятные для всех без исключения, довольно сложно. Мы очень стараемся, но всегда есть что улучшать. Если вы встретили материал, который вам непонятен, опишите проблему в «Обсуждениях». Идеально, если вы сформулируете непонятные моменты в виде вопросов. Обычно нам нужно несколько дней для внесения правок.
Кстати, вы тоже можете участвовать в улучшении курсов: внизу есть ссылка на исходный код уроков, который можно править прямо из браузера.
Ваше упражнение проверяется по этим тестам
1(ns quote-test
2 (:require [test-helper :refer [assert-solution]]
3 [index :refer [strange-macro]]))
4
5(assert-solution [[0 1 2 3] [1 2 3 4] [2]] [0 0 0] (fn [& args] (strange-macro args)))
6Решение учителя откроется через:
