このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/731
#  線形リストでノードを順に辿りつつ、変数aとbそれぞれを100〜250の間の乱数で初期化する関数 
#  を作りたいんですが… 
# 

'線形リストでノードを順に辿りつつ、変数aとbそれぞれを100〜250の間の乱数で初期化する'([],[]).
'線形リストでノードを順に辿りつつ、変数aとbそれぞれを100〜250の間の乱数で初期化する'([L|R1],[L1|R2]) :-
        findall(V1,(
                    append(_,[V|_],L),
                    値変換(V,V1)),
                L1),
        '線形リストでノードを順に辿りつつ、変数aとbそれぞれを100〜250の間の乱数で初期化する'(R1,R2).

値変換(a(_),a(A)) :-
        A is random(150) + 100,!.
値変換(b(_),b(B)) :-
        B is random(150) + 100,!.
値変換(V,V).