Stein-Schere-Papier-Echse-Spock in OOP

[Matthias Apsel]

Om nah hoo pez nyeetz, T-Rex!

So jetzt hab ich keine Lust auf neue Ideen :p.

In meinem Pascal-Programm habe ich folgende Arrays:

wahl[1] := 'Stein';  
wahl[2] := 'Schere';  
...  
  
check[1,1] := 0; {Stein, Stein unentschieden}  
check[2,1] := 1;  
check[1,2] := -1;  
check[2,2] := 0;

und meine Auswertung sieht so aus:

write (wahl[h]);  
case check[h,c] of  
	-1: write (' verliert gegen ');  
	0:  write (' : ');  
	1:  write (' schlägt ');  
end;  
writeln(wahl[c]);

Wenn ich mir vernünftige Variablennamen ausdenken könnte, könnte auch (auf Kosten eines weiteren Arrays) ein Einzeiler draus werden.

verb[0] := ' verliert gegen ';  
verb[1] := ' : ';  
verb[2] := ' schlägt ';  
  
writeln (wahl[h], verb[check[h,c] + 1], wahl[c]);  

Matthias