Plaster
New
List
Login
common-lisp
default
anonymous
2018.04.08 20:09:22
(defun main () (let* ((line (read-line)) (parts (handler-bind ((parse-error (lambda (c) (format t "Invalid input!~%") (return-from main)))) (mapcar #'parse-integer (ppcre:split "," line))))) parts))
Raw
Annotate
Repaste
Edit