luciano/clojure-koans
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Solve runtime polymorphism

Browse source
This commit is contained in:
Kenneth Kostresevic 2021-12-15 14:58:49 +01:00
parent a9c22921a5
commit 72ee00960c
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/koans/10_runtime_polymorphism.clj
View file

@ -10,19 +10,19 @@
"!"))) "!")))
(defmulti diet (fn [x] (:eater x))) (defmulti diet (fn [x] (:eater x)))
(defmethod diet :herbivore [a] __) (defmethod diet :herbivore [a] (str (:name a), " eats ", "veggies."))
(defmethod diet :carnivore [a] __) (defmethod diet :carnivore [a] (str (:name a), " eats ", "animals."))
(defmethod diet :default [a] __) (defmethod diet :default [a] (str "I don't know what ", (:name a), " eats."))
(meditations (meditations
"Some functions can be used in different ways - with no arguments" "Some functions can be used in different ways - with no arguments"
(= __ (hello)) (= "Hello World!" (hello))
"With one argument" "With one argument"
(= __ (hello "world")) (= "Hello, you silly world." (hello "world"))
"Or with many arguments" "Or with many arguments"
(= __ (= "Hello to this group: Peter, Paul, Mary!"
(hello "Peter" "Paul" "Mary")) (hello "Peter" "Paul" "Mary"))
"Multimethods allow more complex dispatching" "Multimethods allow more complex dispatching"