diff --git a/solutions/beecrowd/1060/1060.clj b/solutions/beecrowd/1060/1060.clj new file mode 100644 index 00000000..798b1fac --- /dev/null +++ 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)))