Anagrams: Difference between revisions
Content added Content deleted
(Added example for Pointless) |
|||
Line 5,188:
evil, levi, live, veil, vile
</pre>
=={{header|Phixmonti}}==
<lang Phixmonti>include ..\Utilitys.pmt
"unixdict.txt" "r" fopen var f
( )
true while
f fgets
dup -1 == if
drop
f fclose
false
else
-1 del
dup sort swap 2 tolist 0 put
true
endif
endwhile
sort
"" var prev
( ) var prov
( ) var res
0 var maxlen
len for
get 1 get dup prev != if
res prov len maxlen > if len var maxlen endif
0 put var res ( ) var prov
endif
var prev
2 get nip
prov swap 0 put var prov
endfor
res
len for
get len maxlen == if ? else drop endif
endfor</lang>
{{out}}<pre>["abel", "able", "bale", "bela", "elba"]
["caret", "carte", "cater", "crate", "trace"]
["angel", "angle", "galen", "glean", "lange"]
["alger", "glare", "lager", "large", "regal"]
["elan", "lane", "lean", "lena", "neal"]
["evil", "levi", "live", "veil", "vile"]
=== Press any key to exit ===</pre>
=={{header|PHP}}==
|