Performance tuning

Kanatoko · Dec 3, 2017 · a50589a · a50589a
1 parent a5f52ea
commit a50589a
Showing 1 changed file with 7 additions and 15 deletions.
diff --git a/clj/hoge.clj b/clj/hoge.clj
@@ -1,16 +1,8 @@
-(let
+(let [lines (clojure.string/split-lines
-  [ lines
+             (slurp "../data.csv" ))]
-    (seq
+  (dotimes [n 10]
-      (clojure.string/split-lines
-        (slurp "../data.csv" ))) ]
-  (dotimes [ n 10 ]
     (time
-      (print
+     (print
-        (apply
+      (->> lines
-          max
+           (map #(Long/parseLong (nth (.split ^String % ",") 0)))
-          (map
+           (reduce max))))))
-            #(read-string
-              (nth
-                (clojure.string/split % #",")
-                0))
-            lines))))))