Wordle comparison: Difference between revisions

Content added Content deleted
m (→‎{{header|Phix}}: I'm really not with it today...)
m (→‎{{header|Quackery}}: tweak to code)
Line 174: Line 174:
<lang Quackery> [ tuck witheach
<lang Quackery> [ tuck witheach
[ over i^ peek = if
[ over i^ peek = if
[ 2 rot i^ poke swap
[ 2 rot i^ poke
0 swap i^ poke ] ]
0 rot i^ poke ] ]
witheach
witheach
[ over find
[ over find
Line 182: Line 182:
else drop ]
else drop ]
[] swap witheach
[] swap witheach
[ dup 3 < * join ] ] is wordle-compare ( $ $ --> [ )
[ dup 3 < * join ] ] is wordle-compare ( $ $ --> [ )
$ "ALLOW" $ "LOLLY" wordle-compare echo cr
$ "ALLOW" $ "LOLLY" wordle-compare echo cr