Abbreviations, automatic: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,030: / Line 1,030: @@
 Main
    Break on
-   days of week = 0, fd=0, length=0, days=0, temp=0, ltemp=0
+   days of week = 0, fd=0, length=0, days=0, temp=0
    Open in("dias_de_la_semana.txt")( fd )
@@ Line 1,036: / Line 1,036: @@
       Loop if (Not (Eof(fd)) )
          Using( MAX_LINE ), Split( Readlin(fd) » (days), days of week, " ")
-         Let( length := Length( days of week ) )
-         Continue if( Zero(length))
+         Continue if( Zero( Length( days of week ) » (length) ) )
          i=1
          Loop
             Let( temp := Mid( i, 1, days of week ))
             aSort(temp)
-            Break if (Eq(Length(Unique(temp)), length ))
+            Break if ( Eq(Length(Unique(temp)), length ) )
             ++i
          Back