Anagrams: Difference between revisions
Content added Content deleted
(Added example for Pointless) |
|||
Line 5,188: | Line 5,188: | ||
evil, levi, live, veil, vile |
evil, levi, live, veil, vile |
||
</pre> |
</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}}== |
=={{header|PHP}}== |