D
правда немного кринжово в 2020 проверять результат выполенния программы через
(when "finished\n" ...)
Size: a a a
2020 December 02
D
Кокое
Ну сортировку по второму элементу списка, фантомные боли подсказыывают мне что в дефолтах это выглядело бы на строк 10000
D
хотя это пример не показательный
PG
Ну сортировку по второму элементу списка, фантомные боли подсказыывают мне что в дефолтах это выглядело бы на строк 10000
(cl-sort ... #'< :key #'cadr)PG
жду извинений
D
извини
PG
лол, не передо мной
D
не понял
PG
не хейти старые либы
D
ладно, работает
D
самые продкутивные 8 часов в этом месяцы, ммм
PG
лежать плюс сосать
(when-let* ((files (directory-files-and-attributes "~/videos" nil "^[^.]"))
(max (pop files)))
(dolist (it files (car max))
(when (time-less-p (file-attribute-status-change-time (cdr it))
(file-attribute-status-change-time (cdr max)))
(setq max it))))DL
when-let из некошерной кложи же :3
PG
нормально, здесь он мне малину не портит
DL
диды негодуют
DL
лежать плюс сосать
(when-let* ((files (directory-files-and-attributes "~/videos" nil "^[^.]"))
(max (pop files)))
(dolist (it files (car max))
(when (time-less-p (file-attribute-status-change-time (cdr it))
(file-attribute-status-change-time (cdr max)))
(setq max it))))а чо надо сделать-то, найти самый старый файл в videos?
PG
а чо надо сделать-то, найти самый старый файл в videos?
тип того
PG
бонус для любитейлей функциональщины, но без обработки пустого списка файлов
(car
(cl-reduce
(lambda (lhs rhs)
(if (time-less-p (file-attribute-status-change-time (cdr rhs))
(file-attribute-status-change-time (cdr lhs)))
rhs
lhs))
(directory-files-and-attributes "~/videos" nil "^[^.]")))