Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
27
Task/Anagrams/Lasso/anagrams.lasso
Normal file
27
Task/Anagrams/Lasso/anagrams.lasso
Normal file
|
|
@ -0,0 +1,27 @@
|
|||
local(
|
||||
anagrams = map,
|
||||
words = include_url('http://www.puzzlers.org/pub/wordlists/unixdict.txt')->split('\n'),
|
||||
key,
|
||||
max = 0,
|
||||
findings = array
|
||||
)
|
||||
|
||||
with word in #words do {
|
||||
#key = #word -> split('') -> sort& -> join('')
|
||||
if(not(#anagrams >> #key)) => {
|
||||
#anagrams -> insert(#key = array)
|
||||
}
|
||||
#anagrams -> find(#key) -> insert(#word)
|
||||
}
|
||||
with ana in #anagrams
|
||||
let ana_size = #ana -> size
|
||||
do {
|
||||
if(#ana_size > #max) => {
|
||||
#findings = array(#ana -> join(', '))
|
||||
#max = #ana_size
|
||||
else(#ana_size == #max)
|
||||
#findings -> insert(#ana -> join(', '))
|
||||
}
|
||||
}
|
||||
|
||||
#findings -> join('<br />\n')
|
||||
Loading…
Add table
Add a link
Reference in a new issue