VL
выходит number-to-char
Size: a a a
2021 February 24
VL
но char это и есть number
VL
потому не нужно
¥
так мне нужно первую цифру числа
¥
извлечь
VL
VL
¥
что не пон?
VL
(defun some-shet (input)
(mapconcat (lambda (y)
(concat (make-string (- (string-to-char y) ?1) ?\s) y))
(cl-sort (split-string input) '< :key #'string-to-number)
"\n"))
VL
:key/:test - мои любимые киворды
VL
просто обожнюю борщевой API
VL
что не пон?
то что тебе нужен был первый кар
VL
просто обожнюю борщевой API
правда не без проблем. Какого хрена cl-sort принимает предикат вторым аргументом
¥
правда не без проблем. Какого хрена cl-sort принимает предикат вторым аргументом
DL
правда не без проблем. Какого хрена cl-sort принимает предикат вторым аргументом
потому что легаси говно
DL
(defun some-shet (input)
(mapconcat (lambda (y)
(concat (make-string (- (string-to-char y) ?1) ?\s) y))
(cl-sort (split-string input) '< :key #'string-to-number)
"\n"))
(make-string (- (string-to-char y) ?1) ?\s)
не оч читается
a
правда не без проблем. Какого хрена cl-sort принимает предикат вторым аргументом
Это не большая трагедия.
Хуже, что он на самом деле
(sort sequence ..) лучше читается, а с функцией на первом месте можно писать, к примеру (sort-by f ..), и читается тоже хорошо.Хуже, что он на самом деле
nsort, хотя это не очевидно.VL
Это не большая трагедия.
Хуже, что он на самом деле
(sort sequence ..) лучше читается, а с функцией на первом месте можно писать, к примеру (sort-by f ..), и читается тоже хорошо.Хуже, что он на самом деле
nsort, хотя это не очевидно.what? sort деструктивный?
Aß
ping