Resolve stuartsierra#2, Clojurescript support.

* bump the Clojure version to greater than 1.7.0 (for cljc) * add reader conditional to switch on clj / cljs * bump .gitignore for intellij collaboration
troy-west · Feb 6, 2019 · a6c9ed9 · a6c9ed9
1 parent bdc6ba6
commit a6c9ed9
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/.gitignore b/.gitignore
@@ -12,3 +12,5 @@ pom.xml.asc
 .lein-repl-history
 .nrepl-port
 .DS_Store
+.idea
+*.iml
diff --git a/project.clj b/project.clj
@@ -3,7 +3,5 @@
   :url "https://github.com/stuartsierra/frequencies"
   :license {:name "The MIT License"
             :url "http://opensource.org/licenses/MIT"}
-  :profiles {:dev {:dependencies [[org.clojure/clojure "1.5.1"]
-                                  [reiddraper/simple-check "0.5.3"]]}
-             :clj1.4 {:dependencies [[org.clojure/clojure "1.4.0"]
-                                     [reiddraper/simple-check "0.5.3"]]}})
+  :profiles {:dev {:dependencies [[org.clojure/clojure "1.10.0"]
+                                  [reiddraper/simple-check "0.5.6"]]}})
diff --git a/src/com/stuartsierra/frequencies.clj → src/com/stuartsierra/frequencies.cljc b/src/com/stuartsierra/frequencies.clj → src/com/stuartsierra/frequencies.cljc
@@ -83,7 +83,8 @@
   (let [rank (long (Math/ceil (* k (/ (double sample-count) q))))]
     (loop [m (seq sorted-freq-map)
            lower 0
-           prev-value Double/NEGATIVE_INFINITY]
+           prev-value #?(:clj  Double/NEGATIVE_INFINITY
+                         :cljs (.-NEGATIVE_INFINITY js/Number))]
       (if-let [entry (first m)]
         (let [[value freq] entry
               upper (+ lower freq)]