60 lines
1.3 KiB
Plaintext
60 lines
1.3 KiB
Plaintext
|
import insert, sort, concat from table
|
||
|
|
import sub, len from string
|
||
|
|
|
||
|
|
-- splits string by newline into array of strings
|
||
|
|
lines = (str) ->
|
||
|
|
tab = {}
|
||
|
|
for line in str\gmatch "[^\n]+"
|
||
|
|
insert tab, line
|
||
|
|
return tab
|
||
|
|
|
||
|
|
-- splits string by spaces into a table of strings
|
||
|
|
-- (handles bad spacing and duplicate substrings)
|
||
|
|
split = (str) ->
|
||
|
|
tab1, tab2 = {}, {}
|
||
|
|
for word in str\gmatch "%S+"
|
||
|
|
tab1[word] = true
|
||
|
|
for word in pairs tab1
|
||
|
|
insert tab2, word
|
||
|
|
return tab2
|
||
|
|
|
||
|
|
-- splits string by commas into a table of strings
|
||
|
|
-- (expects a well-formated string!)
|
||
|
|
comma_split = (str) ->
|
||
|
|
tab = {}
|
||
|
|
for word in str\gmatch "[^,]+"
|
||
|
|
insert tab, word
|
||
|
|
return tab
|
||
|
|
|
||
|
|
-- bool: does str1 start with str2
|
||
|
|
starts = (str1, str2) ->
|
||
|
|
return str2 == sub str1, 1, len str2
|
||
|
|
|
||
|
|
-- takes space-separated string and puts it in alphabetical order
|
||
|
|
-- (handles weird spacing, returns with single-spacing)
|
||
|
|
alphabetize = (str) ->
|
||
|
|
tab = split str
|
||
|
|
sort tab
|
||
|
|
return concat tab, " "
|
||
|
|
|
||
|
|
-- takes space-separated string and removes duplicate entries from it
|
||
|
|
remove_duplicates = (str) ->
|
||
|
|
strings = split str
|
||
|
|
tab, result = {}, {}
|
||
|
|
|
||
|
|
for str in *strings
|
||
|
|
tab[str] = true
|
||
|
|
for str in pairs tab
|
||
|
|
insert result, str
|
||
|
|
|
||
|
|
return concat result, " "
|
||
|
|
|
||
|
|
{
|
||
|
|
:lines
|
||
|
|
:split
|
||
|
|
:comma_split
|
||
|
|
:starts
|
||
|
|
:alphabetize
|
||
|
|
:remove_duplicates
|
||
|
|
}
|