2014-11-25 14:31 GMT+01:00 Gary Verhaegen <gary.verhae...@gmail.com>:
> Add an arity 3 version which takes a symbol and dispatches on it. You can
> choose the position that you like best; to keep in line with your current
> scheme:
>
> (defn get-percentage
> ([place total-count] (get-percentage :normal place total-count))
> ([mode place total-count]
> (condp = mode
> :low (... floor ...)
> :normal (... round ...)
> :high (... ceil ...))))
>
I have gone for:
(defn get-percentage-normal [place total-count]
(int (Math/round (double (/ (* place 100) total-count)))))
(defn get-percentage-low [place total-count]
(int (Math/floor (/ (* place 100) total-count))))
(defn get-percentage-high [place total-count]
(int (Math/ceil (/ (* place 100) total-count))))
(defn get-percentage
([place total-count] (get-percentage :normal place total-count))
([mode place total-count]
(condp = mode
:high (get-percentage-high place total-count)
:low (get-percentage-low place total-count)
:normal (get-percentage-normal place total-count)
(throw (Exception. "ERROR: get-percentage [:high|:low|:normal]
<PLACE> <TOTAL_COUNT>")))))
> On Tuesday, 25 November 2014, Cecil Westerhof <cldwester...@gmail.com>
> wrote:
>
>> I started playing with Clojure again. I made the following three
>> functions:
>> (defn get-percentage [place total-count]
>> (int (Math/round (double (/ (* place 100) total-count)))))
>>
>> (defn get-percentage-low [place total-count]
>> (int (Math/floor (/ (* place 100) total-count))))
>>
>> (defn get-percentage-high [place total-count]
>> (int (Math/ceil (/ (* place 100) total-count))))
>>
>> Put I would like to give get-percentage an optional type to change its
>> behaviour. Type could have the values 'normal', 'high' and 'low'. If there
>> is no type, it has its current behaviour.
>>
>> What would the best way to do this?
>>
>
--
Cecil Westerhof
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
