Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.116 Beiträge
 
Delphi 12 Athens
 
#4

Re: HQ9+fuck Interpreter

  Alt 20. Jan 2010, 17:40
Ich würde dir mal was empfehlen.
Wie schon gesagt, sind die "Standard"-BF-Interpreter 8-bitig.

In dem Anhang steckt unter anderem auch noch dein Win32-Interpreter (hq9pf.exe).

An den Beispielen wirst du aber sehn, daß besser wäre, wenn du eventuell die Speichergröße einstellbar machen würdest.
z.B. über einen Parameter nach dem Dateinamen, wo man 8, 16 oder 32 Bit aussuchen könnte.
(8 als Standard, wenn kein Parameter angegeben ist)

Ist auch nicht schwer, du brauchst ja einfach nur nach dem Inc/Dec einer Speicherzelle
bei 8 Bit ein "and $FF" und bei 16 Bit ein "and $FFFF" auf die veränderte Speicherzelle anwenden.


im Anhang:
Hello World die BF-Version
99 Bottles, ebenso in BF
Fibonacci - was da für Werte rauskommen, da wird selbst Delphi neidisch
Game of Life - erinnert mich zwar mehr an Bingo oder TicTacToe ... hauptsache der Source ist hübsch
Mandelbrot - ja, hier wird ein kleines Mandelbrotbildchen errechnet
Pi (16 bit) - errechnet die ersten 10 Stellen von PI
in einem 8 Bit-Interpreter rechnet es falsch
bei einem 16 Bit-Interpreter wird richtig gerechnet
bei einem 32 Bit-Interpreter rechnet es soooo lange, da will bestimm keiner auf die erste Zahl warten

Sierpinski Triangle - nichts Weltbewegendes, aber schaut euch mal Code und Ergebnis an,
also das Nenn ich mal 'nen wunderhübschen Quellcode

und dann gibt's noch jede Menge Batchfiles, welche jeweils FAlters Interpreter starten.

[add]
hier mal der Quellcode des Sierpinski-Dreiecks:
Code:
[ This program prints Sierpinski triangle on 80-column display. ]
                                >  
                               + +   
                              +   +   
                             [ < + +   
                            +       +   
                           + +     + +   
                          >  -   ]  >  
                         + + + + + + + +   
                        [               >  
                       + +             + +   
                      <  -           ]  >  
                     > + + >        > > + >  
                    >      >      +       <  
                   < <    < <    < <    < <  
                  <  [   -   [   -   >  +   <  
                 ] > [ - < + > > > . < < ] > > >  
                [                               [   
               - >                            + +   
              +   +                           +   +   
             + + [ >                        + + + +   
            <      -                       ]      >  
           . <    < [                     - >    + <  
          ]  +   >  [                   -   >  +   +   
         + + + + + + + +                 < < + > ] > . [   
        -               ]              >              ]  
       ] +             < <            < [             - [   
      -   >          +   <          ]  +           >  [   
     - < + >        > > - [         - > + <        ] + + >  
    [       -       <      -       >      ]      <      <  
   < ]    < <    < <    ] +     + +     + +     + +     + +   
  +   .  +   +   +   .  [   -   ]  <  ]  +   +   +   +   +   
 * * * * * M a d e * B y : * N Y Y R I K K I * 2 0 0 2 * * * * *
Angehängte Dateien
Dateityp: zip demos_472.zip (284,8 KB, 18x aufgerufen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat