62 lines
1.6 KiB
Plaintext
62 lines
1.6 KiB
Plaintext
InitNetwork() ;
|
|
OpenConsole()
|
|
|
|
Procedure.s sortWord(word$)
|
|
len.i = Len(word$)
|
|
Dim CharArray.s (len)
|
|
|
|
For n = 1 To len ; Transfering each single character
|
|
CharArray(n) = Mid(word$, n, 1) ; of the word into an array.
|
|
Next
|
|
|
|
SortArray(CharArray(),#PB_Sort_NoCase ) ; Sorting the array.
|
|
|
|
word$ =""
|
|
For n = 1 To len ; Writing back each single
|
|
word$ + CharArray(n) ; character of the array.
|
|
Next
|
|
|
|
ProcedureReturn word$
|
|
EndProcedure
|
|
|
|
|
|
tmpdir$ = GetTemporaryDirectory()
|
|
filename$ = tmpdir$ + "unixdict.txt"
|
|
Structure ana
|
|
isana.l
|
|
anas.s
|
|
EndStructure
|
|
|
|
NewMap anaMap.ana()
|
|
|
|
If ReceiveHTTPFile("http://www.puzzlers.org/pub/wordlists/unixdict.txt", filename$)
|
|
If ReadFile(1, filename$)
|
|
Repeat
|
|
word$ = (ReadString(1)) ; Reading a word from a file.
|
|
key$ = (sortWord(word$)) ; Sorting the word and storing in key$.
|
|
|
|
If FindMapElement(anaMap(), key$) ; Looking up if a word already had the same key$.
|
|
|
|
; if yes
|
|
anaMap()\anas = anaMap()\anas+ ", " + word$ ; adding the word
|
|
anaMap()\isana + 1
|
|
Else
|
|
; if no
|
|
anaMap(key$)\anas = word$ ; applying a new record
|
|
anaMap()\isana + 1
|
|
EndIf
|
|
Until Eof(1)
|
|
CloseFile(1)
|
|
DeleteFile(filename$)
|
|
|
|
;----- output -----
|
|
ForEach anaMap()
|
|
If anaMap()\isana >= 4 ; only emit what had 4 or more hits.
|
|
PrintN(anaMap()\anas)
|
|
EndIf
|
|
Next
|
|
|
|
PrintN("Press any key"): Repeat: Until Inkey() <> ""
|
|
EndIf
|
|
EndIf
|