Re: Would seq-range and seq-mapcat be useful?

[Oleh Krehel <ohwoeowho@gmail.com>]

> Mine's faster:
>
>     (defmacro util-timeit (expr)
>       (let ((t-beg (float-time))
>             (res (dotimes (i 10000)
>                    (eval expr)))
>             (t-end (float-time)))
>         (/
>          (- t-end t-beg)
>          10000)))
>
>     (util-timeit (yf/seq-group-by #'car tmp))
>     0.0003461523771286011
>     0.00033148398399353025
>     0.00032957537174224856
>
>
>     (util-timeit (seq-group-by #'car tmp))
>     0.00019227066040039062
>     0.00018899762630462645
>     0.0001775247573852539

Forgot:

    (defvar tmp '(("a" ("a" 1))
                  ("b" ("b" 5)
                   ("b" 2))
                  ("c" ("c" 3))
                  ("a" ("a" 1))
                  ("b" ("b" 5)
                   ("b" 2))
                  ("c" ("c" 3))
                  ("a" ("a" 1))
                  ("b" ("b" 5)
                   ("b" 2))
                  ("c" ("c" 3))))