From 738767daa114003f565d16480be0badc6c4ced0a Mon Sep 17 00:00:00 2001
From: elioat <elioat@tilde.institute>
Date: Wed, 13 Dec 2023 13:32:03 -0500
Subject: *

---
 seq-primer.clj | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 seq-primer.clj

(limited to 'seq-primer.clj')

diff --git a/seq-primer.clj b/seq-primer.clj
new file mode 100644
index 0000000..0f9fe43
--- /dev/null
+++ b/seq-primer.clj
@@ -0,0 +1,37 @@
+;; From Jack Rusher
+;; https://gist.github.com/jackrusher/959b35e031fb9b2d30c0211337a310ed
+;; Condensed visual tutorial in #Bauhaus style for a subset of the #Clojure seq API (inspired by similar JS tweets)
+
+(def ■ '■)
+(def ▲ '▲)
+(def ● '●)
+
+(first [● ■ ▲])   ; ●
+(second [● ■ ▲])  ; ■
+(nth [● ■ ▲] 2)   ; ▲
+(rest [● ■ ▲])    ; (■ ▲)
+(last [● ■ ▲])    ; ▲
+(butlast [● ■ ▲]) ; (● ■)
+
+(map (partial = ■) [■ ● ■ ▲]) ; (true false true false)
+
+(filter (partial = ■) [■ ● ■ ▲])     ; (■ ■)
+(remove (partial = ■) [■ ● ■ ▲])     ; (● ▲)
+(distinct [■ ● ■ ▲ ● ▲])             ; (■ ● ▲)
+(interpose '▲ [● ● ●])               ; (● ▲ ● ▲ ●)
+(interleave [■ ■ ■] [▲ ▲ ▲] [● ● ●]) ; (■ ▲ ● ■ ▲ ● ■ ▲ ●)
+
+(take 3 [■ ■ ● ● ▲ ▲])                       ; (■ ■ ●)
+(take-nth 2 [■ ■ ● ● ▲ ▲ ■ ■])               ; (■ ● ▲ ■)
+(take-while (partial = ■) [■ ■ ● ● ▲ ▲ ■ ■]) ; (■ ■)
+(drop-while (partial = ■) [■ ■ ● ● ▲ ▲ ■ ■]) ; (● ● ▲ ▲ ■ ■)
+
+(partition 2 [■ ■ ● ● ▲ ▲ ■ ■])   ; ((■ ■) (● ●) (▲ ▲) (■ ■))
+(partition 2 1 [■ ■ ● ● ▲ ▲ ■ ■]) ; ((■ ■) (■ ●) (● ●) (● ▲) (▲ ▲) (▲ ■) (■ ■))
+(split-at 3 [■ ■ ● ● ▲ ▲ ■ ■])    ; [(■ ■ ●) (● ▲ ▲ ■ ■)]
+
+(frequencies [■ ■ ● ● ▲ ▲ ■ ■]) ; {■ 4, ● 2, ▲ 2}
+
+(some (partial = ●) [■ ● ■ ▲])   ; true
+(every? (partial = ●) [■ ● ■ ▲]) ; false 
+(every? (partial = ●) [● ● ●])   ; true
-- 
cgit 1.4.1-2-gfad0