Odd words: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Wren-trait -> Wren-iterate) |
No edit summary |
||
Line 403: | Line 403: | ||
5: upholstery posey |
5: upholstery posey |
||
</pre> |
</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#}}== |
=={{header|F_Sharp|F#}}== |