Overlay GHC/Tutorial のバックアップ差分(No.2)

バックアップ一覧
現在との差分を表示
ソースを表示
バックアップを表示
Overlay GHC/Tutorial へ行く。

追加された行はこの色です。
削除された行はこの色です。

[[Overlay GHC]]

#contents

* 素材突っ込み [#qd157ccc]

#article
**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