tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Polymorphism/Clojure/polymorphism.clj
+++ b/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))