Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Ja, ich würde sagen, dieser Letzte mit 622 ist aktuell. Ausgenommen es gäbe Gegenstimmen.c4s hat geschrieben:Dann ist http://www.purebasic.fr/german/viewtopi ... 53#p301353 aktuell?
Ich hab einen Einwand. Natürlich kann man einen Brainfuck-Code mit Schleifen schreiben, der auf mehr Speicherzellen zugreift als er lang ist. Es muss nur > öfter aufgerufen werden als der Code lang ist. Dafür habe ich nur gerade keinen Code da.7x7 hat geschrieben:Eigentlich...hast Recht!c4s hat geschrieben:@7x7
Trotzdem wird doch kein größeres Array benötigt?! Bitte erklären.
Hatte nämlich in einer früheren Phase auch schon mal diesen Gedanken, aber wieder verworfen aus o.g.Gründen. Hatte
aber nicht überrissen, dass der Brainfuck-Code davon gar nicht tangiert wird.
Also, wenn sonst niemand Einwände hat, passt's
Der einfachste Code wäre dieser, welcher gleichzeitig Sinn- und Endlos istNicTheQuick hat geschrieben:Ich hab einen Einwand. Natürlich kann man einen Brainfuck-Code mit Schleifen schreiben, der auf mehr Speicherzellen zugreift als er lang ist. Es muss nur > öfter aufgerufen werden als der Code lang ist. Dafür habe ich nur gerade keinen Code da.7x7 hat geschrieben:Eigentlich...hast Recht!c4s hat geschrieben:@7x7
Trotzdem wird doch kein größeres Array benötigt?! Bitte erklären.
Hatte nämlich in einer früheren Phase auch schon mal diesen Gedanken, aber wieder verworfen aus o.g.Gründen. Hatte
aber nicht überrissen, dass der Brainfuck-Code davon gar nicht tangiert wird.
Also, wenn sonst niemand Einwände hat, passt's
Code: Alles auswählen
+[>+]
)Meiner natürlich!7x7 hat geschrieben:Welcher Code soll denn nun der aktuell gültige sein?
Code: Alles auswählen
EnableExplicit
Global a,d,f,j,m,n,h.s,c.s=h,i.s
Macro U
h=Input()
EndMacro
Macro W
EndIf
EndMacro
OpenConsole()
Print("Filename (blank to use std in)...?")
U
If ReadFile(1,h)
Repeat
i+ReadString(1)
Until Eof(1)
Else
U
While h
i+h
U
Wend
W
h=i
While h
m+1
h=Mid(i,m,1)
n=FindString("+-<>.,[]",h)
If n
c+h
W
j-n/7*(n*2-15)
Wend
i="Uneven brackets"
If j=0
Dim k(d)
m=@c
i=h
While PeekA(m)
n=PeekA(m)-44
If n<2
k(f)-n
W
If n=0
If h=i
U
W
k(f)=Asc(h)
h=Mid(h,2)
W
If n>46
a=(k(f)XOr n/49)!1*(48-n)
j=a
While j
m+a
j-((PeekA(m)/23)!3-3)/3
Wend
ElseIf n>2
f+n-17
If f<0
i="Memory pointer out of range"
Break
W
d+1
ReDim k(d)
W
If n=2
Print(Chr(k(f)))
W
m+1
Wend
W
Print(i+#LF$+"Press ENTER To exit")
UEs reicht doch wenn ich den letzten Post mache, und noch habe ich zwei Kürzungen im Ärmel7x7 hat geschrieben:Wie schaut's aus Leute...ist die Luft schon draussen?
Das heist mein Code ist noch der Aktuelle?STARGÅTE hat geschrieben: Im übrigen Zählt dein Code nicht, da er die Ausgabe verändert!
das RSet("Press ENTER to exit",22,#LF$) muss schon da bleiben, denn es sind nun mal 3 LFs und nicht nur eins !
Das sehe ich genauso. Herzlichen Glückwunsch zum "PureGolf-Master 2012"Sirius-2337 hat geschrieben:Dann hab ich gewonnen^^, seit 24 Stunden ist kein kürzerer gültiger Code gepostet worden.
