AI
first и rest от range
(rest (range 10)) — 50+nsSize: a a a
2020 January 24
ST
а ещё
(rest '(0 1 2 3 4 5 6 7 8 9)) на порядок быстрее, чем `(rest (range 10))`надо попробовать свой range написать
ST
эхх....
ага, range без параметров даёт неправильный range, через iterate
вот такой вариант работает быстрее первоначального lazy-seq
вот такой вариант работает быстрее первоначального lazy-seq
(defn x--i+i-range
[]
(->>
(range 10000)
(map (fn [^long x]
(quot (* x (inc x)) 2)))))
AI
вот уж где не ожидал подставы от рэнджа. но хоть сейчас то все стало как надо
ST
вот уж где не ожидал подставы от рэнджа. но хоть сейчас то все стало как надо
ну, решение теперь не бесконечное получилось
ST
ага, range без параметров даёт неправильный range, через iterate
вот такой вариант работает быстрее первоначального lazy-seq
вот такой вариант работает быстрее первоначального lazy-seq
(defn x--i+i-range
[]
(->>
(range 10000)
(map (fn [^long x]
(quot (* x (inc x)) 2)))))
и вот тогда трансдьюсерный вариант в 2-3 раза медленнее 😊
AI
с учетом переполнения лонгов бесконечное. а если в длинную арифметику переходить, то надо еще рэндж проверить на это
ST
в общем, объявляем запрет на range без параметров 😊
ST
в общем, объявляем запрет на range без параметров 😊
либо надо смотреть, почему iterate медленный
ST
либо надо смотреть, почему iterate медленный
а iterate на яве написан 😊
AI
я тут подумал, что надо мне прочекать все места в критичных к производительности кусках где я его так использовал.
ST
а iterate на яве написан 😊
самопальный iterate на лезисеках всё-равно медленнее
ST
Посмотрю, как от багфикса оторвусь)
не смотрел ещё?
AG
суровый, видать, баг попался 😊
Сам же сказал баг злой
AG
Занят человек, фиксит, вторые сутки пошли...
MB
не смотрел ещё?
У меня открыта вкладка, прочитаю может сегодня)
MB
Баг и правда злой
ST
ЗЫ а вообще в энциклопедии юных сурков (СИКП) есть отдельная глава про потоки, где помимо всего прочего представлена функция возвращающая поток частичных сумм любого потока. Разумеется тоже без костылей мутабельности
А ссылку не можешь дать?
AI
Упражнение 3.55.
Определите процедуру partial-sums, которая в качестве аргумента берет поток S, а возвращает поток, элементы которого равны S0, S0 + S1, S0 + S1 + S2, . . .. Например, (partial-sums integers) должно давать поток 1, 3, 6, 10, 15 . . .
KC
вот еще вариант
(def foo `(0 1 ~@(lazy-seq (map #(%1 %2) (map #(partial + % ) (drop 2 (range))) (drop 1 foo)))))
(take 10 foo) ;; => (0 1 3 6 10 15 21 28 36 45)