Apa tips Anda untuk bermain golf kode menggunakan Clojure?

Tujuan dari pertanyaan ini adalah untuk mengumpulkan daftar teknik yang khusus untuk Clojure dan dapat digunakan dalam masalah golf kode umum.

Gunakan sintaks pembaca untuk lambdas.
Jadi gunakan

#(+ % %2 %3)

dari pada

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

Anda juga dapat menghilangkan spasi putih beberapa waktu:

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

Di mana Anda dapat menghapus spasi putih:

• Antara string dan apa pun:

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

• Antara kurung dan yang lainnya:

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

• Antara angka dan segala sesuatu selain bawaan atau nama variabel:

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

• Antara @(referensi untuk atom) dan tanda kurung.

String dapat diperlakukan sebagai urutan karakter

mis. untuk mengurutkan karakter dalam string berdasarkan abjad:

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

Gunakan nth ... 0sebagai gantifirst

Untuk mendapatkan elemen pertama koleksi, menggunakan (nth ... 0)lebih dari firstsatu byte:

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

Gunakan terapkan alih-alih mengurangi

Misalnya #(apply + %)satu byte lebih pendek dari #(reduce + %).

Hindari biarkan jika Anda sudah punya untuk

Misalnya: #(for[a[(sort %)]...)bukannya #(let[a(sort %)](for ...)).

Untuk memang memiliki :letkonstruksi tetapi terlalu bertele-tele untuk kode golf.

Gunakan +dan -bukannya incdandec

Ini menghemat 1 byte jika Anda menggunakan inc/ decpada ekspresi dengan parens:

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

Gunakan peta sebagai ganti ifsaat menguji kesetaraan

;; 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

Bind nama-nama fungsi panjang di biarkan ke simbol byte tunggal

Sebagai contoh jika Anda perlu menggunakan partitionatau frequenciesbeberapa kali, itu bisa bermanfaat untuk mengikatnya ke simbol byte tunggal di letmakro. Kemudian lagi mungkin tidak layak jika Anda tidak membutuhkan yang letsebaliknya, dan nama fungsinya relatif singkat.

Gunakan sebagai ganti peta

Misalnya #(for[i %](Math/abs i))jauh lebih pendek dari yang biasa map.