Anadromes: Difference between revisions
Content added Content deleted
(julia example) |
m (simplify) |
||
Line 53: | Line 53: | ||
<lang ruby>function anadromes(minsize, csense = true, fname = "words.txt") |
<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+"))) |
words = Set(filter(w -> length(w) >= minsize, split((csense ? identity : lowercase)(read(fname, String)), r"\s+"))) |
||
found = |
found = [(w, reverse(w)) for w in words if (r = reverse(w)) in words && w < r] |
||
println("Total $(length(found)) case $(csense ? "" : in)sensitive anadrome pairs found.") |
println("Total $(length(found)) case $(csense ? "" : in)sensitive anadrome pairs found.") |
||
foreach(a -> println(a[1], " <=> ", a[2]), sort!(found)) |
foreach(a -> println(a[1], " <=> ", a[2]), sort!(found)) |