26 lines
667 B
Text
26 lines
667 B
Text
func Gen; \Return sum of the three largest of four random values
|
|
int I, R, Min, SI, Sum, Die(4);
|
|
[Min:= 7; Sum:= 0;
|
|
for I:= 0 to 4-1 do
|
|
[R:= Ran(6)+1; \R = 1..6
|
|
if R < Min then
|
|
[Min:= R; SI:= I];
|
|
Sum:= Sum+R;
|
|
Die(I):= R;
|
|
];
|
|
return Sum - Die(SI);
|
|
];
|
|
|
|
int Total, Count, J, Value(6);
|
|
[repeat Total:= 0; Count:= 0;
|
|
for J:= 0 to 6-1 do
|
|
[Value(J):= Gen;
|
|
if Value(J) >= 15 then Count:= Count+1;
|
|
Total:= Total + Value(J);
|
|
];
|
|
until Total >= 75 and Count >= 2;
|
|
Text(0, "Total: "); IntOut(0, Total); CrLf(0);
|
|
for J:= 0 to 6-1 do
|
|
[IntOut(0, Value(J)); ChOut(0, ^ )];
|
|
CrLf(0);
|
|
]
|