A
Size: a a a
2021 May 19
A
крч я понимаю, что org-journal это не единственный способ организовать такую ротацию записей, когда ты просто в течение дня что-то пишешь, а время от времени приводишь в порядок. Но у меня оно кажется работает.
Aß
@akater я тут уточнил один момент, насчет безконсового маппинга строк :^)
Aß
“дедовский способ перезагрузить init.el, надо только набрать M-x …”
Aß
(cl-defmethod seq-map (fun (string string))
(let ((result (copy-sequence string)))
(dotimes (idx (length string))
(aset result idx
(funcall fun (aref string idx))))
result))a
Ну это да, но вообще-то это должно попросту быть в cl-map.
А еще должно быть map-into как в CL, но его почему-то нет.
А еще должно быть map-into как в CL, но его почему-то нет.
Aß
или вот так, если ещё немножко подумать
(cl-defmethod seq-map (fun (str string))
(let ((result (copy-sequence str)))
(seq-do-indexed
(lambda (ch idx)
(aset result idx (funcall fun ch)))
str)
result))Aß
никакой проблемы добавить такую проверку нет, но это получается “закат солнца вручную”, потому что cl-map не дженерик
Aß
а в чем отличие cl-map от map-into?
a
Такие функции и не должны быть дженериками.
a
(map-into y f x) запишет (f x) в y
F
Aß
а map не должен такого делать?
a
map новую создает
Нужно бывает и то, и то.
Нужно бывает и то, и то.
Aß
аа, то есть map-into деструктивный
a
Да. Можно и в сам x писать, конечно.
Aß
я побенчмаркал свою реализацию seq-map для массивов, по сокрости то же самое, что и mapcar + concat
Aß
мусора тоже одинаково
Aß
как всегда в функциональных языках списки самые оптимизированные и поэтому ебут всё
MK
А что нынче для комплита Си используют в имаксе?