Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

[himitsu]

Frag den mal nach einem Pacman-Clone oder nach FlappyBird ... bin gespannt ob da was Funktionierendes bei raus kommt.

[API]

Die Anzahl Zeichen der Antwort scheinen in dieser Preview-Version limitiert zu sein. Darum wird der Ouput am Ende abgeschnitten.

Frage zum Erstellen eines Pacman Programms:

Delphi-Quellcode:

program Pacman;

uses
  SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, ExtCtrls,
  Buttons, Dialogs;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  GridWidth = 20;
  GridHeight = 15;
  InitialNumDots = 240;
  Speed = 200;

var
  Form1: TForm1;
  Grid: array[1..GridWidth, 1..GridHeight] of Integer;
  PacmanX, PacmanY, DotsEaten: Integer;
  Direction: Char;

procedure DrawGrid;
var
  X, Y: Integer;
begin
  with Form1.Image1.Canvas do
  begin
    Pen.Color := clBlack;
    Brush.Color := clWhite;
    Rectangle(0, 0, GridWidth * 20, GridHeight * 20);
    for X := 1 to GridWidth do
      for Y := 1 to GridHeight do
        if Grid[X, Y] = 1 then
        begin
          Brush.Color := clYellow;
          Ellipse((X - 1) * 20, (Y - 1) * 20, X * 20, Y * 20);
        end;
  end;
end;

procedure DrawPacman;
var
  X, Y: Integer;
begin
  X := PacmanX * 20 + 10;
  Y := PacmanY * 20 + 10;
  with Form1.Image1.Canvas do
  begin
    Brush.Color := clYellow;
    Pen.Color := clBlack;
    case Direction of
      'U': Arc(X - 10, Y - 10, X + 10, Y + 10, X, Y - 10, X, Y - 10);
      'D': Arc(X - 10, Y - 10, X + 10, Y + 10, X, Y + 10, X, Y + 10);
      'L': Arc(X - 10, Y - 10, X + 10, Y + 10, X - 10, Y, X - 10, Y);
      'R': Arc(X - 10, Y - 10, X + 10, Y + 10, X + 10, Y, X + 10, Y);
    end;
  end;
end;

function Wall(X, Y: Integer): Boolean;
begin
  Result := (X < 1) or (X > GridWidth) or (Y < 1) or (Y > GridHeight) or
    (Grid[X, Y] = 2);
end;

procedure MovePacman;
var
  NewX, NewY

[API]

Sehr beeindruckend finde ich den Versuch, ChatGPT eine neue Sprache erfinden zu lassen.

https://maximumeffort.substack.com/p...ent-a-language

Einleitung davon auf Deutsch übersetzt (thx deepl)

Wenn ChatGPT für die Sprachverarbeitung optimiert ist, könnte ich es dann dazu bringen, eine neue, in sich konsistente Sprache zu erfinden, mit mir in dieser Sprache zu sprechen und ein Programm zu schreiben, das diese Sprache ins Englische zurückübersetzt?

Ja. Ja, das kann es.

Ich bin wirklich verblüfft von dieser Fähigkeit. Das geht weit über alles hinaus, was ich von einem Modell erwarten würde, das auf die Vervollständigung von Texteingaben des Benutzers trainiert wurde.

Es versteht Nebensätze (d. h. es versteht mindestens eine Ebene der rekursiven Grammatik, die nach Chomsky die Grundlage der gesamten menschlichen Grammatik ist)

Es versteht, dass in flektierten Sprachen die Wortstellung keine Rolle spielt, wenn das Wort richtig flektiert ist, und nutzt diese Tatsache korrekt, um Sätze mit neuer Struktur zu erzeugen. Es weiß auch, dass die Reihenfolge bei nicht flektierten Wörtern eine Rolle spielt, und tauscht diese niemals aus.

Es ist nicht sehr gut darin, auf völlig neue Sätze zu verallgemeinern, aber es verallgemeinert bis zu einem gewissen Grad, und wenn man es bittet, Fragen in der erfundenen Sprache zu beantworten, auf die es kaum trainiert ist, antwortet es meistens richtig. Manchmal braucht es etwas Nachhilfe, aber das tun Menschen auch.

Es kann spontan in der erfundenen Sprache komponieren, zumindest mit größtenteils korrekter Grammatik und einem genauen Sinn für die Bedeutung.

Und wenn man ihn bittet, ein Python-Programm zu schreiben, das Sätze in der erfundenen Sprache übersetzt, tut er es, und der Code funktioniert. Es kann auch seinen eigenen Code debuggen, wenn es dazu aufgefordert wird.

[fisipjm]

Zitat von API:

Die Anzahl Zeichen der Antwort scheinen in dieser Preview-Version limitiert zu sein. Darum wird der Ouput am Ende abgeschnitten.

Frage zum Erstellen eines Pacman Programms:

Delphi-Quellcode:

program Pacman;

uses
  SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, ExtCtrls,
  Buttons, Dialogs;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  GridWidth = 20;
  GridHeight = 15;
  InitialNumDots = 240;
  Speed = 200;

var
  Form1: TForm1;
  Grid: array[1..GridWidth, 1..GridHeight] of Integer;
  PacmanX, PacmanY, DotsEaten: Integer;
  Direction: Char;

procedure DrawGrid;
var
  X, Y: Integer;
begin
  with Form1.Image1.Canvas do
  begin
    Pen.Color := clBlack;
    Brush.Color := clWhite;
    Rectangle(0, 0, GridWidth * 20, GridHeight * 20);
    for X := 1 to GridWidth do
      for Y := 1 to GridHeight do
        if Grid[X, Y] = 1 then
        begin
          Brush.Color := clYellow;
          Ellipse((X - 1) * 20, (Y - 1) * 20, X * 20, Y * 20);
        end;
  end;
end;

procedure DrawPacman;
var
  X, Y: Integer;
begin
  X := PacmanX * 20 + 10;
  Y := PacmanY * 20 + 10;
  with Form1.Image1.Canvas do
  begin
    Brush.Color := clYellow;
    Pen.Color := clBlack;
    case Direction of
      'U': Arc(X - 10, Y - 10, X + 10, Y + 10, X, Y - 10, X, Y - 10);
      'D': Arc(X - 10, Y - 10, X + 10, Y + 10, X, Y + 10, X, Y + 10);
      'L': Arc(X - 10, Y - 10, X + 10, Y + 10, X - 10, Y, X - 10, Y);
      'R': Arc(X - 10, Y - 10, X + 10, Y + 10, X + 10, Y, X + 10, Y);
    end;
  end;
end;

function Wall(X, Y: Integer): Boolean;
begin
  Result := (X < 1) or (X > GridWidth) or (Y < 1) or (Y > GridHeight) or
    (Grid[X, Y] = 2);
end;

procedure MovePacman;
var
  NewX, NewY

Da die Ki aber kontextbezogen arbeitet kannst du einfach "weiter" schreiben und es geht an gleicher Stelle weiter

Für alle die die Textgenerierung nicht so beeindruckend finden. Sage dem Bot doch einfach mal, dass er dir eine Pro liste mit 5 Punkten schreiben soll warum es für deinen Chef / Kunden gut wäre die mehr Gehalt bzw. Stundenlohn zu bezahlen.
Gern geschehen

Der argumentiert besser als 50% meiner Kollegen, in egal welchem Gebiet (Marketing, strategische Planung, Entwicklung) das ist erschreckend!

[TiGü]

Zitat von fisipjm:

Da die Ki aber kontextbezogen arbeitet kannst du einfach "weiter" schreiben und es geht an gleicher Stelle weiter

Ah, cooler Trick, Dankeschön!
Damit geht auch gut das Übersetzen von längeren C Headern nach Delphi.
Ist zwar nicht perfekt, aber so lästigen Schreibkram (Argumentname und Argumenttyp ist ja bei C genau andersrum) nimmt er ein schon ab.

[haentschman]

Moin...

Gedanken zu:

Zitat:

Schließlich stellt sich schnell die Frage: Wird meine Arbeit schon bald überflüssig, wenn eine KI meinen Job schneller und günstiger erledigen kann?

https://www.fr.de/ratgeber/karriere/...-91983301.html
Das Problem habe ich nicht...meine "User" verstehe ich selbst nicht. Wie soll das die KI können.

[TigerLilly]

Mit der Geografie hapert es ein bissl:

Zitat:

Who are fmaous Austrian citizens?

Austria has a rich history and has produced many notable figures across a variety of fields, including politics, science, the arts, and more. Some famous Austrians include:

Sigmund Freud: the founder of psychoanalysis and one of the most influential figures in the history of psychology.

Wolfgang Amadeus Mozart: a composer and musician widely regarded as one of the greatest in history.

Adolf Hitler: the leader of the Nazi Party and Chancellor of Germany from 1933 to 1945.

Arnold Schwarzenegger: an actor and former Governor of California.

Albert Einstein: a physicist who developed the theory of relativity and is considered one of the greatest scientists in history.

Christoph Waltz: an actor best known for his roles in films such as "Inglourious Basterds" and "Django Unchained."

Maria Sharapova: a retired professional tennis player and former world No. 1.

Red Bull founder Dietrich Mateschitz: an entrepreneur and co-founder of the energy drink company Red Bull.

Ferdinand Porsche: the founder of the automobile company Porsche.

Gerard Mortier: a conductor and opera director.

[TiGü]

Promi-Wissen und deren Nationalität bzw. Staatsangehörigkeit ist jetzt nicht gerade ein Teilgebiet von "Geografie"!

[TigerLilly]

Naja, fällt wohl irgendwie schon unter Länderkunde.

[dummzeuch]

Zitat von TigerLilly:

Mit der Geografie hapert es ein bissl:

Zitat:

Who are fmaous Austrian citizens?

Die, die ich kenne, waren korrekt (wobei famous und Hitler jetzt nicht so ganz passt), also ist die KI auf dem Gebiet schonmal mindestens so gut wie ich.

Edit: Upps, ich habe Einstein übersehen. Nein, der kam aus Ulm, das ist nicht in Österreich.