say <Yes No>[4>[+] @($/=sort +<<words)Z==$0..$3]