Find top student from three test marks

Question

First save the following text into a file called marks.csv

Smith,6,9,24
Jones,9,12,20
Fred,5,9,20

Each line contains a students name and three marks they scored. Find the top student by simply summing the three marks and then output their name. In this case the output is:

Jones

I would like to see somebody beat my Python solution but any language will be allowed :) If anybody beats my Python solution I will accept their answer but for now I will just accept the shortest code.

Answer 1

K, 37

m[0;*>+/1_m:("SIII";",")0:`marks.csv]

Answer 2

Cat (5 characters)

Jones

You don't specify that the code has to work on other datasets as well ;-)

Save code in a file FILE and execute with:

cat FILE

Answer 3

Mathematica, 44

SortBy[Tr/@Import@"marks.csv",First][[-1,2]]

If I were allowed to save the data in Mathematica's native format in a file named z I could use:

SortBy[Tr/@<<z,First][[-1,2]]

Answer 4

Ruby 1.9 (71 62)

$><<open('marks.csv').max_by{|l|eval l[/,.*/].tr ?,,?+}[/\w+/]

Answer 5

PHP, 103 95

I know PHP is not the best tool for this problem, however I would appreciate any tip to improve my answer :)

First version (103)

<?$h=fopen('marks.csv','r');for(;$f=fgetcsv($h);$m[$f[0]]=array_sum($f));echo array_search(max($m),$m);

Improved version, inspired by @Leigh's solution (95) - considering low error level:

<?$h=fopen('marks.csv',r);for(;$f=fgetcsv($h);$m[array_sum($f)]=$f[0]);ksort($m);echo end($m);

Easier to read version:

<?
$h=fopen('marks.csv',r);
for(; $f=fgetcsv($h); $m[$f[0]]=array_sum($f));
echo array_search(max($m),$m);

Thanks

Answer 6

PHP, 97 93

Original

foreach(file('marks.csv')as$l){$x=str_getcsv($l);$r[array_sum($x)]=$x[0];}ksort($r);echo end($r);

Inspired by milo5b

for($f=fopen('marks.csv','r');$l=fgetcsv($f);)$r[array_sum($l)]=$l[0];ksort($r);echo end($r);

And how to run without tags.

cat golf.php | php -a

Answer 7

Mathematica 59 49 53 chars

Sort[{Tr@Rest@#, #[[1]]} & /@ Import@"marks.csv"][[-1, 2]]

Because csv is a subject to various interpretations, I'm including the exact file contents of o.csv:

{{"Smith", 6, 9, 24}, {"Jones", 9, 12, 20}, {"Fred", 5, 9, 20}}

Answer 8

Python, 82

print max((sum(eval(m)),n)for n,m in(l.split(',',1)for l in open("marks.csv")))[1]

Answer 9

R, 58

j=read.csv("marks.csv",F);j[which.max(rowSums(j[,2:4])),1]

Alternatively (62 characters):

j=read.csv("marks.csv",F);j[which.max(apply(j[,2:4],1,sum)),1]

Answer 10

Awk, 64

$ awk -F, '{s=$2+$3+$4;if(s>m){m=s;n=$1}}END{print n}' marks.csv

Answer 11

k (47 chars)

Allows for ties

(*x)'&(|/i)=i:+/'+:1_x:("SIII";",")0:`marks.csv

Answer 12

This might be orthodox and first of it kind on Code golf. Below will work find under circumstances where CSV file - been imported into as a table ( External Table) on Oracle.

M := Marks.csv Table a-d := CSV Fields

PLSQL 60 Characters

SELECT a,max(b+c+d) FROM M WHERE ROWNUM<=1 GROUP BY a,b,c,d;

Answer 13

C# Two different versions

Version:1 245 Characters

using System;using System.Linq;namespace X{class Y{static void Main(){Console.Write((from l in System.IO.File.ReadAllLines("m.csv")let x =l.Split(',')select new{f=x[0],a=x.Skip(1).Sum(Z=>Int32.Parse(Z))}).OrderByDescending(p=>p.a).First().f);}}}

Version:2 214 Characters

using System;using System.Linq;namespace X{class Y{static void Main(){Console.Write(System.IO.File.ReadAllLines("m.csv").OrderByDescending(z=>z.Split(',').Skip(1).Sum(y=>Int32.Parse(y))).First().Split(',')[0]);}}}