June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Delegates/Clojure/delegates.clj
+++ b/Task/Delegates/Clojure/delegates.clj
@ -0,0 +1,13 @@
+(defprotocol Thing
+  (thing [_]))
+
+(defprotocol Operation
+  (operation [_]))
+
+(defrecord Delegator [delegate]
+  Operation
+  (operation [_] (try (thing delegate) (catch IllegalArgumentException e "default implementation"))))
+
+(defrecord Delegate []
+  Thing
+  (thing [_] "delegate implementation"))