Journal InTime - イテレータ(Sather)

トップ «前の日記(2003-10-06 (Mon)) 最新次の日記(2003-10-13 (Mon))» 編集

2003-10-09 (Thu)

_ イテレータ(Sather)

イテレータを実装。以下のようなコードが動くようになった。

class MAIN is
   upto!(once from: INT, once to: INT): INT is
      i ::= from;
      loop
         while!(i <= to);
         yield i;
         i := i + 1;
      end;
   end;

   sum!(i: INT): INT is
      r ::= 0;
      loop
         r := r + i;
         yield r;
      end;
   end;

   product!(i: INT): INT is
      r ::= 1;
      loop
         r := r * i;
         yield r;
      end;
   end;

   main is
      sum: INT;
      product: INT;
      loop
         i ::= upto!(1, 10);
         #OUT + "i=" + i + "\n";
         sum := sum!(i);
         product := product!(i);
      end;
      #OUT + "sum=" + sum + "\n";
      #OUT + "product=" + product + "\n";
   end;
end;

実行結果は以下の通り。

i=1
i=2
i=3
i=4
i=5
i=6
i=7
i=8
i=9
i=10
sum=55
product=3628800

[ツッコミを入れる]

ツッコミ・コメントがあればどうぞ! E-mailアドレスは公開されません。

[TrackBack URL: http://shugo.net/jit/tb.rb/20031009]

本日のリンク元


		2003年 10月
日	月	火	水	木	金	土
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30	31

2003-10-09 (Thu)

_ イテレータ(Sather)

Feed

最近のコメント

最近のトラックバック

最近の記事