Deutsches Lazarusforum

So, hab es nun geschafft das Treepruning mit rein zu bekommen:


======================
= Running benchmarks =
======================
Benchmarking imperative memoized C++ ...: 0.029000
Benchmarking imperative C++ ...: 0.045000
Benchmarking imperative C ...: 0.045000
Benchmarking imperative ...

*g*,
@warf, Ich stimme dir zu und mir ist das sehr wohl bewusst, ich versuche solche und andere Themen ja auch in meinem Research Repository zu betrachten.

Aber wenn ich so ein Projekt sehe, wo man alle möglichen verrückten Sprachen einbaut und fleißig vergleicht und dann FPC so einfach mit auf die ...

Sodale, mal ein klein wenig wibe coding betrieben..
Der code ist nicht mehr wieder zu erkennen, aber:


Benchmarking imperative memoized C++ ...: 0.029000
Benchmarking imperative C++ ...: 0.045000
Benchmarking imperative C ...: 0.045000
Benchmarking imperative FreePascal ...: 0.065000


Differenz ...

*g*,
ich war noch damit beschäftigt ein Testsystem mit auf zu setzen, dass mir nun hilft ;)

Ifthen ist nu raus und deine Änderung:


Function ScoreBoard(Const scores: TBoard): Integer;
Var
counters: Array[0..8] Of Integer;
x, y, score, idx: Integer;
scoresYPointer: PInteger;
Begin
FillChar ...

Weil es nicht mehr wirklich zu diesem Thread gehört hab ich mal einen Follow up gestartet siehe hier

Servus zusammen,
getriggert durch diesen Thread im Forum. Habe ich mir mal den Spass gemacht und die "Vorarbeiten" geleistet.

Sprich, das Original Projekt geclont, und die playSimpel, sowie die play variante nach python3 portieren lassen (Chat GPT sei dank), des weiteren habe ich mal die C Version ...

Komisch,
wenn man das Spiel gewinnt, dann passiert nichts ...

Laut Source sollte da eine Meldung kommen.

Auch musste ich Ausdrücke wie
score -= scores[y][x - 3];
zu
score := score - scores[y][x - 3];
umschreiben, du hast da wohl eine Einstellung Aktive die nicht by Default aktiv ist ..

by ...

struct test_struct_t {
unsigned Field1Bit: 1;
unsigned Field2Bit: 2;
unsigned Field6Bit: 6;
}
Die geht, sogar ohne Kopfrechnen.
type
TTestRec = bitpacked record
Field1Bit: 1 shl 1 - 1;
Field2Bit: 3 shl 3 -1;
Field6Bit:6 shl 6 - 1;
end;



Sry, aber was du da gepostet hast ist nicht ...

Ah du meinst weil die Kommentare von Präprozessor sachen abhängen, ja die Auf zu lösen war das was mein h2pas auch so kompliziert gemacht hat, wenns nur um "löschen" von Kommentaren geht, reicht ggf schon meine uncommenter.pas

Bei h2pas ensteht eine gewisse Hassliebe. Man muss die Maken des Tools kennen, das ist es recht praktisch. Ich wollte mal reingucken, ob man es verbessern könnte, aber der Code ist total unübersichtlich. Ich hätte nie gedacht, das die so komplex sei.


Ich habe auch eine eigene h2pas variante ...

*g* passend zum Thema habe ich gestern meinen Artikel FPC_and_others veröffentlicht, in dem ich hoffentlich verständlich Zeige wie man C Quellen mit FreePascal verbinden kann, ggf ist das was für dich. Im Kern sehe ich das aber wie Theo, h2pas ist nur der Start, dann must du von Hand ran ...

Warning: linker: /usr/bin/ld: -lstdc++ kann nicht gefunden werden: Datei oder Verzeichnis nicht gefunden

Da werd ich morgen mal schauen was ich da noch installieren muss oder ob ich einen Symlink erzeugen muss. Habe Heute leider keine Zeit mehr.



Ui wenn du das alles weist, bitte einen Ping ...

Guten Morgen,
das ich von Hand ran muss ist mir schon klar. Mir ging es darum Tipp's zu bekommen wie ich h2pas am besten füttere und einstelle.

@corpsman:
Habe deinen Artikel eben gelesen. Sehr interessant für mich. Ich habe auch versucht deinen Code zu kompilieren. Leider passiert folgendes wenn ...

Danke für die vielen Inputs, von InstantFPC hatte ich schon mal gehört es aber leider wieder aus dem Focus verloren, ich denke das werde ich Zeitnah ändern

*g* passend zum Thema habe ich gestern meinen Artikel FPC_and_others veröffentlicht, in dem ich hoffentlich verständlich Zeige wie man C Quellen mit FreePascal verbinden kann, ggf ist das was für dich. Im Kern sehe ich das aber wie Theo, h2pas ist nur der Start, dann must du von Hand ran..