2018-06-12 10:01:20 +03:00
|
|
|
(Project.no-echo)
|
|
|
|
|
2018-06-12 09:43:51 +03:00
|
|
|
(defn simple []
|
2018-06-12 09:36:58 +03:00
|
|
|
(let [ages1 {@"Alice" 31
|
|
|
|
@"Bob" 40
|
|
|
|
@"Charlie" 23
|
|
|
|
@"Dave" 56
|
|
|
|
@"Emily" 42}
|
|
|
|
ages2 (Map.put ages1 "Dave" &57)]
|
|
|
|
(do
|
|
|
|
(println* "Charlie is " (Map.get &ages2 "Charlie") " years old.")
|
|
|
|
(println* "Dave is " (Map.get &ages2 "Dave") " years old.")
|
|
|
|
(println* "Maria is " (Map.get &ages2 "Maria") " years old."))))
|
2018-06-12 09:43:51 +03:00
|
|
|
|
|
|
|
(defn start-with-empty []
|
|
|
|
(let [a {}
|
|
|
|
b (Map.put a "aha" &123)]
|
|
|
|
(println* (Map.get &b "aha"))))
|
|
|
|
|
|
|
|
(defn checking []
|
|
|
|
(let [char-map {\a @"Aha"
|
|
|
|
\b @"Boo"}]
|
|
|
|
(do
|
|
|
|
(println* (Map.contains? &char-map &\b))
|
|
|
|
(println* (Map.contains? &char-map &\c)))))
|
|
|
|
|
|
|
|
(defn main []
|
|
|
|
(do (simple)
|
|
|
|
(start-with-empty)
|
|
|
|
(checking)))
|