ich finde, einen eigenen Stack zu schreiben wenn der des Systems nicht ausreicht,Josef Sniatecki hat geschrieben:Doch irgendwie finde ich das ein bisschen unprofessionell. Oder bin ich der einzige der das so sieht?
Das ist klar, das macht mein Code ja auch.Josef Sniatecki hat geschrieben:OK. Das mit der Division durch 0 ist leicht zu beheben. Doch das mit den
vielen Klammern nicht. "CalcStr" muss einfach eine neue Ebene bei jeder
Klammer öffnen, sonst wird die Priorität nicht beachtet.
Code: Alles auswählen
XIncludeFile "calc.pbi"
Debug Calc("1+(2+(3+(4+(5+(6+(7+(8+(9-(10+(11+(12+(13+(14+(15+(16-(17+(18+(19+(20)))))))))))))))))))")
;-- Berechnung direkt durch PB zur Kontrolle:
Debug 1+(2+(3+(4+(5+(6+(7+(8+(9-(10+(11+(12+(13+(14+(15+(16-(17+(18+(19+(20)))))))))))))))))))Da stimme ich Dir im Prinzip zu, nur ist das Problem hier ein anderes.Kaeru Gaman hat geschrieben:ich finde, einen eigenen Stack zu schreiben wenn der des Systems nicht ausreicht,
ist eher als besonders professionell zu betrachten.
Das hört sich eher nach dem umgekehrten Ansatz -- also einer Bottom-Up-Methode an. Hier würde man selbst die Datenstrucktur Stack implementieren und "verwalten". Da PureBasic i. Ggs. zu vielen anderen prozeduralen Sprachen den Vorteil hat, LinkedLists elegant und direkt zu unterstützen, würde ich diese für den selbstgemachten Stack einem Array vorziehen; denn bei LinkedLists muss man sich keine Gedanken darüber machen, wieviel Platz man reservieren soll.AND51 hat geschrieben:Wollte auch schon immer mal sowas coden.
Ich finde die Idee mit der Rekusrion sehr elegant. Es ist naheliegend, für jkeden neuen Teilterm die Prozedur erneut aufzurufen.
Was haltet ihr denn von der Idee, alle Teilterme z. B. per RegExp zu separieren. Diese lägen dann in einem Array vor, welches man durchlaufen könnte.
Der Befehl ExtractRegularExpression() speichert alle Teilstrings in Arrays ab, nicht in LinkedLists.Little John hat geschrieben:würde ich diese für den selbstgemachten Stack einem Array vorziehen; denn bei LinkedLists muss man sich keine Gedanken darüber machen, wieviel Platz man reservieren soll.
Code: Alles auswählen
Dim teil.s(4)
teil(0)="5"
teil(1)="+"
teil(2)="7"
teil(3)="*"
teil(4)="10"Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy EndAch sooo ... Da siehst Du mal, wie wenig ich mich damit auskenne.AND51 hat geschrieben:Der Befehl ExtractRegularExpression() speichert alle Teilstrings in Arrays ab, nicht in LinkedLists.Little John hat geschrieben:würde ich diese für den selbstgemachten Stack einem Array vorziehen; denn bei LinkedLists muss man sich keine Gedanken darüber machen, wieviel Platz man reservieren soll.
Genau. Aufteilen des Quellstrings in die einzelnen sog. Token (= Folge von Zeichen, die bedeutungsmäßig zusammen gehören). Das ist der erste Schritt.AND51 hat geschrieben:Meine Idee war, aus dem String "5+7*10" folgendes zu machen:Code: Alles auswählen
Dim teil.s(4) teil(0)="5" teil(1)="+" teil(2)="7" teil(3)="*" teil(4)="10"
Ja, das mit den Prioritäten, inklusive verschachtelten Klammern, ist eben die "Herausforderung". Das macht man halt normalerweise beim Top-Down-Ansatz rekursiv, und beim Bottom-Up-Ansatz mit einem eigenen Stack.AND51 hat geschrieben:Jetzt könnte man das Array bequem durchlaufen und von links nach rechts berechnen.
Die einzige Schwierigkeit, die ich sehe, ist die Beachtung der Priorität der verschiedenen mathematischen Operatoren, d. h. Punkt- vor Strichrechnung. Und wenn man später noch Funktionen einfügen will, z. B. "5+7*sin(90)" oder so, da müsste man nach den passenden Ausdrücken suchen.
Code: Alles auswählen
term.s="(54+77.8)-6*3+90"
Procedure.d EvaluateMathExpression(term.s)
Protected Dim subterm.s(0)
Protected exp=CreateRegularExpression(#PB_Any, "([\d.]+|\D{1})")
Protected n, anzahl=ExtractRegularExpression(exp, term, subterm())
For n=0 To anzahl-1
Debug subterm(n)
Next
FreeRegularExpression(exp)
EndProcedure
EvaluateMatheExpression(term)Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End