Word wheel: Difference between revisions
Add APL
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add APL) |
||
Line 242:
</pre>
=={{header|APL}}==
{{works with|Dyalog APL}}
<lang APL>wordwheel←{
words←((~∊)∘⎕TC⊆⊢) 80 ¯1⎕MAP ⍵
match←{
0=≢⍵:1
~(⊃⍵)∊⍺:0
⍺[(⍳⍴⍺)~⍺⍳⊃⍵]∇1↓⍵
}
middle←(⌈0.5×≢)⊃⊢
words←((middle ⍺)∊¨words)/words
words←(⍺∘match¨words)/words
(⍺⍺≤≢¨words)/words
}</lang>
{{out}}
<pre> 'ndeokgelw' (3 wordwheel) 'unixdict.txt'
eke elk keel keen keg ken keno knee kneel knew know knowledge kong leek week wok woke </pre>
=={{header|AppleScript}}==
<lang applescript>use AppleScript version "2.4"
Line 646 ⟶ 663:
wok
woke</pre>
=={{header|AWK}}==
<lang AWK>
| |||