Abbreviations, automatic: Difference between revisions
m
→{{header|Amazing Hopper}}
Line 1,030:
Main
Break on
days of week = 0, fd=0, length=0, days=0, temp
Open in("dias_de_la_semana.txt")( fd )
Line 1,036:
Loop if (Not (Eof(fd)) )
Using( MAX_LINE ), Split( Readlin(fd) » (days), days of week, " ")
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 ) )
++i
Back
| |||