PG
(defun has-enough-elements-p (n list)
(while (and list (< 0 n))
(pop list)
(decf n))
list)
Size: a a a
2020 February 26
A
а вариант через unfold не?
PG
функция двойного назначения, как в борще любят
PG
вот только названия достойного не придумал
A
unfold это из srfi-1, должно быть
A
In general, (unfold p f g seed) is basically
(loop for x = seed then (g x) until (p x) collect (f x))
(loop for x = seed then (g x) until (p x) collect (f x))
A
(defun slide (my-list window)
(loop for x from 0 to (- (length my-list) window)
for l on my-list
collect (subseq l 0 window)))
A
но ваще...
A
(defun slide (my-list window)
(loop for l on my-list
for p on (subseq l (- window 1))
collect (subseq l 0 window)))
A
такое тоже работает
O
:repeat про это читаю сейчасA
но наверняка можно это сделать еще более оптимально..
PG
про оптимальность говорить рановато
PG
ни одного бенча по теме ещё не видел %)
O
(loop :repeat (1+ (- (length l) n))
:for lt on l
:collect (subseq lt 0 n))
:for lt on l
:collect (subseq lt 0 n))
O
вотдумаю ща проверю
O
CL-USER> (time (peh-utils:slide-list (loop :for i :upto 10000 :collect i) 10))
Evaluation took:
0.062 seconds of real time
0.062782 seconds of total run time (0.062782 user, 0.000000 system)
101.61% CPU
194,675,152 processor cycles
1,900,544 bytes consed
A
ну вот вместо :repeat просто итерироваться по тому же списку, но с некоторым начальным смещением
O
CL-USER> (time (peh-utils::slide-list-one-length (loop :for i :upto 10000 :collect i) 10))
Evaluation took:
0.002 seconds of real time
0.001586 seconds of total run time (0.001586 user, 0.000000 system)
100.00% CPU
4,932,430 processor cycles
1,933,312 bytes consed
O
0.002 против 0.062 реззоно даже...