Brainfuck für Orang-Utans

[Frogger]

http://de.wikipedia.org/wiki/Ook%21

wer es lernen möchte...

[Xaby]

Ich glaube, ich muss mal an Wiki schreiben, dass die zugespamt werden.
Da biste doch besser dran, wenn du Nullen und einsen benutzt.

Ich find den Satz cool:

... und damit bald mehr Ook!-Interpreter als Ook!-Programme

Ich glaube ja, dass ein "Hallo Welt"-Beispiel in der Affensprache eher nur ein einziges "Uhag" ist. Aber das scheint dem Autor auch egal zu sein.

Dinge, die die Welt nicht braucht. Sollten lieber an meiner Sprache arbeiten, damit mein Computer-Mensch-Kontakter endlich fertig wird.


>> Na, da werd ich wohl mich doch ransetzen und meine eigene Sprache entwickeln. Im Mülleimer lesen die Leute ja leider nicht so viel. Sonst wäre sie sicherlich schon lägst Standard

Wie findest du ruby?
http://de.wikipedia.org/wiki/Ruby_%28Pr ... sprache%29

[D@nte]

Ich weiß ja nicht, ich weiß ja nicht...
Also entweder bin ich grad dümmer als nen Orang-Utan oder der Author hät sich mit seinem "Hello World" ruhig mehr Mühe geben sollen...

Code: Alles auswählen

;Ook. Ook. 	+ 	den Wert der aktuellen Zelle um 1 erhöhen
;Ook! Ook! 	- 	den Wert der aktuellen Zelle um 1 verringern
;Ook. Ook? 	> 	eine Zelle nach rechts gehen
;Ook? Ook. 	< 	eine Zelle nach links gehen
;Ook! Ook? 	[ 	Schleifenanfang - die Schleife durchlaufen solange der Wert der aktuellen Zelle ungleich 0 ist
;Ook? Ook! 	] 	Schleifenende - beendet die Schleife, wenn der Wert der aktuellen Zelle ungleich 0 ist
;Ook! Ook. 	. 	den Wert der aktuellen Zelle ausdrucken
;Ook. Ook! 	, 	einen Wert von der Tastatur in die aktuelle Zelle einlesen

;Dies ist ein Beispiel, wie man in Ook! programmiert. Es gibt Hello World auf der Standardausgabe aus.

Define temp.s  = ""
Define esac = 0, k = 0

Dim Result(k)
Dim String.s(18)

String(0)   = "Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. "
String(1)   = "Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. "
String(2)   = "Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. "
String(3)   = "Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. "
String(4)   = "Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? "
String(5)   = "Ook! Ook! Ook? Ook! Ook? Ook. Ook. Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook. "
String(6)   = "Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook. Ook! Ook. Ook. Ook. Ook. Ook. "
String(7)   = "Ook. Ook. Ook! Ook. Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. "
String(8)   = "Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. "
String(9)   = "Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. Ook! Ook. "
String(10)  = "Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. "
String(11)  = "Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. "
String(12)  = "Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. "
String(13)  = "Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook. "
String(14)  = "Ook? Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook. "
String(15)  = "Ook! Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook. "
String(16)  = "Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! "
String(17)  = "Ook! Ook. Ook. Ook? Ook. Ook? Ook. Ook. Ook! Ook. "

For i = 0 To 17
  For j = 0 To Len(String(i))/10-1
    temp = Mid(String(i), j*10+1, 10)
    temp = ReplaceString(temp, "Ook", "")
    temp = ReplaceString(temp, " ", "")
;    Debug temp
    If temp = ".."
      esac = 0
;      Debug "+"
    ElseIf temp = "!!"
      esac = 1
;      Debug "-"
    ElseIf temp = ".?"
      esac = 2
;      Debug ">"
    ElseIf temp = "?."
      esac = 3
;      Debug "<"
    ElseIf temp = "!?"
      esac = 4
;      Debug "["
    ElseIf temp = "?!"
      esac = 5
;      Debug "]"
    ElseIf temp = "!."
      esac = 6
;      Debug "."
    ElseIf temp = ".!"
      esac = 7
;      Debug ","
    EndIf
    Select esac

      Case 0
        Result(k) + 1
        Debug "Case 2:" + Str(Result(k) + 1)

      Case 1
        Result(k) - 1

      Case 2
        k + 1
        ReDim Result(k)
        Result(k) = 0;87;65
        ;Debug k

      Case 3
        k - 1

      Case 4

      Case 5

      Case 6
        Debug Chr(Result(k))

      Case 7

    EndSelect
  Next j
Next i

[DarkDragon]

Gibt noch viel mehr von dem Quatsch:

http://de.wikipedia.org/wiki/Kategorie: ... iersprache

http://de.wikipedia.org/wiki/Esoterisch ... iersprache

[Xaby]

Alter Schalter:

http://de.wikipedia.org/wiki/Hello_World

Ich finde, ich muss mich ran halten, dass meine Sprache noch unter die ersten drei Millionen kommt


>>>>>>>>
HQ9+

Zweck der Sprache ist vor allem das einfache Schreiben von Hallo-Welt-Programmen.

Code: Alles auswählen

H

Also ich weiß nicht.
Da kann man ja jedes Programm mit erlaubter Parameterübergabe als eigene Sprache bezeichen.

[Zaphod]

Wenn du dafür auch Parser und Interpreter oder Compiler schreibst hast du damit sogar recht. HQ9+ ist natürlich nur ein Scherz, aber auch die Programmiersprachen haben ihren Ursprung nun mal in der Mathematik und da ist auch ein unvollständiges Berechnungsmodell immer noch ein Berechnungsmodell.
Es gibt auch durchaus ernst gemeinte Berechnungsmodelle die weder sehr praktisch noch vollständig sind. Das liegt ganz einfach auch daran, dass auch die Programmiersprachen nicht "Gott hat mit den Fingern geschnippt" einfach da waren... da hat man lange drüber nachdenken müssen.

[FloHimself]

=>LOLCODE

Code: Alles auswählen

HAI

BTW HUGSTIME? is system functions for determining hugs time
CAN HAS HUGSTIME?
CAN HAS STDIO?

I HAS A LOVINGU
BTW NAO is automagically set to time right now
I HAS A NAO

IZ NAO HUGSTIME?
YARLY
    VISIBLE "<3"
    LOVINGU IZ K
NOWAI
    VISIBLE "</3"
    LOVINGU IZ NOES
KTHX

KTHXBYE

[Xaby]

http://www.purebasic.fr/german/viewtopi ... sc&start=0

[Kaeru Gaman]

auf wikipedia fehlt die hälfte des artikels und die hälfte der unterartikel!

superklasse! soeben hat wiki seine existenzberechtigung verloren!
jetzt ist es nur noch big-brother...

[ZeHa]

Ich find HQ9+ lustig das ist meine Lieblings-Esoterische-Sprache