Abbreviations, automatic: Difference between revisions
Content deleted Content added
Line 1,030: | Line 1,030: | ||
Main |
Main |
||
Break on |
Break on |
||
days of week = 0, fd=0, length=0, days=0, temp |
days of week = 0, fd=0, length=0, days=0, temp=0 |
||
Open in("dias_de_la_semana.txt")( fd ) |
Open in("dias_de_la_semana.txt")( fd ) |
||
Line 1,036: | Line 1,036: | ||
Loop if (Not (Eof(fd)) ) |
Loop if (Not (Eof(fd)) ) |
||
Using( MAX_LINE ), Split( Readlin(fd) » (days), days of week, " ") |
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 |
i=1 |
||
Loop |
Loop |
||
Let( temp := Mid( i, 1, days of week )) |
Let( temp := Mid( i, 1, days of week )) |
||
aSort(temp) |
aSort(temp) |
||
Break if (Eq(Length(Unique(temp)), length )) |
Break if ( Eq(Length(Unique(temp)), length ) ) |
||
++i |
++i |
||
Back |
Back |