Nope, that doesn't actually work...
On Sunday, July 20, 2014 8:57:47 PM UTC-4, Sam Raker wrote:
>
> Wait. Should be:
>
> (defn f [& args] (let [default-args-atom (atom {:a 1 :b 2 :c 3 :d 4}) kwds
> [:a :b :c :d]
> kwargs (map-indexed (fn [idx arg] (if
> (keyword? arg) (swap! default-args-atom assoc arg (get args (inc idx)))
> (swap! a assoc (get kwds idx) arg))) args)]
> (function-that-actually-does-what-i-want-to-do (:a @default-args-atom)
> (:b @default-args-atom) (:c @default-args-atom) (:d @default-args-atom)))
>
> because there's no guarantee (vec (keys @default-args-atom)) will return
> the keys in the same order every time.
>
> On Sunday, July 20, 2014 8:45:02 PM UTC-4, Sam Raker wrote:
>>
>> I hacked this together:
>>
>> (defn f [& args] (let [default-args-atom (atom {:a 1 :b 2 :c 3 :d 4})
>> kwds (vec (keys @default-args-atom))
>> kwargs (map-indexed (fn [idx arg] (if
>> (keyword? arg) (swap! default-args-atom assoc arg (get args (inc idx)))
>> (swap! a assoc (get kwds idx) arg))) args)]
>> (function-that-actually-does-what-i-want-to-do (:a
>> @default-args-atom) (:b @default-args-atom) (:c @default-args-atom) (:d
>> @default-args-atom)))
>>
>> But it seems kind of gross to me. Is there a cleaner solution?
>>
>> On Sunday, July 20, 2014 8:16:55 PM UTC-4, Alex Baranosky wrote:
>>>
>>> You can get keyword args like this:
>>>
>>> (defn f [& {:keys [a b c d]
>>> :or {a 1 b 2 c 3 d 4}}]
>>> [a b c d])
>>>
>>> But you cannot also get the ability to call:
>>> (f 5 6 7 8)
>>>
>>>
>>> On Sun, Jul 20, 2014 at 4:13 PM, Sam Raker <sam....@gmail.com> wrote:
>>>
>>>> I'm trying to write a function that takes (up to) 4 arguments. I want
>>>> to be able to supply every argument positionally, with a keyword or as a
>>>> default, so that
>>>>
>>>> (f)
>>>> (f 1)
>>>> (f 1 2)
>>>> (f 1 2 3)
>>>> (f 1 2 3 4)
>>>> (f 1 :b 2)
>>>> (f 1 2 :c 3)
>>>> ...
>>>> (f :a 1 :b 2 :c 3 :d 4)
>>>>
>>>> are all equivalent. In Python, I could do this by
>>>>
>>>> def f(a=1,b=2,c=3,d=4):...
>>>>
>>>> but I'm not sure how to do it in Clojure.
>>>>
>>>> --
>>>> You received this message because you are subscribed to the Google
>>>> Groups "Clojure" group.
>>>> To post to this group, send email to clo...@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+u...@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+u...@googlegroups.com.
>>>> For more options, visit https://groups.google.com/d/optout.
>>>>
>>>
>>>
--
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.
