Overlay GHC

素材突っ込み †




↑

素数生成プログラム †

doi (2007-05-12 (土) 14:03:01)

http://www2.media-art-online.org/%7Eks91/primes.ghc より


↑

関係するlink †

doi (2007-05-12 (土) 13:57:31)


↑

lib-ioの中身を大公開！ (as source code example?) †

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.


↑

サンプルプログラム †

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS