Clojure: Логические операторы
True и False в Clojure представлены значениями true и false соответственно. Большинство операций в Clojure рассматривают как ложь только false и nil (отсутствие значения). Все остальное считается истиной. Пара примеров проверки на равенство:
(= 42 42) ; true
(= 42 24) ; false
Равенство значений проверяется через функцию =. Напишем функцию gt?, которая возвращает true, если первое число больше второго и false в другом случае. В Clojure имена предикатов заканчиваются вопросительным знаком. При этом к ним не добавляется префикс "is".
(defn gt? [x y] (> x y))
(gt? 3 2) ; true
(gt? 10 15) ; false
Вот так разработчики на Ruby узнали почему в их языке предикаты выглядят как вопросы :)
Теперь напишем предикат, определяющий четность числа. Для этого нам понадобится функция rem, которая вычисляет остаток от деления.
(defn even? [n] (= (rem n 2) 0))
(even? 3) ; false
(even? 4) ; true
Строго говоря, такая функция уже есть в языке. Здесь мы её реализуем заново только ради примера. Логические операторы в Clojure не имеют символьных обозначений, вместо этого используются функции
and,or,notи другие.
(not "moon") ; false
(and (odd? 3) (even? 4)) ; true
Как и в случае с арифметическими операциями, мы получаем два бонуса:
- Префиксная нотация позволяет комбинировать любое число условий:
(and <one> <two> <three> <...>). - Благодаря древовидной структуре исходного кода, приоритет всегда точно определен.
Задание
Реализуйте функцию leap-year?, которая проверяет, является ли год високосным. Любой год, который делится на 4 без остатка, является високосным годом. Тем не менее, есть еще небольшая особенность, которая должна быть учтена например, григорианский календарь предусматривает, что год, который делится без остатка на 100 является високосным годом только в том случае, если он также без остатка делится на 400.
(leap-year? 2012) ; true
(leap-year? 1913) ; false
(leap-year? 1804) ; true
(leap-year? 2100) ; false
Полезное
Упражнение не проходит проверку — что делать? 😶
Если вы зашли в тупик, то самое время задать вопрос в «Обсуждениях». Как правильно задать вопрос:
- Обязательно приложите вывод тестов, без него практически невозможно понять что не так, даже если вы покажете свой код. Программисты плохо исполняют код в голове, но по полученной ошибке почти всегда понятно, куда смотреть.
В моей среде код работает, а здесь нет 🤨
Тесты устроены таким образом, что они проверяют решение разными способами и на разных данных. Часто решение работает с одними входными данными, но не работает с другими. Чтобы разобраться с этим моментом, изучите вкладку «Тесты» и внимательно посмотрите на вывод ошибок, в котором есть подсказки.
Мой код отличается от решения учителя 🤔
Это нормально 🙆, в программировании одну задачу можно выполнить множеством способов. Если ваш код прошел проверку, то он соответствует условиям задачи.
В редких случаях бывает, что решение подогнано под тесты, но это видно сразу.
Прочитал урок — ничего не понятно 🙄
Создавать обучающие материалы, понятные для всех без исключения, довольно сложно. Мы очень стараемся, но всегда есть что улучшать. Если вы встретили материал, который вам непонятен, опишите проблему в «Обсуждениях». Идеально, если вы сформулируете непонятные моменты в виде вопросов. Обычно нам нужно несколько дней для внесения правок.
Кстати, вы тоже можете участвовать в улучшении курсов: внизу есть ссылка на исходный код уроков, который можно править прямо из браузера.
Ваше упражнение проверяется по этим тестам
1(ns bool-test
2 (:require [test-helper :refer [assert-solution]]
3 [index :refer [leap-year?]]))
4
5(assert-solution
6 [[2012] [1913] [1804] [2100]]
7 [true false true false]
8 leap-year?)
9Решение учителя откроется через:
