¥
Size: a a a
¥
DL
¥
?
?¥
¥
CG
DL
?
CG
¥
¥
(defun some-shet (input)
(cl-reduce (lambda (x y)
(format "%s%s%s\n" x (make-string (- (string-to-char (number-to-string y)) ?1) ? ) y))
(cl-sort (mapcar 'cl-parse-integer (split-string input)) '<)
:initial-value ""))
DL
DL
(defun some-shet (input)
(cl-reduce (lambda (x y)
(format "%s%s%s\n" x (make-string (- (string-to-char (number-to-string y)) ?1) ? ) y))
(cl-sort (mapcar 'cl-parse-integer (split-string input)) '<)
:initial-value ""))
Aß
Aß
?
?¥
VL