四則演算をCLで。 (defun parse-calc (string) "Parse calc string. operator: +,-,*,/ number is only 0-9." (parse-calc-iter (make-string-input-stream string))) (defun parse-calc-iter (stream) (let ((table (make-hash-table))) ;; operator => pri…