Guest User

Untitled

a guest
Jan 21st, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. (ns parity-filter
  2. (:require [clojure.string :as string]
  3. [cljs.nodejs :as node]))
  4.  
  5. (defn filter-by-parity [parity min max]
  6. (let [r (range min (inc max))]
  7. (if (= parity "even") (filter even? r) (filter odd? r))))
  8.  
  9. (defn -main [& args]
  10. (let [[max min parity] (take 3 (reverse (.argv node/process)))]
  11. (println (string/join ", "
  12. (filter-by-parity parity (js/parseInt min) (js/parseInt max))))))
  13.  
  14. (set! *main-cli-fn* -main)
Add Comment
Please, Sign In to add comment