Wordle helper in Dyalog APL

wordle.apl

⍝ Function to say if a given word contains every letter in a set
wordle←∧/∊

⍝ Load dictionary, find 5-letter words, downcase
flw←⎕C words/⍨5=≢¨words←⊃⎕NGET'/usr/share/dict/words'1 

⍝ All 5-letter words containing the letters 'reld'
↑flw/⍨'reld'∘wordle¨flw

alder
daler
duler
elder
idler
lader
lored
older
redly
urled

⍝ A more complete wordle operator
wordle2←{ ⍝ ⍺⍺ -- excluded letters ⍵⍵ -- green letters in the form '.ra.e'
    green←⍵⍵≠'.'
    0=(green/⍵)∧.=green/⍵⍵:0  ⍝ check if all greens match in the correct position
    ~⍺⍺(∨/∊)⍵                 ⍝ discard on the excluded set
}

↑flw/⍨('gzotbpulischynd' wordle2'.ra.e')¨flw

arake
frame