Anadromes: Difference between revisions

=={{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>