欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

[Scheme]循环读入并计算数字之和

程序员文章站 2024-01-09 16:52:58
...
一段guile脚本文件,循环读入并计算从stdin输入的两个数之和。
#!/usr/local/bin/guile -s
!#

(define (main)
 (let ((a (read (current-input-port)))
       (b (read (current-input-port))))
  (if (not (eof-object? a))
   (begin
    (write (+ a b) (current-output-port))
    (write-char #\newline (current-output-port))
    (main)))))
(main)

相关标签: scheme

上一篇:

下一篇: