first.clj

(defn frac-pp [x]
  (let [rat (if (rational? x) x (rationalize x))
        num (numerator rat)
        den (denominator rat)]
    (println num)
    (println "-----")
    (println den)))

(frac-pp 1.5)
(frac-pp (/ 3 2))
(frac-pp 3)

second.clj

(defn frac-pp2 [x]
  (let [rat (if (ratio? x) x (rationalize x))
        num (numerator rat)
        den (denominator rat)]
    (println num)
    (println "-----")
    (println den)))

(frac-pp2 1.5)
(frac-pp2 (/ 3 2))
(frac-pp2 3)