Semordnilap: Difference between revisions
→Add Transd
Keithpinson (talk | contribs) (Updated for compatibility with Scala 3) |
|||
Line 3,333:
Example: eros/sore
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>
| |||