Semordnilap

From Rosetta Code
Revision as of 06:24, 20 February 2021 by Drkameleon (talk | contribs) (Replaced content with "=={{header|Arturo}}== <lang rebol>words: read.lines "http://wiki.puzzlers.org/pub/wordlists/unixdict.txt" pairs: [] loop words 'wrd [ if and? contains? words reverse...")

Arturo

<lang rebol>words: read.lines "http://wiki.puzzlers.org/pub/wordlists/unixdict.txt" pairs: [] loop words 'wrd [ 

   if and? contains? words reverse wrd 
           wrd <> reverse wrd [
       'pairs ++ @[@[wrd reverse wrd]]
       print [wrd "-" reverse wrd]
   ]

]

unique 'pairs

print map 1..5 => [sample pairs]</lang>

Retrieved from "https://rosettacode.org/wiki/Semordnilap?oldid=218912"