Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Mach du mal keine Fehler.7x7 hat geschrieben:Mann, gebt euch mal mehr Mühe
Nicht ganz. Es sind 638 Zeichen und das Laden aus Dateien funktioniert bei mir noch. Dass mit dem doppelten Return drücken stimmt allerdings.NicTheQuick hat geschrieben:Mach du mal keine Fehler.7x7 hat geschrieben:Mann, gebt euch mal mehr Mühe
Erstens sind das 738 Zeichen und zweitens funktioniert das Laden aus Dateien nicht mehr und man muss jetzt nach Eingabe des Dateinamens nochmal Return drücken, was ebenfalls falsch ist.
per PayPal, falls er sowas hat. Naja, sowas in der Art: http://www.purebasic.fr/german/memberli ... ofile&u=21RSBasic hat geschrieben:Was bekommt eigentlich der Gewinner? Wurde das schon festgelegt? Wenn nicht, dann kriegt er ein
Es wäre gut, wenn an irgendeiner Stelle die offiziellen Regeln als solche gekennzeichnet werden.Der veränderte Code muss natürlich genauso funktionieren wie vorher.
... oder gehören da noch welche dazu?Zu den Regeln würde ich Vorschlagen:
1. EnableExplicit in der ersten Zeile erforderlich, so bleibt es wenigstens etwas lesbar
(DisableExplicit dann natürlich nicht erlaubt!)
2. Macros erlaubt.
3. Nur Funktionen erlaubt, die auf allen 3 OSes zur Verfügung stehen.
4. Compilerdirektiven sind nicht erlaubt, also auch keine externen Dateien.
Code: Alles auswählen
EnableExplicit
Global a,d,f,j,m,n,c.s,h.s,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)
If FindString("+-<>.,[]",h)
c+h
j-((Asc(h)/23)!3-3)/3
W
Wend
i="Uneven brackets"
If j=0
Dim k(d)
m=@c
While PeekA(m)
n=PeekA(m)-44
i=h
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>15
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
Else
f+n-17
If f<0
i="Memory pointer out of range"
Break
W
d+1
ReDim k(d)
W
W
If n=2
Print(Chr(k(f)))
W
m+1
Wend
W
Print(i+RSet("Press ENTER to exit",22,#LF$))
U
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
While PeekA(m)
n=PeekA(m)-44
i=h
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>2
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
Else
f+n-17
If f<0
i="Memory pointer out of range"
Break
W
d+1
ReDim k(d)
W
W
If n=2
Print(Chr(k(f)))
W
m+1
Wend
W
Print(i+RSet("Press ENTER to exit",22,#LF$))
Udas c.s = h gesetzt wird, sorgt dafür, dass @c ein gültiger String-Pointer ist, sodass es kein IMA mehr gibt.Global a,d,f,j,m,n,h.s,c.s=h,i.s