Einzelnen Beitrag anzeigen

Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#1

Yet Another BraynFack

  Alt 24. Jan 2010, 08:43
Herrlich =)

Zu den Sourcen gibt es nicht viel zu sagen. Falls es Fragen gibt, dann stellt sie mir hier.

Delphi-Quellcode:
// Wie-ist-es-zu-benutzen-demo...
program BF;

{$APPTYPE CONSOLE}

uses
  uBraynFack;

var
  BFInterpreter : TBraynFackInterpreter;
  BFCode, BFStdIn : String;

begin
  BFInterpreter := TBraynFackInterpreter.Create();
  try
    Writeln( '[Brainfuck-code]' );
    Readln( BFCode );
    Writeln;
    Writeln( '[Brainfuck-stdin ("," will use it as source)]' );
    Readln( BFStdIn );
    Writeln;
    WritelN( BFInterpreter.Interpret( BFCode, pChar( BFStdIn ), Length( BFStdIn ) ) );
  finally
    BFInterpreter.Free();
  end;
  Readln;
end.
MfG
Angehängte Dateien
Dateityp: pas ubraynfack_191.pas (7,9 KB, 22x aufgerufen)
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat