История изменений
Исправление ugoday, (текущая версия) :
На лиспе, естественно, всё красивее и элегантнее.
(defun graph-parser (txt))
(->> txt
(ppcre:split "\\n")
(mapcar #'(lambda (s)
(ppcre:all-matches-as-strings "\\w" s)))
(mapcar #'(lambda (ss)
(list (car ss) (cdr ss)))))
Исходная версия ugoday, :
(defun graph-parser (txt))
(->> txt
(ppcre:split "\\n")
(mapcar #'(lambda (s)
(ppcre:all-matches-as-strings "\\w" s)))
(mapcar #'(lambda (ss)
(list (car ss) (cdr ss)))))