RosettaCodeData/Task/A+B/Emacs-Lisp/a+b.l
2023-07-01 13:44:08 -04:00

5 lines
185 B
Common Lisp

(let* ((input (read-from-minibuffer ""))
(numbers (mapcar #'string-to-number (split-string input)))
(a (car numbers))
(b (cadr numbers)))
(message "%d" (+ a b)))