int-calc.clj

; int-calc.clj
(ns int-calc
  (:use [clojure.contrib.command-line :only (with-command-line)]))

(with-command-line *command-line-args*
  "clj int-calc.clj [-p|-mi|-ml] [-modulo n] nums.."
  [[plus?  p?     "plus" true]
   [minus? mi?    "minus"]
   [multiply? ml? "multiply"]
   [modulo        "mod n"]
   num-strs]
  (let [nums (map #(Integer/parseInt %) num-strs)
        func (cond
              plus?     +
              minus?    -
              multiply? *)
        result (reduce func nums)]
    (if (nil? modulo)
      (println result)
      (println (mod result (Integer/parseInt modulo))))))