Add Clojure solution (#63)

narze · Oct 23, 2021 · 9e47492 · 9e47492
1 parent f3c18d6
commit 9e47492
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/Clojure/pontakornth.clj b/Clojure/pontakornth.clj
@@ -0,0 +1,28 @@
+(def coffee "coffee")
+
+(defn coffee-to-drink
+  [coff]
+  (when (= coff coffee)
+    "drink"))
+
+(defn drink-to-thought
+  [drink]
+  (when (= drink "drink")
+    "thought"))
+
+(defn thought-to-action
+  [thought]
+  (when (= thought "thought")
+    "action"))
+
+(defn action-to-code
+  [action]
+  (when (= action "action")
+    "code"))
+
+(println
+  (-> coffee
+      coffee-to-drink
+      drink-to-thought
+      thought-to-action
+      action-to-code))