Word wheel: Difference between revisions
m
→{{header|Factor}}: remove unused vocabularies
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
m (→{{header|Factor}}: remove unused vocabularies) |
||
Line 134:
=={{header|Factor}}==
{{works with|Factor|0.99 2020-07-03}}
<lang factor>USING: assocs
▲prettyprint sequences sets sorting ;
! Only consider words longer than two letters and words that
Line 143 ⟶ 142:
[ [ member? ] keep length 2 > and ] with filter ;
: words ( input-str path --
[ [ midpoint@ ] keep nth ] [ ascii file-lines pare ] bi* ;
|