作者: Tsutomu Hiroshima
日時: 2002/4/09(15:30)
From: saw@... (Ｙさ)
Subject: [TSabc:43] 初心者向け言語の比較の参考に
Date: Mon, 8 Apr 2002 16:54:47 +0900
Message-ID: <200204080754.g387slY15624@...>

> [お題]簡易足し算器
> [内容]入力された数字を合計し、表示する。
>  0が入力されるまで数字を受け付け、合計し続ける。
>  0が入力されるとそれまでの合計を表示する。
> 
> どなたかその他の(スクリプト)言語による例をお願いいたします(^o^)/

廣島です．

もはや TSabc にそぐわないので...

TeX Book で Knuth 先生は，

「特殊な効果が欲しいときや，
コンピュータの使用料金をあまり気にしなくていいときには，
実際に TeX をプリミティブなプログラミング言語として活用してみるのもいい
だろう．」

と述べておられます．(ASCII 版訳本より抜粋)

で，こんなになります．

\newcount\total=0
\newif\ifcont
\loop
 \message{ Please Input Integer>> }
 \read-1 to\answer
 \ifnum0=\answer
  \contfalse
 \else
  \advance\total by \answer
  \relax
  \conttrue
 \fi
 \ifcont
\repeat
\message{ Total is \the\total}
\end

これを TeX にかけると
端末から整数の入力を受けつけ，
端末に結果を出力した後，
空ページの dvi ファイルと
入力記録も含めた log ファイルを作ります．

TeX よりはるかにプログラム言語的な Metafont では
もっと簡単にできるはずです．

-----------------------------
	廣島 勉
	(tsutomu@...)