Paste: wardle

! Copyright (C) 2022 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs colors hashtables io
io.styles kernel math qw random sequences sequences.extras sets
strings ui.tools.listener ;
IN: wardle

CONSTANT: wardles qw{
    cigar rebut sissy humph awake blush focal evade naval serve
    heath dwarf model karma stink grade quiet bench abate feign
    major death fresh crust stool colon abase marry react batty
    pride floss helix croak staff paper unfed whelp trawl outdo
    adobe crazy sower repay digit crate cluck spike mimic pound
    maxim linen unmet flesh booby forth first stand belly ivory
    seedy print yearn drain bribe stout panel crass flume offal
    agree error swirl argue bleed delta flick totem wooer front
    shrub parry biome lapel start greet goner golem lusty loopy
    round audit lying gamma labor islet civic forge corny moult
    basic salad agate spicy spray essay fjord spend kebab guild
    aback motor alone hatch hyper thumb dowry ought belch dutch
    pilot tweed comet jaunt enema steed abyss growl fling dozen
    boozy erode world gouge click briar great altar pulpy blurt
    coast duchy groin fixer group rogue badly smart pithy gaudy
    chill heron vodka finer surer radio rouge perch retch wrote
    clock tilde store prove bring solve cheat grime exult usher
    epoch triad break rhino viral conic masse sonic vital trace
    using peach champ baton brake pluck craze gripe weary picky
    acute ferry aside tapir troll unify rebus boost truss siege
    tiger banal slump crank gorge query drink favor abbey tangy
    panic solar shire proxy point robot prick wince crimp knoll
    sugar whack mount perky could wrung light those moist shard
    pleat aloft skill elder frame humor pause ulcer ultra robin
    cynic agora aroma caulk shake pupal dodge swill tacit other
    thorn trove bloke vivid spill chant choke rupee nasty mourn
    ahead brine cloth hoard sweet month lapse watch today focus
    smelt tease cater movie lynch saute allow renew their slosh
    purge chest depot epoxy nymph found shall harry stove lowly
    snout trope fewer shawl natal fibre comma foray scare stair
    black squad royal chunk mince slave shame cheek ample flair
    foyer cargo oxide plant olive inert askew heist shown zesty
    hasty trash fella larva forgo story hairy train homer badge
    midst canny fetus butch farce slung tipsy metal yield delve
    being scour glass gamer scrap money hinge album vouch asset
    tiara crept bayou atoll manor creak showy phase froth depth
    gloom flood trait girth piety payer goose float donor atone
    primo apron blown cacao loser input gloat awful brink smite
    beady rusty retro droll gawky hutch pinto gaily egret lilac
    sever field fluff hydro flack agape wench voice stead stalk
    berth madam night bland liver wedge augur roomy wacky flock
    angry bobby trite aphid tryst midge power elope cinch motto
    stomp upset bluff cramp quart coyly youth rhyme buggy alien
    smear unfit patty cling glean label hunky khaki poker gruel
    twice twang shrug treat unlit waste merit woven octal needy
    clown widow irony ruder gauze chief onset prize fungi charm
    gully inter whoop taunt leery class theme lofty tibia booze
    alpha thyme eclat doubt parer chute stick trice alike sooth
    recap saint liege glory grate admit brisk soggy usurp scald
    scorn leave twine sting bough marsh sloth dandy vigor howdy
    enjoy valid ionic equal unset floor catch spade stein exist
    quirk denim grove spiel mummy fault foggy flout carry sneak
    libel waltz aptly piney inept aloud photo dream stale vomit
    ombre fanny unite snarl baker there glyph pooch hippy spell
    folly louse gulch vault godly threw fleet grave inane shock
    crave spite valve skimp claim rainy musty pique daddy quasi
    arise aging valet opium avert stuck recut mulch genre plume
    rifle count incur total wrest mocha deter study lover safer
    rivet funny smoke mound undue sedan pagan swine guile gusty
    equip tough canoe chaos covet human udder lunch blast stray
    manga melee lefty quick paste given octet risen groan leaky
    grind carve loose sadly spilt apple slack honey final sheen
    eerie minty slick derby wharf spelt coach erupt singe price
    spawn fairy jiffy filmy stack chose sleep ardor nanny niece
    woozy handy grace ditto stank cream usual diode valor angle
    ninja muddy chase reply prone spoil heart shade diner arson
    onion sleet dowel couch palsy bowel smile evoke creek lance
    eagle idiot siren built embed award dross annul goody frown
    patio laden humid elite lymph edify might reset visit gusto
    purse vapor crock write sunny loath chaff slide queer venom
    stamp sorry still acorn aping pushy tamer hater mania awoke
    brawn swift exile birch lucky freer risky ghost plier lunar
    winch snare nurse house borax nicer lurch exalt about savvy
    toxin tunic pried inlay chump lanky cress eater elude cycle
    kitty boule moron tenet place lobby plush vigil index blink
    clung qualm croup clink juicy stage decay nerve flier shaft
    crook clean china ridge vowel gnome snuck icing spiny rigor
    snail flown rabid prose thank poppy budge fiber moldy dowdy
    kneel track caddy quell dumpy paler swore rebar scuba splat
    flyer horny mason doing ozone amply molar ovary beset queue
    cliff magic truce sport fritz edict twirl verse llama eaten
    range whisk hovel rehab macaw sigma spout verve sushi dying
    fetid brain buddy thump scion candy chord basin march crowd
    arbor gayly musky stain dally bless bravo stung title ruler
    kiosk blond ennui layer fluid tatty score cutie zebra barge
    matey bluer aider shook river privy betel frisk bongo begun
    azure weave genie sound glove braid scope wryly rover assay
    ocean bloom irate later woken silky wreck dwelt slate smack
    solid amaze hazel wrist jolly globe flint rouse civil vista
    relax cover alive beech jetty bliss vocal often dolly eight
    joker since event ensue shunt diver poser worst sweep alley
    creed anime leafy bosom dunce stare pudgy waive choir stood
    spoke outgo delay bilge ideal clasp seize hotly laugh sieve
    block meant grape noose hardy shied drawl daisy putty strut
    burnt tulip crick idyll vixen furor geeky cough naive shoal
    stork bathe aunty check prime brass outer furry razor elect
    evict imply demur quota haven cavil swear crump dough gavel
    wagon salon nudge harem pitch sworn pupil excel stony cabin
    unzip queen trout polyp earth storm until taper enter child
    adopt minor fatty husky brave filet slime glint tread steal
    regal guest every murky share spore hoist buxom inner otter
    dimly level sumac donut stilt arena sheet scrub fancy slimy
    pearl silly porch dingo sepia amble shady bread friar reign
    dairy quill cross brood tuber shear posit blank villa shank
    piggy freak which among fecal shell would algae large rabbi
    agony amuse bushy copse swoon knife pouch ascot plane crown
    urban snide relay abide viola rajah straw dilly crash amass
    third trick tutor woody blurb grief disco where sassy beach
    sauna comic clued creep caste graze snuff frock gonad drunk
    prong lurid steel halve buyer vinyl utile smell adage worry
    tasty local trade finch ashen modal gaunt clove enact adorn
    roast speck sheik missy grunt snoop party touch mafia emcee
    array south vapid jelly skulk angst tubal lower crest sweat
    cyber adore tardy swami notch groom roach hitch young align
    ready frond strap puree realm venue swarm offer seven dryer
    diary dryly drank acrid heady theta junto pixie quoth bonus
    shalt penne amend datum build piano shelf lodge suing rearm
    coral ramen worth psalm infer overt mayor ovoid glide usage
    poise randy chuck prank fishy tooth ether drove idler swath
    stint while begat apply slang tarot radar credo aware canon
    shift timer bylaw serum three steak iliac shirk blunt puppy
    penal joist bunny shape beget wheel adept stunt stole topaz
    chore fluke afoot bloat bully dense caper sneer boxer jumbo
    lunge space avail short slurp loyal flirt pizza conch tempo
    droop plate bible plunk afoul savoy steep agile stake dwell
    knave beard arose motif smash broil glare shove baggy mammy
    swamp along rugby wager quack squat snaky debit mange skate
    ninth joust tramp spurn medal micro rebel flank learn nadir
    maple comfy remit gruff ester least mogul fetch cause oaken
    aglow meaty gaffe shyly racer prowl thief stern poesy rocky
    tweet waist spire grope havoc patsy truly forty deity uncle
    swish giver preen bevel lemur draft slope annoy lingo bleak
    ditty curly cedar dirge grown horde drool shuck crypt cumin
    stock gravy locus wider breed quite chafe cache blimp deign
    fiend logic cheap elide rigid false renal pence rowdy shoot
    blaze envoy posse brief never abort mouse mucky sulky fiery
    media trunk yeast clear skunk scalp bitty cider koala duvet
    segue creme super grill after owner ember reach nobly empty
    speed gipsy recur smock dread merge burst kappa amity shaky
    hover carol snort synod faint haunt flour chair detox shrew
    tense plied quark burly novel waxen stoic jerky blitz beefy
    lyric hussy towel quilt below bingo wispy brash scone toast
    easel saucy value spice honor route sharp bawdy radii skull
    phony issue lager swell urine gassy trial flora upper latch
    wight brick retry holly decal grass shack dogma mover defer
    sober optic crier vying nomad flute hippo shark drier obese
    bugle tawny chalk feast ruddy pedal scarf cruel bleat tidal
    slush semen windy dusty sally igloo nerdy jewel shone whale
    hymen abuse fugue elbow crumb pansy welsh syrup terse suave
    gamut swung drake freed afire shirt grout oddly tithe plaid
    dummy broom blind torch enemy again tying pesky alter gazer
    noble ethos bride extol decor hobby beast idiom utter these
    sixth alarm erase elegy spunk piper scaly scold hefty chick
    sooty canal whiny slash quake joint swept prude heavy wield
    femme lasso maize shale screw spree smoky whiff scent glade
    spent prism stoke riper orbit cocoa guilt humus shush table
    smirk wrong noisy alert shiny elate resin whole hunch pixel
    polar hotel sword cleat mango rumba puffy filly billy leash
    clout dance ovate facet chili paint liner curio salty audio
    snake fable cloak navel spurt pesto balmy flash unwed early
    churn weedy stump lease witty wimpy spoof saner blend salsa
    thick warty manic blare squib spoon probe crepe knack force
    debut order haste teeth agent widen icily slice ingot clash
    juror blood abode throw unity pivot slept troop spare sewer
    parse morph cacti tacky spool demon moody annex begin fuzzy
    patch water lumpy admin omega limit tabby macho aisle skiff
    basis plank verge botch crawl lousy slain cubic raise wrack
    guide foist cameo under actor revue fraud harpy scoop climb
    refer olden clerk debar tally ethic cairn tulle ghoul hilly
    crude apart scale older plain sperm briny abbot rerun quest
    crisp bound befit drawn suite itchy cheer bagel guess broad
    axiom chard caput leant harsh curse proud swing opine taste
    lupus gumbo miner green chasm lipid topic armor brush crane
    mural abled habit bossy maker dusky dizzy lithe brook jazzy
    fifty sense giant surly legal fatal flunk began prune small
    slant scoff torus ninny covey viper taken moral vogue owing
    token entry booth voter chide elfin ebony neigh minim melon
    kneed decoy voila ankle arrow mushy tribe cease eager birth
    graph odder terra weird tried clack color rough weigh uncut
    ladle strip craft minus dicey titan lucid vicar dress ditch
    gypsy pasta taffy flame swoop aloof sight broke teary chart
    sixty wordy sheer leper nosey bulge savor clamp funky foamy
    toxic brand plumb dingy butte drill tripe bicep tenor krill
    worse drama hyena think ratio cobra basil scrum bused phone
    court camel proof heard angel petal pouty throb maybe fetal
    sprig spine shout cadet macro dodgy satyr rarer binge trend
    nutty leapt amiss split myrrh width sonar tower baron fever
    waver spark belie sloop expel smote baler above north wafer
    scant frill awash snack scowl frail drift limbo fence motel
    ounce wreak revel talon prior knelt cello flake debug anode
    crime salve scout imbue pinky stave vague chock fight video
    stone teach cleft frost prawn booty twist apnea stiff plaza
    ledge tweak board grant medic bacon cable brawl slunk raspy
    forum drone women mucus boast toddy coven tumor truer wrath
    stall steam axial purer daily trail niche mealy juice nylon
    plump merry flail papal wheat berry cower erect brute leggy
    snipe sinew skier penny jumpy rally umbra scary modem gross
    avian greed satin tonic parka sniff livid stark trump giddy
    reuse taboo avoid quote devil liken gloss gayer beret noise
    gland dealt sling rumor opera thigh tonga flare wound white
    bulky etude horse circa paddy inbox fizzy grain exert surge
    gleam belle salvo crush fruit sappy taker tract ovine spiky
    frank reedy filth spasm heave mambo right clank trust lumen
    borne spook sauce amber lathe carat corer dirty slyly affix
    alloy taint sheep kinky wooly mauve flung yacht fried quail
    brunt grimy curvy cagey rinse deuce state grasp milky bison
    graft sandy baste flask hedge girly swash boney coupe endow
    abhor welch blade tight geese miser mirth cloud cabal leech
    close tenth pecan droit grail clone guise ralph tango biddy
    smith mower payee serif drape fifth spank glaze allot truck
    kayak virus testy tepee fully zonal metro curry grand banjo
    axion bezel occur chain nasal gooey filer brace allay pubic
    raven plead gnash flaky munch dully eking thing slink hurry
    theft shorn pygmy ranch wring lemon shore mamma froze newer
    style moose antic drown vegan chess guppy union lever lorry
    image cabby druid exact truth dopey spear cried chime crony
    stunk timid batch gauge rotor crack curve latte witch bunch
    repel anvil soapy meter broth madly dried scene known magma
    roost woman thong punch pasty downy knead whirl rapid clang
    anger drive goofy email music stuff bleep rider mecca folio
    setup verso quash fauna gummy happy newly fussy relic guava
    ratty fudge femur chirp forte alibi whine petty golly plait
    fleck felon gourd brown thrum ficus stash decry wiser junta
    visor daunt scree impel await press whose turbo stoop speak
    mangy eying inlet crone pulse mossy staid hence pinch teddy
    sully snore ripen snowy attic going leach mouth hound clump
    tonal bigot peril piece blame haute spied undid intro basal
    shine gecko rodeo guard steer loamy scamp scram manly hello
    vaunt organ feral knock extra condo adapt willy polka rayon
    skirt faith torso match mercy tepid sleek riser twixt peace
    flush catty login eject roger rival untie refit aorta adult
    judge rower artsy rural shave
}

TUPLE: wardle-game secret-word chances guesses ;

: <wardle-game> ( secret-word chances -- wardle-game )
    wardle-game new
        swap >>chances
        swap >>secret-word
        V{ } clone >>guesses ; inline

: guess>chars ( secret guess -- seq )
    [ zip [ first2 = not ] filter keys [ 1string ] map ] 2keep
    [
        [ nip 1string ] [ = ] 2bi
        [ COLOR: green ]
        [ 2dup swap member? [ [ swap remove-first ] [ COLOR: yellow ] bi ] [ COLOR: gray ] if ] if
        background associate 2array
    ] { } 2map-as nip ;

: print-guesses ( game -- )
    [ secret-word>> ] [ guesses>> ] bi [
        guess>chars [ format ] assoc-each nl
    ] with each nl ;

: read-guess ( -- guess )
    readln dup length 5 =
    [ " needs to have 5 letters" append print read-guess ] unless ;

: check-winner? ( game -- ? )
    [ secret-word>> ] [ guesses>> ?last ] bi = ;

: print-secret ( game color -- )
    [ secret-word>> ] [ background associate ] bi* format nl ;

: maybe-stop? ( game -- ? )
    [ guesses>> length ] [ chances>> ] bi >= ;

: play-wardle ( game -- )
    dup maybe-stop? [
        COLOR: red print-secret
    ] [
        [ print-guesses ]
        [ [ read-guess ] dip guesses>> push ]
        [ dup check-winner? [ COLOR: green print-secret ] [ play-wardle ] if ] tri
    ] if ;

: play-random-wardle-game ( -- )
    "monospace" 36 set-listener-font
    wardles random 6 <wardle-game> play-wardle ;

MAIN: play-random-wardle-game