Каковы ваши советы по игре в гольф с использованием Clojure?

Цель этого вопроса - собрать список техник, которые специфичны для Clojure и могут быть использованы в общих задачах по коду.

Используйте синтаксис читателя для лямбд.
Так что используйте

#(+ % %2 %3)

вместо того

(fn [x y z] (+ x y z))

Вы также можете устранить пробелы в некоторых случаях:

#(if (< % 0) (- %) %)
#(if(< % 0)(- %)%)

Где вы можете удалить пробелы:

• Между строкой и чем-либо еще:

  (println(+"Hello, World!"1))
  

• Между скобками и прочим:

  (for[x(range 5)](* x x))
  

• Между числом и всем, кроме встроенных или имен переменных:

  Allowed:
  (+ 1"Example")
  (map{1"-1"2"-2"}[1 2 3])
  
  Not allowed:
  (+1 2)
  

• Между @(разыменование для атомов) и скобками.

Строки могут рассматриваться как последовательность символов

например, отсортировать символы в строке по алфавиту:

(sort "hello")
=> (\e \h \l \l \o)

Используйте nth ... 0вместоfirst

Чтобы получить первый элемент коллекции, используйте (nth ... 0)over для firstсохранения байта:

(first[2 3 4]): 14 bytes
(nth[2 3 4]0): 13 bytes (saves a byte!)

Используйте применить вместо уменьшения

Например, #(apply + %)на один байт короче #(reduce + %).

Избегайте, если у вас уже есть для

Например: #(for[a[(sort %)]...)вместо#(let[a(sort %)](for ...)) .

У также есть :letконструкция, но она слишком многословна для кода гольф.

Используйте +и -вместо incиdec

Это экономит 1 байт, если вы используете inc/ decв выражении с паренами:

(inc(first[1 3 5]))
(+(first[1 3 5])1)

Используйте карты вместо ifs при тестировании на равенство

;; if n=3 then A else B
(if (= 3 n) A B) ; (if(=3n)AB)
({3 A} n B)      ; ({3A}nB) -> -3 chars

;; if n=2 or n=3 then A else B
(if (#{2 3} n) A B) ; (if(#{23}n)AB)
({2 A 3 A} n B)     ; ({2A3A}nB) -> -4 chars

Привязать длинные имена функций в let к однобайтовому символу

Например, если вам нужно использовать partitionили frequenciesнесколько раз, было бы полезно связать их с однобайтовым символом в letмакросе. Опять же, это может не стоить того, если вам не нужно letиное, а имя функции относительно короткое.

Используйте для вместо карты

Например, #(for[i %](Math/abs i))намного короче, чем mapэквивалент.