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

最新推荐文章于 2025-02-22 20:04:39 发布

最新推荐文章于 2025-02-22 20:04:39 发布 · 324 阅读

文章标签：

#scheme

scheme 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段使用Guile编写的脚本，该脚本可以从标准输入中读取两个数值，并计算这两个数值的和。Guile是一种灵活且功能强大的Scheme方言，适合于创建各种类型的脚本。

一段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)