Word wheel: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add APL) |
||
| Line 242: | Line 242: | ||
</pre> |
</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}}== |
=={{header|AppleScript}}== |
||
<lang applescript>use AppleScript version "2.4" |
<lang applescript>use AppleScript version "2.4" |
||
| Line 646: | Line 663: | ||
wok |
wok |
||
woke</pre> |
woke</pre> |
||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
<lang AWK> |
<lang AWK> |
||