Anadromes: Difference between revisions
Realize in PascalABC.NET
Thundergnat (talk | contribs) m (Automated syntax highlighting fixup (second round - minor fixes)) |
(Realize in PascalABC.NET) |
||
Line 529:
</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="pascal">
// Anadromes. Nigel Galloway: August 30th., 2022
begin
var n := ReadLines('words.txt').Where(n -> Length(n) > 6);
foreach var v in n.Intersect(n.Select(n -> ReverseString(n))) do if v < ReverseString(v) then writeln(v);
end.
</lang>
{{out}}
<pre>
amaroid
degener
deifier
deliver
dessert
desserts
deviler
dioramas
gateman
leveler
pat-pat
redrawer
reknits
relever
reliver
revotes
sallets
</pre>
=={{header|Perl}}==
<syntaxhighlight lang="perl">use strict;
|