Data commit

Task/Polymorphism/Clojure/polymorphism.clj

@@ -0,0 +1,18 @@
+(defprotocol Printable
+  (print-it [this] "Prints out the Printable."))
+
+(deftype Point [x y]
+  Printable
+  (print-it [this] (println (str "Point: " x " " y))))
+
+(defn create-point
+  "Redundant constructor function."
+  [x y] (Point. x y))
+
+(deftype Circle [x y r]
+  Printable
+  (print-it [this] (println (str "Circle: " x " " y " " r))))
+
+(defn create-circle
+  "Redundant consturctor function."
+  [x y r] (Circle. x y r))