% A=0,B=0.78,C=0.683,D=0.196,E=0, X=16*A+8*B+4*C+2*D+E,W is X/31,F is (A+B+C+D+E)/5.  

demoa :-
	format('a\n&100&3\n',[]),
	score(0,0.862,0.712,0.311,0.138,4,W1,F1),
	score(0,0.78,0.683,0.196,0,5,W2,F2),
	format('F & ~a & ~a\\\\\n',[F1,F2]),
	format('W & ~a & ~a\\\\\n',[W1,W2]).

demob :-
	format('b\n&100&3\n',[]),
	score(0,0.5,0.698,0.415,0,5,W1,F1),
	score(0,0,0.713,0.255,0,4,W2,F2),
	format('F & ~a & ~a\\\\\n',[F1,F2]),
	format('W & ~a & ~a\\\\\n',[W1,W2]).

democ :-
	format('c\n&100&3\n',[]),
	score(0,0.0,0.918,0.923,0.533,5,W1,F1),
	score(0,0.0,0.791,0.862,0,3,W2,F2),
	format('F & ~a & ~a\\\\\n',[F1,F2]),
	format('W & ~a & ~a\\\\\n',[W1,W2]).

demod :-
	format('d\n&100&3\n',[]),
	score(0,0.0,0.985,0.87,0.0,5,W1,F1),
	score(0,0.0,0.985,0.87,0,4,W2,F2),
	format('F & ~a & ~a\\\\\n',[F1,F2]),
	format('W & ~a & ~a\\\\\n',[W1,W2]).

demoe :-
	format('e\n&100&3\n',[]),
	score(0,0.08,0.804,0.333,0.433,5,W1,F1),
	score(0,0.0,0.787,0.148,0,4,W2,F2),
	format('F & ~a & ~a\\\\\n',[F1,F2]),
	format('W & ~a & ~a\\\\\n',[W1,W2]).

score(A0,B0,C0,D0,E0,N0,W,F) :-
		Sum is 0.01*(A0+B0+C0+D0+E0),
		(A0 < Sum -> A1=0,N1 is N0 - 1; A1=A0, N1 = N0),
		(B0 < Sum -> B1=0,N2 is N1 - 1; B1=B0, N2 = N1),
		(C0 < Sum -> C1=0,N3 is N2 - 1; C1=C0, N3 = N2),
		(D0 < Sum -> D1=0,N4 is N3 - 1; D1=D0, N4 = N3),
		(E0 < Sum -> E1=0,N5 is N4 - 1; E1=E0, N5 = N4),
	X=16*A1+8*B1+4*C1+2*D1+E1,
	W is X/31,
	F is (A1+B1+C1+D1+E1)/N5.