fork download

copy

bieding(Bod, Afzender, Aantal, Bestemming, [], Prijsaanp, Pos) :-
	Maxbod is abs((Bestemming-Afzender)*Aantal),
	Bod is random(Maxbod)+ 0.5.
 
bieding(Bod, Afzender, Aantal, Bestemming, [opdracht(_, Af, Aa, Be, Wi)|_], Prijsaanp, Pos) :-
    Oud is abs(Be-Af)*Aa,
    Nieuw is abs(Bestemming-Afzender)*Aantal,
    Ratio is Nieuw/Oud,
    0.75<Ratio,
	Ratio<1.25,
	Bod is Wi+3.
 
bieding(Bod, Afzender, Aantal, Bestemming, [opdracht(_, Af, Aa, Be, Wi)|T], Prijsaanp, Pos) :-
	Oud is abs(Be-Af)*Aa,
    Nieuw is abs(Bestemming-Afzender)*Aantal,
   	Ratio is Nieuw/Oud,
    (0.75>Ratio; Ratio>1.25),
	bieding(Bod, Afzender, Aantal, Bestemming, [T], Prijsaanp, Pos).

prog.pl:1-3: warning: singleton variables [Prijsaanp,Pos] for bieding/7
prog.pl:5-11: warning: singleton variables [Prijsaanp,Pos] for bieding/7
prog.pl:13-18: warning: singleton variables [Wi] for bieding/7
prog.pl:1-3: fatal error: unknown operation in arithmetic expression (random/1)
compilation failed

Standard output is empty