learn-you-a-haskell.geometry

core.clj

(ns learn-you-a-haskell.geometry.core
  (:require (learn-you-a-haskell.geometry [sphere :as sphere]
                                          [cuboid :as cuboid]
                                          [cube :as cube])))

(defn -main
  "I don't do a whole lot."
  [& args]
  (print (sphere/volume 10)))

cube.clj

(ns learn-you-a-haskell.geometry.cube
  (:require [learn-you-a-haskell.geometry.cuboid :as cuboid]))

(defn volume [side]
  (cuboid/volume side side side))

(defn area [side]
  (cuboid/area side side side))

cuboid.clj

(ns learn-you-a-haskell.geometry.cuboid)

(defn- rectangle-area [a b]
  (* a b))

(defn volume [a b c]
  (rectangle-area a (* b c)))

(defn area [a b c]
  (* 2 (+ (rectangle-area a b)
          (rectangle-area a c)
          (rectangle-area c b))))

sphere.clj

(ns learn-you-a-haskell.geometry.sphere)

(defn volume [r]
  (* 4/3 Math/PI r r r))

(defn area [r]
  (* 4 Math/PI r r))