Как работают case и cond в Clojure?

Question

[stakhovyak]

Мне не понятен один момент в примере кода

(defn classify [x]
  (cond
    (< x 0) "Negative"
    (case x
      (13 42 100500) true
      false) "Special"
    :else "Boring"))

А точнее, что делают true false в case.
Программа возвращает Negative если x<0, Special если x=13 / 42 / 100500, и Boring в остальных случаях

Comments

[mayton2019]

Ну с этой частью все понятно.

(defn classify [x]
  (cond
    (< x 0) "Negative"
    ....

Если x < 0 то она возвращает "Negative"

Дальше идет вычисление по линии else. Синтаксис какой-то странный
как будто специально для собеседования тебе создали головоломку.

Я кложуру не знаю. Я когда-то знал Common-lisp. Но вот фрагмент из документации

case expression
value1 statement #1
value2 statement #2
valueN statement
N#statement #Default

Попробуй оставшиеся выражение разложить по этому шаблону и все получится.

Ситуацию запутывает этот странный :else который как-бы выпадает из общего ситаксиса.
Также непонятна типизация. Почему сначала сравниают с атомом 0. А после cond идет
попытка сравнить со списком (13 42 100500) ?

Вобщем это крайне неудачный софистический пример цель которого запутать.

У вас кложурщиков что? Всегда так запутанно?

Answer 1

[Алексей Черемисин]

1) cond - проверяет условия на true/false, на первом true выполняет вторую половину и заканчивается, :else - если ничего не подошло
2) case - проверяет первый параметр (x) на соответсвие условиям и выполняет первое подходящее, возвращая результат. Очень интересна здесь работа сравнения x со списком (13 42 100500) или false.
Но пример конечно с издевкой :) Можно было бы все в cond обернуть, и не мучить разум...
Хотя, взял себе на заметку, понравилось.

В общем, сам cond отвечает за три сущности (< x) - "Negative", case - проверка на список "Special" и все остальное "Boring"