Anadromes: Difference between revisions
Add SETL
m (→{{header|Wren}}: Changed to Wren S/H) |
Not a robot (talk | contribs) (Add SETL) |
||
Line 1,243:
</pre>
=={{header|SETL}}==
<syntaxhighlight lang="setl">program find_anadromes;
read_file;
anadromes := {
{word, reverse word}
: word in words
| reverse word in words
and reverse word /= word
};
loop for anadrome in anadromes do
print(anadrome);
end loop;
read_file::
words := {};
dictfile := open("words.txt", "r");
loop doing
geta(dictfile, word);
while word /= om do
if #word <= 6 then continue; end if;
words with:= word;
end loop;
close(dictfile);
end program;</syntaxhighlight>
{{out}}
<pre>{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}</pre>
=={{header|Sidef}}==
| |||