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

Как и в случае с арифметическими операциями, мы получаем два бонуса:

  1. Префиксная нотация позволяет комбинировать любое число условий: (and <one> <two> <three> <...>).
  2. Благодаря древовидной структуре исходного кода, приоритет всегда точно определен.

Задание

Реализуйте функцию leap-year?, которая проверяет, является ли год високосным. Любой год, который делится на 4 без остатка, является високосным годом. Тем не менее, есть еще небольшая особенность, которая должна быть учтена например, григорианский календарь предусматривает, что год, который делится без остатка на 100 является високосным годом только в том случае, если он также без остатка делится на 400.

(leap-year? 2012) ; true
(leap-year? 1913) ; false
(leap-year? 1804) ; true
(leap-year? 2100) ; false
Как с вами связаться? 🙃

Команда проекта находится в телеграм-сообществе по ссылке https://ttttt.me/HexletLearningBot. Там можно задать любой вопрос и повлиять на проект

Упражнение не проходит проверку — что делать? 😶

Если вы зашли в тупик, то самое время поговорить с нашим асситентом Тота во вкладке "Обсуждение". Как правильно задать вопрос:

В моей среде код работает, а здесь нет 🤨

Тесты устроены таким образом, что они проверяют решение разными способами и на разных данных. Часто решение работает с одними входными данными, но не работает с другими. Чтобы разобраться с этим моментом, изучите вкладку «Тесты» и внимательно посмотрите на вывод ошибок, в котором есть подсказки.

Мой код отличается от решения учителя 🤔

Это нормально 🙆, в программировании одну задачу можно выполнить множеством способов. Если ваш код прошел проверку, то он соответствует условиям задачи. В редких случаях бывает, что решение подогнано под тесты, но это видно сразу.

Прочитал урок — ничего не понятно 🙄

Создавать обучающие материалы, понятные для всех без исключения, довольно сложно. Мы очень стараемся, но всегда есть что улучшать. Если вы встретили материал, который вам непонятен, опишите проблему в обратной связи нашего сообщества

Нашли ошибку? Есть что добавить? Пулреквесты приветствуются

Привет! Я Тота и моя задача помочь в обучении. Чтобы активировать меня, нужно зарегистрироваться или залогиниться, если у вас уже есть аккаунт

Loading...

Ваше упражнение проверяется по этим тестам

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

Решение учителя откроется через:

20:00
waiting_clock