QB64.org Forum

Active Forums => Programs => Topic started by: TempodiBasic on April 26, 2021, 05:49:51 pm

Title: Find and Show the longest ordered words of the file unixdict.txt (Rosetta Code)
Post by: TempodiBasic on April 26, 2021, 05:49:51 pm

Hi
another task of Rosetta Code http://rosettacode.org/wiki/Ordered_words (http://rosettacode.org/wiki/Ordered_words)
and this is my solution

Code: QB64: [Select]

1. 'Task
2. ' Find and display all the ordered words in the dictionary   unixdict.txt
3. ' that have the longest word length.
4. Dim NameFile As String, NewLine As String, max As Integer, index As Integer
5. ReDim ListWords(1 To 2) As String
6.  
7. NameFile = "unixdict.txt"
8. NewLine = ""
9. max = 0
10. index = 0
11. Open NameFile For Input As #1
12. While Not EOF(1)
13.     Input #1, NewLine
14.     If IsOrderedWord(NewLine) = -1 Then
15.         If max = Len(NewLine) Then
16.             index = index + 1
17.             ReDim _Preserve ListWords(1 To index)
18.             ListWords(index) = NewLine
19.         ElseIf max < Len(NewLine) Then
20.             max = Len(NewLine)
21.             ReDim ListWords(1 To 2)
22.             index = 1
23.             ListWords(index) = NewLine
24.         End If
25.     End If
26. Wend
27. For max = 1 To UBound(listwords)
28.     Print ListWords(max)
29. Next
30. End
31.  
32. Function IsOrderedWord (s As String)
33.     IsOrderedWord = 0
34.     Dim count As Integer
35.     For count = 1 To Len(s) - 1
36.         If Asc(s, count) > Asc(s, count + 1) Then Exit Function
37.     Next
38.     IsOrderedWord = -1
39. End Function
40.  
41.  

Thanks to test. Attached there is the txt file
PS I have forgotten the OrderedWords, now all is complete.

Text Only | Text with Attachments