Words from neighbour ones: Difference between revisions
Added Arturo implementation
(Added XPL0 example.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 160:
task()</lang>
=={{header|Arturo}}==
{{trans|Nim}}
<lang rebol>wordset: map read.lines relative "unixdict.txt" => strip
wordset: select wordset 'word -> 9 =< size word
lastWord: ""
newWord: " "
count: 0
loop 0..(size wordset)-9 'i [
loop 0..8 'j -> newWord\[j]: wordset\[i+j]\[j]
if and? [in? newWord wordset][lastWord <> newWord][
count: count + 1
print [(pad to :string count 3)++":" newWord]
lastWord: new newWord
]
]</lang>
{{out}}
<pre> 1: applicate
2: architect
3: astronomy
4: christine
5: christoph
6: committee
7: composite
8: constrict
9: construct
10: different
11: extensive
12: greenwood
13: implement
14: improvise
15: intercept
16: interpret
17: interrupt
18: philosoph
19: prescript
20: receptive
21: telephone
22: transcend
23: transport
24: transpose</pre>
=={{header|AutoHotkey}}==
| |||