TSabc 発言

連休の間に思いっきり出遅れてしまいました．
とりあえず一番面倒なのから...

%!PS-Adobe-3.0
/given-set [8 4 2 1] def
/buffer 256 string def
/Ryumin-Light-83pv-RKSJ-H findfont 12 scalefont setfont
/x 50 def
/y 700 def
/l given-set length def
/m 2 l exp cvi 1 sub def
0 1 m {
  x y moveto
  /binaries exch 2 buffer cvrs def
  /sum 0 def
  /flag false def
  /shift binaries length def
  0 1 shift 1 sub {
    dup binaries 3 -1 roll get 49 eq {
      flag { (+) dup print show } { /flag true def } ifelse
      l shift sub add given-set exch get dup
      buffer cvs dup print show
      /sum exch sum add def
    } if
    clear
  } for
  flag not { (0) dup print show } if
  ( = ) dup print show
  sum buffer cvs dup print show
  /y y 20 sub def
  y 50 lt {
    showpage
    /y 700 def
  }
  (\n) print
} for 
quit

Linux では，

gs -sDEVICE=nullpage -q xxx.ps

で動きます．また，プリンタに送れば印刷もしてくれるはずです．

Preview は

gv xxx.ps

か，または最後の quit を
コメントアウト (quit ->  %quit) して，

gs -q xxx.ps

でどうぞ．

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