Word wheel: Difference between revisions

← Older edit

Word wheel (view source)

Revision as of 10:44, 17 February 2024

1,679 bytes added , 2 months ago

m

→‎{{header|Wren}}: Minor tidy

PureFox

9,476

edits

Revision as of 17:19, 28 July 2023 (view source) PSNOW123 (talk \| contribs) m (Changed two variable names.) ← Older edit		Latest revision as of 10:44, 17 February 2024 (view source) PureFox (talk \| contribs) m (→‎{{header\|Wren}}: Minor tidy)
(3 intermediate revisions by 2 users not shown)
Line 1,517: Overall time taken 0.02187220007181168 seconds 17 matches </pre> =={{header\|FutureBasic}}== <syntaxhighlight lang="futurebasic"> #plist NSAppTransportSecurity @{NSAllowsArbitraryLoads:YES} include "NSLog.incl" local fn CountCharacterInString( string as CFStringRef, character as CFStringRef ) as NSUInteger end fn = len(string) - len( fn StringByReplacingOccurrencesOfString( string, character, @"" ) ) local fn IsLegal( wordStr as CFStringRef ) as BOOL NSUInteger i, count = len( wordStr ) CFStringRef letters = @"ndeokgelw" if count < 3 \|\| fn StringContainsString( wordStr, @"k" ) == NO then exit fn = NO for i = 0 to count - 1 if fn CountCharacterInString( letters, mid( wordStr, i, 1 ) ) < fn CountCharacterInString( wordStr, mid( wordStr, i, 1 ) ) exit fn = NO end if next end fn = YES local fn ArrayOfDictionaryWords as CFArrayRef CFURLRef url = fn URLWithString( @"http://wiki.puzzlers.org/pub/wordlists/unixdict.txt" ) CFStringRef string = lcase( fn StringWithContentsOfURL( url, NSUTF8StringEncoding, NULL ) ) CFArrayRef wordArr = fn StringComponentsSeparatedByCharactersInSet( string, fn CharacterSetNewlineSet ) end fn = wordArr void local fn FindWheelWords CFArrayRef wordArr = fn ArrayOfDictionaryWords CFStringRef wordStr CFMutableStringRef mutStr = fn MutableStringNew for wordStr in wordArr if fn IsLegal( wordStr ) then MutableStringAppendFormat( mutStr, fn StringWithFormat( @"%@\n", wordStr ) ) next NSLog( @"%@", mutStr ) end fn fn FindWheelWords HandleEvents </syntaxhighlight> {{output}} <pre> eke elk keel keen keg ken keno knee kneel knew know knowledge kong leek week wok woke </pre> Line 1,822 ⟶ 1,886: keen keg kellogg ken kennel keno knee kneel knell knew knoll know knowledge known kong kowloon leek look nook onlook week weekend wok woke Line 3,143 ⟶ 3,217: {{libheader\|Wren-sort}} {{libheader\|Wren-seq}} <syntaxhighlight lang="~~ecmascript~~wren">import "io" for File import "./sort" for Sort, Find import "./seq" for Lst var letters = ["d", "e", "e", "g", "k", "l", "n", "o","w"]