TSfree 発言

From: Noritsugu Nakamura <nnakamur@...>
Subject: [TSfree:69] Re: [TSabc:43] 初心者向け言語の比較の参考に(Metafont の場合)
Date: Wed, 10 Apr 2002 20:06:10 +0900
Message-ID: <20020410200610C.nnakamur@...>

> PostScript とかはできるんだろうか？とふと思ってみたり。
> # 入力というのができればできると思うのですが…。

さすがに文法が独特で，やっとできました．
Linux の GNU Ghostscript 5.50 でのみ動作確認しました．

% gs -sDEVICE=nullpage -q add.ps

等と実行して下さい．

10進整数の足し算だけです．


/buf 16 string def
/total 0 def
/fd (%stdin) (r) file def
{ %loop
  /str fd buf readline pop def
  /num 0 def
  /sgn 1 def
  str 0 get 45 eq { %if
    /sgn -1 def
    /str str 1 str length getinterval def
  } if
  str 0 get 43 eq { %if
    /str str 1 str length getinterval def
  } if
  0 1 str length 1 sub { %for
    str exch get 48 sub
    /c exch def
    c 0 lt c 10 ge or { exit } if
    /num num 10 mul def
    /num num c add def
  } for
  /num num sgn mul def
  num 0 eq { exit } if
  /total total num add def
} loop
total ==
quit

リファレンスマニュアルを詳しく読めば，
もっとエレガントな解がみつかるかも知れません．

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