/
githubmirror
/
FiraCode
Обзор
Документация
Войти
/
githubmirror
/
FiraCode
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
clojure/fira_code/coll.clj
22 строки
464 B
Nikita Prokopov
Code formatting, tools.namespace -> clj-reload, clojure+
02 мар 2026, 19:43
02 мар 2026, 19:43
c74dd80
Код
Авторство
О чём код?
(ns fira-code.coll) (defn index-of [pred xs] (let [res (reduce (fn [i x] (if (pred x) (reduced i) (inc i))) 0 xs)] (if (>= res (count xs)) -1 res))) (defn group-by-to [key-fn value-fn xs] (reduce-kv (fn [m k vs] (assoc m k (value-fn vs))) {} (group-by key-fn xs))) (defn multimap-by [f & kvs] (reduce (fn [m [k v]] (if (contains? m k) (update m k f v) (assoc m k v))) {} (partition 2 kvs)))