Letter frequency: Difference between revisions

m
Line 376:
<lang j>require 'files' NB. define fread
ltrfreq=: 3 : 0
letters=. 'A'u: +&.(u:inv'A') u:+ i.26 NB. upper case letters
<: #/.~ (toupper fread y) (,~ -. -.) letters
)</lang>
6,962

edits