A
тут чот ни loop ни doseq не подходят, потому что для doseq тут нужна мутабельность по параметру
Size: a a a
2020 November 02
AP
куда копать, чтобы на кложе сделать "цикл" вида "взять первую запись в мапе, выполнить функцию, куда дополнительно передать параметр Х. Получить из функции значение Х1. Взять вторую запись, вызвать функцию, но туда уже передать Х1 и так пока не кончится мапа"?
В схеме для такого есть call/cc :)
A
не, вроде не то
A
во, придумал через loop, причем один из аргументов это список ключей, которые пока не потрогали
DL
куда копать, чтобы на кложе сделать "цикл" вида "взять первую запись в мапе, выполнить функцию, куда дополнительно передать параметр Х. Получить из функции значение Х1. Взять вторую запись, вызвать функцию, но туда уже передать Х1 и так пока не кончится мапа"?
тебе reduce-kv штоле надо?
A
(defn distribute [amount distribution]
(loop [total-amount amount
keys-left (keys distribution)
total-weight (reduce + (vals distribution))]
(if (= total-weight 0)
total-amount
(let [key (first keys-left)
weight (get distribution key)
amount (/ (* total-amount weight) total-weight)
used (key amount)]
(recur (- total-amount used)
(rest keys-left)
(- total-weight weight))))))
A
вот такое накодячил
A
но видимо да
A
хм, похоже, да
DL
(defn distribute [amount distribution]
(loop [total-amount amount
keys-left (keys distribution)
total-weight (reduce + (vals distribution))]
(if (= total-weight 0)
total-amount
(let [key (first keys-left)
weight (get distribution key)
amount (/ (* total-amount weight) total-weight)
used (key amount)]
(recur (- total-amount used)
(rest keys-left)
(- total-weight weight))))))
вместо first/rest можно прямо в биндах loop-а декструктурить
PG
DL
[current-key keys-left] (keys distribution)A
ага, норм, работает
A
надо только после reduce-kv вытащить нужное из полей
A
(defn distribute [amount distribution]
(first
(reduce-kv
(fn [[total-amount total-weight] key weight]
(if (= total-weight 0)
[total-amount 0]
(let [amount (/ (* total-amount weight) total-weight)
used (key amount)]
[(- total-amount used) (- total-weight weight)])))
[amount (reduce + (vals distribution))]
distribution)))
A
то есть у меня по цепочке передаются total-amount и total-weight и по пути уменьшаются
A
а в итоге total-weight падает в 0, а total-amount надо вернуть
DL
а в итоге total-weight падает в 0, а total-amount надо вернуть
key лучше не использовать в качестве локального имени