Numerals to roman Coding dojo

gistfile1.txt

(ns romnum.core
  (:require
   [clojure.test :refer [is testing]]))

(def roman-digits [[1000 "M"]
                    [500 "D"]
                    [100 "C"]
                    [50 "L"]
                  ;   [40 "XL"]
                    [10 "X"]
                    [5 "V"]
                    [1 "I"]])


(def roman-digits-map {1000 "M" 500 "D" 100 "C" 50 "L" 10 "X" 5 "V" 1 "I"})





(defn num-to-roman
  "Convert a number to roman"
  [n]
  (if (integer? n) "Not an integer"
    "I"
  )
)
;; tests

(testing "num-to-roman-test"
  (is (= (num-to-roman 1) "I"))
  )