Scheme 和 ZOJ

  今天尝试使用Scheme来解决ZOJ上的问题,花费了好些时间才通过1001的测试,记下来做个纪念

  

(define is-loop #t)(define (print)   (let ((x (read)) (y (read)))    (if      (and (not (eof-object? x))          (not (eof-object? y)))     (display (+ x y))     (set! is-loop #f)))  (if (and is-loop)      ((newline) (print))      (exit 0)))(begin  (print)  (exit 0))

本地使用的环境是DrRacket,虽然折腾了很长时间,不过终于成功了,比较高兴,呵呵