- 追加された行はこの色です。
- 削除された行はこの色です。
[[Overlay GHC]]
#contents
* 素材突っ込み [#qd157ccc]
#article
**関係するlink [#u4d4ba98]
>[[doi]] (2007-05-12 (土) 13:57:31)~
~
- http://java.sun.com/~
- http://www2.media-art-online.org/nightly/~
//
#comment
**lib-ioの中身を大公開! (as source code example?) [#qbd7de52]
>[[doi]] (2007-05-12 (土) 13:43:05)~
~
% $Id: //depot/scm/main/java/org/media_art_online/ghc/lib/lib-io.ghc#3 $~
% $DateTime: 2007/04/19 05:15:52 $~
~
:- module io.~
~
outstream([write(X)|Os]) :- write(X) | outstream(Os).~
outstream([print(X)|Os]) :- write(X) | outstream(Os).~
outstream([nl|Os]) :- nl | outstream(Os).~
outstream([]) :- true.~
~
instream([write(X)|Is]) :- write(X) | instream(Is).~
instream([print(X)|Is]) :- write(X) | instream(Is).~
instream([nl|Is]) :- nl | instream(Is).~
instream([read(X)|Is]) :- read(X1) | X = X1, instream(Is).~
instream([]) :- true.~
//
#comment
** サンプルプログラム [#ybba649f]
- &ref("compact.ghc");
- &ref("ave.ghc"); 一つのストリームでの加重平均を出す
- &ref("compact.ghc"); 一つのストリームから重複する数字を削除する
- &ref("fibo.ghc"); フィボナッチ数を求める
- &ref("merge.ghc"); 二つのストリームを一つのストリームにまとめる
- &ref("prime.ghc"); 素数を求める