Autor |
Beitrag |
jfheins
Beiträge: 918
Erhaltene Danke: 158
Win 10
VS 2013, VS2015
|
Verfasst: Mo 08.12.08 10:15
Woran ihr alle zuerst denkt ...
Mein erster Gedanke war, dass i = 0 und j = 1 ist und das ganze also ne Kodierung ... kam dann aber nur Murks raus ^^
2. Ansatz war Morsecode (i=kurz, j=lang) aber das war dann irgendwie auch nicht richtig
Dann hab ich nochmal die Tipps angeguckt, und dan klingelte es bei Esotherik ... erstmla Whitespace angeguckt und dann Brainfuck. Dann gesehen dass die ganzen Tipps darauf passten und voilá ...
Dann war noch der Bsp.-Quelltext aus Wikipedia hilfreich, um die Symbole zuzuordnen
Mal schauen wie weit ich beim 2. komme
|
|
baka0815
Beiträge: 489
Erhaltene Danke: 14
Win 10, Win 8, Debian GNU/Linux
Delphi 10.1 Berlin, Java, C#
|
Verfasst: Mo 08.12.08 10:19
Ich hatte mir schon immer vor genommen, einen Brainfuck-Interpreter zu basteln und nu hab' ich 'nen Brainfuck-, Ook!- und Miau-Interpreter gebastelt, allerdings in Java.
Fand den Text allerdings auch nicht gerade einfach zu lesen.
|
|
GTA-Place
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Mo 08.12.08 10:22
@Tilo: Das wäre ein komischer Rap xD Mir - als Fan von I can has Cheezburger? - war natürlich sofort klar, was das ist
_________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
Zuletzt bearbeitet von GTA-Place am Mo 08.12.08 10:30, insgesamt 1-mal bearbeitet
|
|
jaenicke
Beiträge: 19285
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 08.12.08 10:25
Sylvus hat folgendes geschrieben : | warum schreibt ihr alle Programme o.O Ich hab OpenOffice Suchen&Ersetzten benutzt |
Ich habe ja in der SB auch geschrieben, dass es jemand ohne besondere PC-Kenntnisse geschafft hat.
Aber hallo, wir sind Programmierer! Da ersetze ich doch nicht manuell .
jfheins hat folgendes geschrieben : | Woran ihr alle zuerst denkt ... |
Daran gedacht hab ich fast sofort, aber dann dachte ich, nein, das wirds nicht sein. Weil ich zuerst den Aufwand dabei überschätzt habe.
Aber nach dem ersten Tipp war es ja klar, dass es doch Brainfuck war und ich habe schnell erstmal nen Übersetzer zu BF gebastelt. Der hatte nen Ein- und Ausgabememo und zwei Memos, in denen ich die zu ersetzenden Miaus und BF-Symbole nebeneinanderschreiben konnte. Nach zwei Versuchen (ich habe mich auch am Wikipedia Beispiel orientiert, das ich ja auch vorher schon kannte) wars dann auch richtig. (Ich hatte mir nen Interpreter heruntergeladen.)
Aber nachdem ich die Lösung abgeschickt hatte hab ich dann noch kurz das Programm geschrieben, was ich oben angehängt habe .
|
|
Xentar
Beiträge: 2077
Erhaltene Danke: 2
Win XP
Delphi 5 Ent., Delphi 2007 Prof
|
Verfasst: Mo 08.12.08 11:10
jfheins hat folgendes geschrieben : | Mein erster Gedanke war, dass i = 0 und j = 1 ist und das ganze also ne Kodierung ... kam dann aber nur Murks raus ^^ |
Daran hatte ich auch zuerst gedacht
Habs aber nicht erstmal nicht weiter verfolgt, weil mir das etwas merkwürdig vorkam, und ich nicht so viel Zeit zum ausprobieren hatte.
Nach dem ersten Tipp hab ich mich dann nochmal rangesetzt, und etwas nachgedacht, und dann kam mir der Geistesblitz mit der Sprache "Ook Ook".
Hab mir dann zwar auch erst gedacht "Verdammt, das machen die nicht wirklich, oder?", aber als dann eine Geschichte rausfiel, war ich mir sicher "ja doch, könnte doch sein". Musste die dann aber noch zweimal lesen, um sicher zu gehen, dass sich da nichts reimt oder wie ein Lied klingt
_________________ PROGRAMMER: A device for converting coffee into software.
|
|
SAiBOT
Beiträge: 323
Erhaltene Danke: 5
XP SP2; 7
D7; D2009
|
Verfasst: Mo 08.12.08 11:42
Mich würde mal Interresieren wieviele richtige Antworten dabei waren =).
_________________ Debuggers don't remove bugs, they only show them in slow-motion.
|
|
jaenicke
Beiträge: 19285
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 08.12.08 12:07
Hmm, ich tippe mal 47 , nein, im Ernst: Es werden schon einige gewesen sein .
Mal schauen wie viele Progrämmchen hier noch gepostet werden.
|
|
beshig
Beiträge: 110
Erhaltene Danke: 1
WIN 2000, WIN XP, WIN 2003, Debian Linux
Delphi 7 Personal, Delphi 2005 Personal
|
Verfasst: Mo 08.12.08 13:07
_________________ Was ist ein Moderatorenteam in einem recht bekannten Programmierer-Forum ? Viele Meinungen, eine zählt - Mehr ist ja auch nicht notwendig...
|
|
jaenicke
Beiträge: 19285
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 08.12.08 13:11
Naja, aber wenn man nicht gerade auf Anhieb alle Symbole richtig zugeordnet hat (ich hatte wie bereits geschrieben zwei Fehlversuche, wo ich noch kurz was austauschen musste), dann lohnen sich die 3 Minuten für das Programm allemal.
Mein ursprüngliches sah ja auch nur so aus, das waren inkl. Start von Delphi vielleicht 5 Minuten: Delphi-Quelltext 1: 2: 3: 4: 5: 6:
| var i: Integer; begin memOutput.Text := memInput.Text; for i := 0 to memInCode.Lines.Count - 1 do memOutput.Text := StringReplace(memOutput.Text, memInCode.Lines[i], memOutCode.Lines[i], [rfReplaceAll]); |
|
|
Heiko
Beiträge: 3169
Erhaltene Danke: 11
|
Verfasst: Mo 08.12.08 13:56
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Mo 08.12.08 14:41
Ich hab mir nur vorigen Montag kurz die Aufgabe durchgelesen und dann erstmal beiseite gelegt, da ich noch was andres zu tun hatte ... Dienstag noch mal wieder angeschaut, da war dann schon der erste Tipp raus, aber erstmal keine Idee gehabt. Ne Nacht drüber geschlafen und siehe da: Geistesblitz gehabt, kurz umgesetzt und dann mit Martoks BF-IDE kurz den BF-Code interpretiert ...
Zu meinem Kommentar in der SB (von Klabautermann entfernt), dass etwas mehr Format günstig gewesen wäre: Das beruhte darauf, dass Notepad mit langen Zeilen absolute Probleme hat und daher das Ersetzen immer ewigkeiten gedauert hat ...
Ansonsten fand ich auch das erste Rätsel interessanter, als das zweite jetzt Muss nur noch ankreuzen und absenden ...
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
jaenicke
Beiträge: 19285
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 08.12.08 14:44
BenBE hat folgendes geschrieben : | Zu meinem Kommentar in der SB (von Klabautermann entfernt), dass etwas mehr Format günstig gewesen wäre: Das beruhte darauf, dass Notepad mit langen Zeilen absolute Probleme hat und daher das Ersetzen immer ewigkeiten gedauert hat ... |
Und meine bestätigende Antwort war darauf bezogen, dass Delphi automatisch die Zeilen umgebrochen hat, wenn ich es zur Designzeit eingefügt habe. Und dabei leider die Miaus kaputtgemacht hat, was ich dann manuell korrigieren musste.
(Für das hier vorgestellte Programm, bei meinem ersten Dreizeiler hab ichs sowieso zur Laufzeit eingefügt.)
|
|
Boldar
Beiträge: 1555
Erhaltene Danke: 70
Win7 Enterprise 64bit, Win XP SP2
Turbo Delphi
|
Verfasst: Mo 08.12.08 14:46
Also ich hab mit autoit alle combinationen Im Texteditor durchprobiert...
|
|
jaenicke
Beiträge: 19285
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 08.12.08 14:49
Das war ja gar nicht nötig, die beiden einzelnen Miaus mussten die Schleife sein, die Reihenfolge war auch klar, die Zeichen am Anfang waren auch klar, dazu noch die Zeichen neben den Schleifenzeichen, damit hatte ich fast alles. Dann noch zwei falsche Ersetzungen austauschen und es war fertig.
Dadurch, dass ich dafür einfach nur in einem Memo die Ersetzungen vertauschen musste mit dem oben geposteten Dreizeiler ging das sehr sehr schnell.
|
|
beshig
Beiträge: 110
Erhaltene Danke: 1
WIN 2000, WIN XP, WIN 2003, Debian Linux
Delphi 7 Personal, Delphi 2005 Personal
|
Verfasst: Mo 08.12.08 15:53
Ich hatte bisher auch noch nicht mit Brainfuck viel zu tun
Hab mir einfach bei der Wiki Beispiel-Sources angeschaut, und dann nach eigenem Gutdüngen dort die Ersetzungen vorgenommen.
_________________ Was ist ein Moderatorenteam in einem recht bekannten Programmierer-Forum ? Viele Meinungen, eine zählt - Mehr ist ja auch nicht notwendig...
|
|
baka0815
Beiträge: 489
Erhaltene Danke: 14
Win 10, Win 8, Debian GNU/Linux
Delphi 10.1 Berlin, Java, C#
|
Verfasst: Mo 08.12.08 16:04
BenBE hat folgendes geschrieben : | Zu meinem Kommentar in der SB (von Klabautermann entfernt), dass etwas mehr Format günstig gewesen wäre: Das beruhte darauf, dass Notepad mit langen Zeilen absolute Probleme hat und daher das Ersetzen immer ewigkeiten gedauert hat ... |
Notepad2 hat den Text auch nicht richtig darstellen können und irgendwann angefangen, die Miaus übereinander zu schreiben.
Hab's dann zu Hause mit Linux gemacht, der Texteditor von GNOME (gedit) hatte mit der Datei keine Probleme.
|
|
Nersgatt
Beiträge: 1581
Erhaltene Danke: 279
Delphi 10 Seattle Prof.
|
Verfasst: Mo 08.12.08 16:06
baka0815 hat folgendes geschrieben : | Notepad2 hat den Text auch nicht richtig darstellen können und irgendwann angefangen, die Miaus übereinander zu schreiben. |
Ich hatte mit Notepad2 keine Probleme, die Datei richtig anzuzeigen. Ich habe meine ersten Suchen&Ersetzen-Versuche auch mit Notepad2 gemacht, und ich bin zur richtigen Lösung gekommen
Gruß,
Jens
|
|
baka0815
Beiträge: 489
Erhaltene Danke: 14
Win 10, Win 8, Debian GNU/Linux
Delphi 10.1 Berlin, Java, C#
|
Verfasst: Mo 08.12.08 16:12
|
|
beshig
Beiträge: 110
Erhaltene Danke: 1
WIN 2000, WIN XP, WIN 2003, Debian Linux
Delphi 7 Personal, Delphi 2005 Personal
|
Verfasst: Mo 08.12.08 16:13
Hat zufällig irgendjemand Plan, wann das Gewinnspiel ausgewertet wird ?
_________________ Was ist ein Moderatorenteam in einem recht bekannten Programmierer-Forum ? Viele Meinungen, eine zählt - Mehr ist ja auch nicht notwendig...
|
|
jaenicke
Beiträge: 19285
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 08.12.08 16:15
Heute irgendwann wurde gesagt, wann genau wirst du ja merken .
|
|
|