path: root/problem22.ijs

sep =. '","'
trim =. }:&}.
names =. ([:/:~sep&splitstring&trim&fread) 'p022_names.txt'
val =. [: +/ _64 + a.&i.
ix =. [:>:[:I.E.&names&<
nr =. val*ix
problem22 =: +/;nr each names