ZOJ 1001 scheme

須要知道的

首先須要知道scheme是怎麼獲取標準輸入流的數據。scheme獲取標準輸入流的函數是read用於獲取一行數據，不包括換行符，若是想要讀取單個字符，能夠用read-char。
另外，還須要判斷輸入的結束，在scheme上面是用'eof-object?'若是是EOF,則返回#t，不然返回#f。
清楚這兩個地方以後，後面的都是能夠很簡單就寫出來了

我寫的代碼

(define main
  (lambda ()
    (let ((a (read))
          (b (read)))
      (if (and
           (not (eof-object? a))
           (not (eof-object? b)))
          (begin
            (display (+ a b))
            (newline)
            (main))
          ))))
(main)