List Clj is complete

This commit is contained in:
DLane 2021-05-25 12:12:34 -05:00
parent cf8bcf8ef5
commit 40bb3e65ee

View file

@ -3,43 +3,43 @@
(meditations (meditations
"Lists can be expressed by function or a quoted form" "Lists can be expressed by function or a quoted form"
(= '(__ __ __ __ __) (list 1 2 3 4 5)) (= '(1 2 3 4 5) (list 1 2 3 4 5))
"They are Clojure seqs (sequences), so they allow access to the first" "They are Clojure seqs (sequences), so they allow access to the first"
(= __ (first '(1 2 3 4 5))) (= 1 (first '(1 2 3 4 5)))
"As well as the rest" "As well as the rest"
(= __ (rest '(1 2 3 4 5))) (= '(2 3 4 5)(rest '(1 2 3 4 5)))
"Count your blessings" "Count your blessings"
(= __ (count '(dracula dooku chocula))) (= 3 (count '(dracula dooku chocula)))
"Before they are gone" "Before they are gone"
(= __ (count '())) (= 0 (count '()))
"The rest, when nothing is left, is empty" "The rest, when nothing is left, is empty"
(= __ (rest '(100))) (= () (rest '(100)))
"Construction by adding an element to the front is easy" "Construction by adding an element to the front is easy"
(= __ (cons :a '(:b :c :d :e))) (= '(:a :b :c :d :e) (cons :a '(:b :c :d :e)))
"Conjoining an element to a list isn't hard either" "Conjoining an element to a list isn't hard either"
(= __ (conj '(:a :b :c :d) :e)) (= '(:e :a :b :c :d) (conj '(:a :b :c :d) :e))
"You can use a list like a stack to get the first element" "You can use a list like a stack to get the first element"
(= __ (peek '(:a :b :c :d :e))) (= :a (peek '(:a :b :c :d :e)))
"Or the others" "Or the others"
(= __ (pop '(:a :b :c :d :e))) (= '(:b :c :d :e)(pop '(:a :b :c :d :e)))
"But watch out if you try to pop nothing" "But watch out if you try to pop nothing"
(= __ (try (= "No dice!" (try
(pop '()) (pop '())
(catch IllegalStateException e (catch IllegalStateException e
"No dice!"))) "No dice!")))
"The rest of nothing isn't so strict" "The rest of nothing isn't so strict"
(= __ (try (= ()(try
(rest '()) (rest '())
(catch IllegalStateException e (catch IllegalStateException e
"No dice!")))) "No dice!"))))