このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/640
#  [1] 授業単元:グラデーションの画像処理(白→黒) 
#  [2] 問題文(含コード&リンク):グラデーション画像(濃淡画像、320×240)の画素値を計算で求めるプログラムを作成せよ。左側から右側へ黒→白。 
#  

'グラデーション画像(濃淡画像、320×240)の画素値を計算で求める'(LL) :-
        列の画素ならび(L),
        findall(L,(
                    for(1,N,240)),
                LL).

列の画素ならび(L) :-
        findall(M,(
                    for(0,N,319),
                    M is trunct(N * 65536 * 256 / 320)),
                L).