Free-Hack Coding Contest - A New Begining

[sp1nny]

So ich bin jetzt denke ich auch fertig und komme mit Kommentaren und Parametercheck auf 210 Zeilen.

Edit: Uhhhh 200 Posts :>

[H4x0r007]

Kann Brainfuck bzw. Ook! überhaupt argv Parameter aufnehmen? Ich denke, die Sprachen können nur von der späteren Tastatureingabe lesen?

[Variable X]

So ich bin jetzt denke ich auch fertig und komme mit Kommentaren und Parametercheck auf 210 Zeilen.

Edit: Uhhhh 200 Posts :>

210 Zeilen schön

Naja ich hab mal nachgerechnet mit Unterroutinen würd ich auch locker auf 200 Zeilen kommen >.< Ich werd morgen mal versuchen die einzubauen xD um meinen Code zu kürzen und alles übersichtlicher zu machen xD


Edit: Code ist nur noch 146 Zeilen lang

[sp1nny]

Wenn ich meinen Code kürze ist er auch nur so lang. Habs schon getestet.
Theoretisch könnte ich ihn auch nur auf ein par Zeilen kürzen aber wir wollen es ja nicht zu unübersichtlich machen.

[AlterHacker]

182 mit input-Validitätsprüfung und noch nicht zwingenden 'Features' [u.A. ist mein bot leicht zufallsgesteuert, damit was Abwechslung ins Spiel kommt xD]

Theoretisch könnte ich ihn auch nur auf ein par Zeilen kürzen aber wir wollen es ja nicht zu unübersichtlich machen.

- WORD

[Variable X]

Naja input hab ich nur so halb geprüft xD ob die länge stimmt, mehr nicht

Ja natürlich kann man das alles in eine lange Zeile schreiben ^^
Aber nein ich hab haufenweise unnützes Zeug rausgeschmissen und unterroutinen eingebaut...
Außerdem bin ich noch nicht soooo erfahren was programieren angeht, alles was ich kann hab ich selbst im Internet nachgeschaut, nie irgend nen Kurs besucht, oder das ganze Studiert :/

Und nen kleinen Zufall wollte ich eigentlich auch einbringen, aber habs noch nciht gemacht und werds wahrscheinlich auch nicht gemacht... Wobei ohne einen kleinen Zufall die "Bots" leider immer gleich spielen ^^ und bei 5 spielen immer das selbe Ergebnis raus kommt....

Naja aber die Aufgabe an sich fand ich toll und es hat mir einfach Spaß gemacht mal wieder was zu schreiben

[sp1nny]

Ich kann von mir auch nicht behaupten, dass ich irgendwelche Kurse besuche oder Informatik studiert habe. Ordentliche Bücher wirken jedoch Wunder.

Bei dem Parameter prüfe ich btw. folgendes:
-Anzahl der Paramter
-Länge
-Characters
-Steinanzahlen
-Spielfeld voll?
-Spiel schon zuende?

Hab mir sonst noch ein zweites Programm geschrieben, damit ich besser selber gegen meinen Bot spielen kann.
Bisher habe ich noch nie gewonnen.

[Variable X]

Naja ich überprüfe nicht ganz so viel ^^
Bei mir überprüft er die Länge, setzt danach alles auf Großbuchstaben, sofern jemand mal ein kleines x oder o gemacht hat ^^ und fängt dann an.
Dabei wird dann auch überprüft wie viel Steine gesetzt sind und teilweise auch wo diese sitzen ^^

Wenn das Spielfeld voll ist macht mein Programm einfach nichts, sprich es kommt nichts zurück ^^
Wenn man dem Programm ein volles Spielfeld übergibt ist man selbst schuld und schön blöd xD

Im Nachhinein ist mir zusammen mit meinem Vater, welcher von Beruf aus programmiert und der sich mein Programm mal angucken sollte, noch eine elegantere Lösung eingefallen die mir persönlich auch viel besser gefällt... bzw. ihm ist sie eingefallen

Aber da mein Programm auch richtig funktioniert und das ein Coding Contest ist, an dem ich teilnehmen will und das mit meinen Ideen werde ich bei meiner Version bleiben xD

[EBFE]

Hier mal ein kleines Script um die KIs zu testen
zeigt
1) den nächsten möglichen Zug an
2) wieviele Gewinnchancen X bzw. O nach diesem Zug haben
Bsp:
x in der Mitte:

c:\xxostat>xxostats.exe "____X____"
x:1830, o:792, draw:576
o|_|_
_|x|_
_|_|_

x:2082, o:612, draw:576
_|o|_
_|x|_
_|_|_

x:1830, o:792, draw:576
_|_|o
_|x|_
_|_|_

x:2082, o:612, draw:576
_|_|_
o|x|_
_|_|_

x:2082, o:612, draw:576
_|_|_
_|x|o
_|_|_

x:1830, o:792, draw:576
_|_|_
_|x|_
o|_|_

x:2082, o:612, draw:576
_|_|_
_|x|_
_|o|_

x:1830, o:792, draw:576
_|_|_
_|x|_
_|_|o

gesamt:
x:15648, o:5616, draw:4608

die letzten 3 Felder frei:

C:\xxostat>xxostats.exe "xoxoox___"
x:0, o:1, draw:1
x|o|x
o|o|x
x|_|_

x:1, o:0, draw:1
x|o|x
o|o|x
_|x|_

x:1, o:0, draw:0
x|o|x
o|o|x
_|_|x

gesamt:
x:2, o:1, draw:2

erster Zug:

C:\xxostat>xxostats.exe "_________"
x:14652, o:7896, draw:5184
x|_|_
_|_|_
_|_|_

x:14232, o:10176, draw:5184
_|x|_
_|_|_
_|_|_

x:14652, o:7896, draw:5184
_|_|x
_|_|_
_|_|_

x:14232, o:10176, draw:5184
_|_|_
x|_|_
_|_|_

x:15648, o:5616, draw:4608
_|_|_
_|x|_
_|_|_

x:14232, o:10176, draw:5184
_|_|_
_|_|x
_|_|_

x:14652, o:7896, draw:5184
_|_|_
_|_|_
x|_|_

x:14232, o:10176, draw:5184
_|_|_
_|_|_
_|x|_

x:14652, o:7896, draw:5184
_|_|_
_|_|_
_|_|x

gesamt:
x:131184, o:77904, draw:46080

Nutzung:
entweder wie in Beispielen in der Konsole:
xxostats.exe "___FELD___" (Feld wie in der Aufgabe vorgegeben)
oder wer das Script selber ausführen möchte (und SWI Prolog installiert hat):

C:\xxostat>c:\programme\pl\bin\plcon.exe -s xxostats.pl "____X____"
(-s steht für Source) und anschließend in die Prologconsole

cmd.

eingeben (. =Punkt am Ende der Anweisung gehört dazu )
oder
C:\xxostat>c:\programme\pl\bin\plcon.exe -g cmd -s xxostats.pl "____X____"
(-g cmd steht für autmatische ausführung des Prädikats "cmd" nach dem Laden des Scripts).

Source (SWI Prolog):

:-use_module(library(lists)).

cmd:- current_prolog_flag(argv,Args),
             last(Args,Input),
             convert(Input,Board),
             whoami(Board,Player),
             get_stats(Player,Board,Stats),
             pretty_stats(Stats,(x:0,o:0,draw:0)),
             halt.

%konvertiert Argument zur Atomliste (=>bequemeres Arbeiten)
convert(Atom,List):- downcase_atom(Atom,Downcase),
                     atom_chars(Downcase,List).

get_stats(Player,Board,Stats):- findall((Move,Stat),(
                                        move(Player,Board,Move),
                                        stats(Player,Move,Stat)
                                        ),Stats).

stats(Player,Board,[Player]):-  winner(Board,Player),!.
stats(_,Board,[draw]):-         draw(Board),!.
stats(Player,Board,Stats):-     next_player(Player,Next),
                                findall(Stat,(
                                        move(Next,Board,Move),
                                        stats(Next,Move,Stat)
                                        ),Stats).

%prettyprint Board
pretty_print([]).
pretty_print([X,Y,Z|T]):- writeln(X|Y|Z),pretty_print(T),!.

pretty_stats([],(x:X,o:O,draw:D)):- writeln('gesamt:'),
                                    Xs is X,Os is O,Ds is D,
                                    writeln((x:Xs,o:Os,draw:Ds)),nl,!.

pretty_stats([(Board,Stats)|T],(x:Xs,o:Os,draw:Ds)):-
                        flatten(Stats,Flatlist),
                        count(x,Flatlist,X),
                        count(o,Flatlist,O),
                        count(draw,Flatlist,D),
                        writeln((x:X,o:O,draw:D)),
                        pretty_print(Board),!,nl,
                        pretty_stats(T,(x:X+Xs,o:O+Os,draw:D+Ds)),!.

                                  
%Spielzug
move(Player,['_'|Board],[Player|Board]).
move(Player,[Square|Board],[Square|NewBoard]):- move(Player,Board,NewBoard).

next_player(x,o).
next_player(o,x).

winner([Z,Z,Z|_],Z).                    %Horizontale Reihe
winner([_,_,_,  Z,Z,Z|_],Z).
winner([_,_,_,  _,_,_,  Z,Z,Z],Z).

winner([Z,_,_,  Z,_,_,  Z,_,_],Z).      %Vertikale Reihe
winner([_,Z,_,  _,Z,_,  _,Z,_],Z).
winner([_,_,Z,  _,_,Z,  _,_,Z],Z).

winner([_,_,Z,  _,Z,_,  Z,_,_],Z).      %Diagonal
winner([Z,_,_,  _,Z,_,  _,_,Z],Z).

draw(Board):-  \+memberchk('_',Board).    %unentschieden: alle Felder besetzt

whoami(Board,o):-  count(x,Board,Xs),   %stellt fest, wer am Zug ist
                   count(o,Board,Os),
                   Xs>Os,!.
whoami(_,x).

count(Element,List,Count):- intersection(List,[Element],Elements),
                            length(Elements,Count).

oder
NoPaste - EBFE @ 19.04.10 2:40:45 [prolog] (war der erste Googletreffer für NoPaste mit Prolog Syntaxhighlighting)
Compilierte Binary:
http://ebfe.de.vu/diverses/xxostat.zip

PS: es braucht bei einem leeren Feld ein paar Sekunden Zeit, bis die Statistik fertig ist (es ist halt unoptimiertes Prolog und kein C - dafür dürften die C-ler bei der Entwicklungszeit so richtig vor Neid erblassen . Hier wurde im Bot die KI einfach durch einen "Statistikauszähler" ersetzt und ein PrettyPrinter für die hübsche Ausgabe der Spielzüge/Statistik hinzugefügt.)

[krypt0n]

Kann Brainfuck bzw. Ook! überhaupt argv Parameter aufnehmen? Ich denke, die Sprachen können nur von der späteren Tastatureingabe lesen?

Jemand hat mich deswegen angeschrieben und ich habe ihm zugesichert, dass ich für esoterische Sprachen auch gerne Ausnahmen mache bei der Parameterübergabe und das Testscript auf ihre Möglichkeiten anpasse - natürlich nur aus Spass und Respekt, dass sich jemand wirklich so einen Aufwand macht.