Solve Snack in clojure

deniscostadsc · Nov 12, 2024 · 2c99da4 · 2c99da4
1 parent 154cb9a
commit 2c99da4
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/solutions/beecrowd/1038/1038.clj b/solutions/beecrowd/1038/1038.clj
@@ -0,0 +1,22 @@
+(ns main
+  (:require [clojure.string :as str]))
+
+(defn main []
+  (loop [line (read-line)]
+    (when line
+      (let [[n q] (->> (str/split line #" ")
+                       (map #(Integer/parseInt %)))]
+        (cond
+          (= n 1)
+          (printf "Total: R$ %.2f%n", (* 4.0 q))
+          (= n 2)
+          (printf "Total: R$ %.2f%n", (* 4.5 q))
+          (= n 3)
+          (printf "Total: R$ %.2f%n", (* 5.0 q))
+          (= n 4)
+          (printf "Total: R$ %.2f%n", (* 2.0 q))
+          :else
+          (printf "Total: R$ %.2f%n", (* 1.5 q))))
+      (recur (read-line)))))
+
+(main)