Odd words: Difference between revisions
no edit summary
m (→{{header|Wren}}: Wren-trait -> Wren-iterate) |
No edit summary |
||
Line 403:
5: upholstery posey
</pre>
=={{header|Delphi}}==
{{works with|Delphi|6.0}}
{{libheader|SysUtils,StdCtrls}}
<syntaxhighlight lang="Delphi">
procedure ShowOddWords(Memo: TMemo);
var I,J: integer;
var W,S: string;
begin
{Iterate all entries in dictionary}
for I:=0 to UnixDict.Count-1 do
if Length(UnixDict[I])>8 then {Word must be >4, so every other is >8}
begin
W:=UnixDict[I];
{Take every other letter}
J:=1; S:='';
while J<=Length(W) do
begin
S:=S+W[J];
Inc(J,2);
end;
{Check if it is in Dictionary}
if UnixDict.IndexOf(S)>0 then
begin
Memo.Lines.Add(W+' -> '+S);
end;
end;
end;
</syntaxhighlight>
{{out}}
<pre>
barbarian -> brain
childbear -> cider
corrigenda -> cried
gargantuan -> grata
headdress -> hades
palladian -> plain
propionate -> point
salvation -> slain
siltation -> slain
slingshot -> sight
statuette -> saute
supersede -> spree
supervene -> spree
terminable -> trial
Elapsed Time: 44.351 ms.
</pre>
=={{header|F_Sharp|F#}}==
| |||