[Java][VB.NET] Übersetzung von Do Until

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ThePlexian.

    [Java][VB.NET] Übersetzung von Do Until

    Hi,

    Ich möchte gerade meinen Parser in Java umschreiben um ihn auch dort nutzen zu können. Soweit funktioniert auch alles bis auf eine Schleife:

    VB.NET-Quellcode

    1. Do Until operatorStack.Peek.Type = TokenType.Function OrElse operatorStack.Peek.Content = "(" OrElse operatorStack.Count = 0
    2. outputList.Add(operatorStack.Pop)
    3. Loop

    Java-Quellcode

    1. do {
    2. outputlist.add(operatorstack.pop());
    3. } while (!(operatorstack.peek().Type==Token.TokenType.Function|| operatorstack.peek().Content.equals("(") || operatorstack.size()==0));


    Verhält sich vollkommen unterschiedlich, allerdings ist das doch das selbe, oder?

    Wenn jemand der Meinung ist, dass es am Rest des Algos liegt der kann auch mal einen Blick darauf werfen:

    VB.NET-Quellcode

    1. Private Function ShuntingYard(ByVal tokens As List(Of Token)) As List(Of Token)
    2. Dim outputList As New List(Of Token)
    3. Dim operatorStack As New Stack(Of Token)
    5. For Each tk As Token In token
    7. If tk.Type = TokenType.Number Then
    8. outputList.Add(tk)
    9. Continue For
    10. End If
    12. If tk.Type = TokenType.Function OrElse tk.Content = "(" Then
    13. operatorStack.Push(tk)
    14. Continue For
    15. End If
    17. If tk.Content = ")" Then
    18. Do Until operatorStack.Peek.Type = TokenType.Function OrElse operatorStack.Peek.Content = "(" OrElse operatorStack.Count = 0
    19. outputList.Add(operatorStack.Pop)
    20. Loop
    22. If operatorStack.Peek.Content <> "(" Then
    23. outputList.Add(operatorStack.Pop)
    24. Else
    25. operatorStack.Pop()
    26. End If
    28. Continue For
    29. End If
    33. If tk.Type = TokenType.Operator AndAlso operatorStack.Count = 0 Then
    34. operatorStack.Push(tk)
    35. Continue For
    36. End If
    38. If operatorStack.Count > 0 AndAlso tk.Type = TokenType.Operator Then
    40. While operatorStack.Count > 0 AndAlso tk.EvaluatesBefore(operatorStack.Peek) AndAlso operatorStack.Peek.Content <> "(" AndAlso operatorStack.Peek.Type <> TokenType.Function
    41. outputList.Add(operatorStack.Pop)
    42. End While
    44. operatorStack.Push(tk)
    45. End If
    47. Next
    49. While operatorStack.Count > 0
    50. outputList.Add(operatorStack.Pop)
    51. End While
    53. Return outputList
    55. End Function



    Java-Quellcode

    1. public static ArrayList<Token> ShuntingYard(ArrayList<Token> tokens){
    2. ArrayList<Token> outputlist = new ArrayList<Token>();
    3. Stack<Token> operatorstack = new Stack<Token>();
    5. for (Token tk : tokens ) {
    6. if (tk.Type==Token.TokenType.Number) {
    7. outputlist.add(tk);
    8. continue;
    9. }
    10. if (tk.Type==Token.TokenType.Function || tk.Content.equals("(")) {
    11. operatorstack.push(tk);
    12. continue;
    13. }
    14. if (tk.Content.equals(")")) {
    16. do {
    17. outputlist.add(operatorstack.pop());
    18. } while (!(operatorstack.peek().Type==Token.TokenType.Function|| operatorstack.peek().Content.equals("(") || operatorstack.size()==0)); // end of do-while
    20. if (!operatorstack.peek().Content.equals("(")) {
    21. outputlist.add(operatorstack.pop());
    22. }else{
    23. operatorstack.pop() ;
    24. }
    25. continue;
    28. }
    30. if (tk.Type==Token.TokenType.Operator && operatorstack.size() == 0) {
    31. operatorstack.push(tk);
    32. continue;
    33. }
    35. if (operatorstack.size() >0 && tk.Type==Token.TokenType.Operator) {
    36. while (operatorstack.size()>0 && tk.EvaluatesBefore(operatorstack.peek()) && !operatorstack.peek().Content.equals("(") && operatorstack.peek().Type==Token.TokenType.Function) {
    37. outputlist.add(operatorstack.pop());
    38. }
    39. operatorstack.push(tk);
    40. }
    41. }
    43. while (operatorstack.size()>0) {
    44. outputlist.add(operatorstack.pop());
    46. }
    47. return outputlist;
    48. }


    Vielen Dank für eure Hilfe :D

    8-) faxe1008 8-)

    Until ist nur While mit umgekehrter Bedingung:

    VB.NET-Quellcode

    1. Dim a = 0
    2. Do Until a > 10
    3. a += 1
    4. Loop
    'Selbes wie

    VB.NET-Quellcode

    1. Dim a = 0
    2. Do While Not a > 10
    3. a += 1
    4. Loop
    Das:

    Java-Quellcode

    1. do
    2. {
    3. // ...
    4. }
    5. while (Condition);
    ist das selbe wie das in VB:

    VB.NET-Quellcode

    1. Do
    2. '...
    3. Loop While Condition
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Ich denke, dass das Problem ist, dass einmal eine Schleife mit Eingangsbedingung und einmal mit AusgangBedingzng genutzt wird.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Vielen Dank euch beiden habe den Fehler gefunden :D . Hier der korregierte Algo:

    Quellcode

    1. public static ArrayList<Token> ShuntingYard(ArrayList<Token> tokens){
    2. ArrayList<Token> outputlist = new ArrayList<Token>();
    3. Stack<Token> operatorstack = new Stack<Token>();
    5. for (Token tk : tokens ) {
    6. if (tk.Type==Token.TokenType.Number) {
    7. outputlist.add(tk);
    8. continue;
    9. }
    10. if (tk.Type==Token.TokenType.Function || tk.Content.equals("(")) {
    11. operatorstack.push(tk);
    12. continue;
    13. }
    15. if (tk.Content.equals(")")) {
    16. while (!operatorstack.empty() && (operatorstack.peek().Type!=Token.TokenType.Function || operatorstack.peek().Content.equals("("))) {
    17. outputlist.add(operatorstack.pop());
    18. }
    19. if (!operatorstack.empty() ) {
    20. if (operatorstack.peek().Type==Token.TokenType.Function) {
    21. outputlist.add(operatorstack.pop());
    22. }else{
    23. operatorstack.pop();
    24. }
    25. }
    27. continue;
    29. }
    32. if (tk.Type==Token.TokenType.Operator && operatorstack.size() == 0) {
    33. operatorstack.push(tk);
    34. continue;
    35. }
    37. if (operatorstack.size() >0 && tk.Type==Token.TokenType.Operator) {
    38. while (operatorstack.size()>0 && tk.EvaluatesBefore(operatorstack.peek())) {
    39. if (!operatorstack.peek().Content.equals("(") && operatorstack.peek().Type!=Token.TokenType.Function) {
    40. outputlist.add(operatorstack.pop());
    41. }else{
    42. break;
    43. }
    45. }
    46. operatorstack.push(tk);
    47. }
    50. }
    52. while (operatorstack.size()>0) {
    53. outputlist.add(operatorstack.pop());
    54. }
    55. return outputlist;
    56. }

    8-) faxe1008 8-)

    Ich habe erneut ein Übersetzungsproblem und finde einfach nicht den Fehler :/ :

    VB.NET-Quellcode

    1. If tk.Type = TokenType.ClosingBracket Then
    2. Dim seperatorcounter As Integer = 0
    4. Do Until operatorstack.Peek.Type = TokenType.MultivariateFunction OrElse operatorstack.Peek.Type = TokenType.Function OrElse operatorstack.Peek.Content = "(" OrElse operatorstack.Count = 0
    5. If Not operatorstack.Peek.Type = TokenType.Seperator Then
    7. outputlist.Add(operatorstack.Pop)
    9. Else
    10. operatorstack.Pop()
    11. seperatorcounter += 1
    12. End If
    13. Loop
    15. If operatorstack.Peek.Type = TokenType.MultivariateFunction Then
    17. operatorstack.Peek.Content = operatorstack.Peek.Content & (seperatorcounter + 1).ToString
    18. End If
    19. If operatorstack.Peek.Content <> "(" Then
    20. outputlist.Add(operatorstack.Pop)
    21. Else
    22. operatorstack.Pop()
    23. End If
    24. Continue For
    25. End If


    Java-Quellcode

    1. if (tk.Type==Token.TokenType.ClosingBracket) {
    2. int seperator = 0;
    3. while ( !( operatorstack.empty() || operatorstack.peek().Content.equals("(") || operatorstack.peek().Type==Token.TokenType.MultivariateFunction || operatorstack.peek().Type==Token.TokenType.Function )) {
    4. if (operatorstack.peek().Type!=Token.TokenType.Seperator) {
    5. outputlist.add(operatorstack.pop() );
    6. }else{
    7. operatorstack.pop();
    8. seperator++;
    9. } // end of if
    11. }
    14. if (!operatorstack.empty() && !operatorstack.peek().Content.equals("(")) {
    15. outputlist.add(operatorstack.pop() );
    16. }else{
    17. operatorstack.pop();
    18. } // end of if
    19. continue;
    20. }

    8-) faxe1008 8-)

    Zeile 19 im VB-Code stimmt nicht mit Zeile 14 im Java-Code zusammen.
    If operatorstack.Peek.Content <> "(" Then
    Müsste nur folgendes sein:
    if (!operatorstack.peek().Content.equals("(")) {
    Also !operatorstack.empty() && kommt weg.

    Und das kommt im Java-Code gar nicht mehr vor:

    VB.NET-Quellcode

    1. If operatorstack.Peek.Type = TokenType.MultivariateFunction Then
    2. operatorstack.Peek.Content = operatorstack.Peek.Content & (seperatorcounter + 1).ToString
    3. End If
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Du hast in Zeile 3 des Java Codes
    while ( !(bool || bool || bool || bool))
    das ist in VB.Net, wenn du while nutzen würdest, das gleiche.
    Doch du nutzt "Until", also hast d richtigerweise das "!" bzw. das "Not"" weggelassen, aber nach der boolschen Algebra müssen alle "||" zu "&&" werden, bzw. deine "OrElse" zud "AndAlso".

    Was ein Schwachsinn, sry.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

Facebook
Telefonspende