[[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");