List Clj is complete
This commit is contained in:
parent
cf8bcf8ef5
commit
40bb3e65ee
1 changed files with 12 additions and 12 deletions
|
|
@ -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!"))))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue