path: root/challenge-038/aecepoglu/bqn/ch-2.bqn

dat←⟨"a8"‿"g3"‿"i5"‿"s7"‿"u5"‿"x2"‿"z5",
 "e9"‿"j3"‿"l3"‿"r3"‿"v3"‿"y5",
 "f3"‿"d3"‿"p5"‿"w5",
 "b5"‿"n4",
 "t5"‿"o3"‿"h3"‿"m4"‿"c4",
 "k2"‿"q2"⟩
>n‿a‿v←<˘⍉(⍋1⊸⊑⎉1)⊸⊏>∾´1‿2‿3‿4‿5‿10∾¨¨(⊑⋈'0'-˜1⊸⊑)¨¨dat # counts‿letters‿values
w←(∧´n≥·+˝∘⍉a=⌜⊢)¨⊸/(∧´1="a{"⊸⍋)¨⊸/ (7≥≠¨)⊸/ •FLines"/usr/share/dict/american-english"
w/˜⌈´⊸=(+´v⊏˜-⟜'a')¨w