Solve Positive Numbers in clojure

deniscostadsc · Sep 28, 2024 · 0ee6bb7 · 0ee6bb7
1 parent 6c840ee
commit 0ee6bb7
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/solutions/beecrowd/1060/1060.clj b/solutions/beecrowd/1060/1060.clj
@@ -0,0 +1,14 @@
+(ns main)
+
+(defn main []
+  (loop [count 0
+         line (read-line)]
+    (if (not line)
+      count
+      (recur
+       (if (> (Double/parseDouble line) 0)
+         (+ count 1)
+         count)
+       (read-line)))))
+
+(println (format "%d valores positivos" (main)))