project euler #22

euler22.awk

# http://projecteuler.net/index.php?section=problems&id=22

BEGIN {RS=",";}

{
  gsub(/"/, "", $1);
  names[NR] = $1
}

END {
  table="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  asort(names);

  for(i = 1; i <= length(names); i += 1) {
    worth = 0;
    for(j = 1; j <= length(names[i]); j += 1) {
      worth = worth + index(table, substr(names[i],j,1));
    }   

    total += worth * i;
  }

  print total;
}