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

iteye_7373

于 2013-09-23 16:52:36 发布

阅读量311

点赞数

分类专栏： scheme 文章标签： scheme

scheme 专栏收录该内容

2 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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