Anadromes: Difference between revisions
Content added Content deleted
(julia example) |
|||
Line 49: | Line 49: | ||
</pre> |
</pre> |
||
=={{header|Julia}}== |
|||
<lang ruby>function anadromes(minsize, csense = true, fname = "words.txt") |
|||
words = Set(filter(w -> length(w) >= minsize, split((csense ? identity : lowercase)(read(fname, String)), r"\s+"))) |
|||
found = unique([sort!([w, reverse(w)]) for w in words if reverse(w) in words && w != reverse(w)]) |
|||
println("Total $(length(found)) case $(csense ? "" : in)sensitive anadrome pairs found.") |
|||
foreach(a -> println(a[1], " <=> ", a[2]), sort!(found)) |
|||
end |
|||
anadromes(7) |
|||
anadromes(7, false) |
|||
</lang>{{out}} |
|||
<pre> |
|||
Total 17 case sensitive anadrome pairs found. |
|||
amaroid <=> diorama |
|||
degener <=> reneged |
|||
deifier <=> reified |
|||
deliver <=> reviled |
|||
dessert <=> tressed |
|||
desserts <=> stressed |
|||
deviler <=> relived |
|||
dioramas <=> samaroid |
|||
gateman <=> nametag |
|||
leveler <=> relevel |
|||
pat-pat <=> tap-tap |
|||
redrawer <=> rewarder |
|||
reknits <=> stinker |
|||
relever <=> reveler |
|||
reliver <=> reviler |
|||
revotes <=> setover |
|||
sallets <=> stellas |
|||
Total 32 case insensitive anadrome pairs found. |
|||
amaroid <=> diorama |
|||
anacara <=> aracana |
|||
annabal <=> labanna |
|||
artamus <=> sumatra |
|||
colbert <=> trebloc |
|||
degener <=> reneged |
|||
deifier <=> reified |
|||
delbert <=> trebled |
|||
delevan <=> naveled |
|||
deliver <=> reviled |
|||
dessert <=> tressed |
|||
desserts <=> stressed |
|||
deviler <=> relived |
|||
dioramas <=> samaroid |
|||
eimmart <=> trammie |
|||
emmeram <=> maremme |
|||
gateman <=> nametag |
|||
latimer <=> remital |
|||
lattimer <=> remittal |
|||
lessees <=> seessel |
|||
leveler <=> relevel |
|||
nicolaus <=> sualocin |
|||
pat-pat <=> tap-tap |
|||
redrawer <=> rewarder |
|||
reknits <=> stinker |
|||
relever <=> reveler |
|||
reliver <=> reviler |
|||
revotes <=> setover |
|||
rotanev <=> venator |
|||
roygbiv <=> vibgyor |
|||
sallets <=> stellas |
|||
sennits <=> stinnes |
|||
</pre> |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |