VL
Size: a a a
2020 December 02
D
просто ты шо то гнал на новые либы вот я и хотел посмотреть как там на ди(д)фолтах
PG
ты просил сортировку по второму элементу списка — я сделал
PG
максимум надо через свертку делать, чтобы O(n) было
VL
просто ты шо то гнал на новые либы вот я и хотел посмотреть как там на ди(д)фолтах
просто -max-by это reduce + if
VL
там не сильно больше получается
VL
но я борщевик
VL
потому скорее бы заloop заюзал
D
там не сильно больше получается
такими темпами можно пол либы перекопипастить нечаяно
PG
(defun go (dir &optional id-format)
(let ((dirs (list dir)) files)
(while dirs
(dolist (it (directory-files-and-attributes (pop dirs) t "^[^.]" t id-format))
(cond ((null (cadr it))
(push it files))
((stringp (cadr it))
"симлинк :^)")
(t
(push (car it) dirs)))))
files))PG
PG
симлинки лень делать
VL
такими темпами можно пол либы перекопипастить нечаяно
(cl-loop for elm in '((a 1) (a 2) (a 5) (a 3) (a 4))
for max = elm then (if (< (cadr elm) (cadr max)) max elm)
finally return max)
кайф
VL
быстро робить
VL
что
cl-loop
VL
имакс вообще не терпит всякую функциональщину
PG
вообще я предлагаю высраться в рассылку и потребовать cl-max
VL
а че, нету?