Semordnilap: Difference between revisions
Content added Content deleted
Keithpinson (talk | contribs) (Updated for compatibility with Scala 3) |
|||
Line 3,333: | Line 3,333: | ||
Example: eros/sore |
Example: eros/sore |
||
Example: bard/drab |
Example: bard/drab |
||
</pre> |
|||
=={{header|Transd}}== |
|||
<lang Scheme>#lang transd |
|||
MainModule: { |
|||
_start: (λ (with fs FileStream() |
|||
(open-r fs "/mnt/vault/tmp/unixdict.txt") ) |
|||
(with v ( -| |
|||
(read-text fs) |
|||
(split) |
|||
(group-by (λ s String() -> String() |
|||
(ret (min s (reverse (cp s)))))) |
|||
(values) |
|||
(filter where: (λ v Vector<String>() (ret (== (size v) 2)))) |
|||
(shuffle)) |
|||
(lout "Total number of semordnilaps: " (size v)) |
|||
(lout "Random five: " Range(in: v 0 5)))) |
|||
) |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
Total number of semordnilaps: 158 |
|||
Random five: [[deer, reed], [nip, pin], [eire, erie], [am, ma], [gem, meg]] |
|||
</pre> |
</pre> |
||