#!/usr/bin/php
<?php
/**
 * Generates F1 statistics from CSV data at (http://f1-facts.com/statistics/drivers).
 * Written by Martin Galpin (http://number66.net)
 */

if(  $argc < 2 ) {
	die( "usage: ./f1stats.php points|wins|poles|fl|pods\n" );
}


// format of $data is:
// 		name1, name2, points, won, poles, fl, pods
$data = "Michael,Schumacher,1301,91,67,76,154
Alain,Prost,768.5,51,32,40,106
Ayrton,Senna,610,41,65,20,80
Rubens,Barrichello,519,9,13,15,61
David,Coulthard,513,13,12,18,61
Nélson,Piquet,481.5,23,24,22,60
Nigel,Mansell,480,31,32,30,59
Mika,Häkkinen,424,20,26,25,51
Niki,Lauda,420.5,25,24,24,54
Gerhard,Berger,384,10,12,21,48
Fernando,Alonso,381,15,15,8,37
Damon,Hill,360,22,20,19,42
Jackie,Stewart,359,27,15,15,43
Kimi,Räikkonen,346,9,12,19,36
Ralf,Schumacher,324,6,6,8,27
Juan Pablo,Montoya,307,7,12,12,30
Carlos,Reutemann,298,12,6,6,45
Emerson,Fittipaldi,281,14,6,6,35
Riccardo,Patrese,281,6,8,13,37
Graham,Hill,270,14,13,10,36
Jim,Clark,255,25,29,28,32
Jack,Brabham,253,14,11,11,31
Denny,Hulme,248,8,1,8,33
Jody,Scheckter,246,10,3,5,33
Giancarlo,Fisichella,246,3,3,2,17
Juan Manuel,Fangio,244.5,24,25,22,35
Jean,Alesi,241,1,2,4,32
Jacques,Villeneuve,234,11,13,9,23
Jacques,Laffite,228,6,7,6,32
Jenson,Button,223,1,3,0,15
Clay,Regazzoni,209,5,5,14,28
Ronnie,Peterson,206,10,14,9,26
Alan,Jones,199,12,6,13,24
Eddie,Irvine,191,4,0,1,26
Bruce,McLaren,188.5,4,0,2,27
Michele,Alboreto,186.5,5,2,5,23
Stirling,Moss,185.7,16,13,16,23
Jacky,Ickx,181,8,13,14,25
René,Arnoux,181,7,18,12,22
John,Surtees,180,6,8,10,24
Mario,Andretti,180,12,18,10,19
James,Hunt,179,10,14,8,23
Heinz-Harald,Frentzen,173,3,2,6,18
Jarno,Trulli,172,1,3,0,7
John,Watson,169,5,2,5,20
Keke,Rosberg,159.5,5,5,3,17
Patrick,Depailler,139,2,1,4,19
Dan,Gurney,133,4,3,6,19
Thierry,Boutsen,132,3,1,1,15
Elio,de Angelis,122,2,3,0,9
Nino,Farina,115.3,5,5,5,19
Mike,Hawthorn,112.7,3,4,5,18
Alberto,Ascari,107.7,13,14,11,17
Jochen,Rindt,107,6,10,3,13
Felipe,Massa,107,2,3,2,7
Patrick,Tambay,103,2,5,2,11
Richie,Ginther,102,1,0,3,14
Gilles,Villeneuve,101,6,2,8,13
Didier,Pironi,101,3,4,5,13
Martin,Brundle,98,0,0,0,9
Johnny,Herbert,97,3,0,0,7
Phil,Hill,94,3,6,5,16
François,Cévert,89,1,0,2,13
Stefan,Johansson,88,0,0,0,12
Chris,Amon,83,0,5,3,11
Nick,Heidfeld,79,0,1,0,5
Jean Pierre,Beltoise,77,1,0,4,8
Olivier,Panis,76,1,0,0,5
Tony,Brooks,75,6,3,3,10
Maurice,Trintignant,72.3,2,0,1,9
Oscar,Gonzalez,72.2,2,3,4,15
Pedro,Rodriguez,71,2,0,1,7
Jochen,Mass,71,1,0,2,8
Derek,Warwick,71,0,0,2,4
Eddie,Cheever,70,0,0,0,9
Mark,Webber,69,0,0,0,1
Jo,Siffert,68,2,2,4,6
Alessandro,Nannini,65,1,0,2,9
Peter,Revson,61,2,1,0,8
Andrea,de Cesaris,59,0,1,1,5
Lorenzo,Bandini,58,1,1,2,8
Carlos,Pace,58,1,1,5,6
Wolfgang,von Trips,56,2,1,0,6
Jean,Behra,53.1,0,0,0,9";

$drivers = array(
	 				"Michael Schumacher" => "Germany",
					"Alain Prost" => "France",
					"Ayrton Senna" => "Brazil",
					"Rubens Barrichello" => "Brazil",
					"David Coulthard" => "Great Britain",
					"Nélson Piquet" => "Brazil",
					"Nigel Mansell" => "Great Britain",
					"Mika Häkkinen" => "Finland" ,
					"Niki Lauda" => "Austria",
					"Gerhard Berger" => "Austria",
					"Fernando Alonso" => "Spain",
					"Damon Hill" => "Great Britain",
					"Jackie Stewart" => "Great Britain",
					"Kimi Räikkonen" => "Finland",
					"Ralf Schumacher" => "Germany",
					"Juan Pablo Montoya" => "Columbia",
					"Carlos Reutemann" => "Argentina",
					"Emerson Fittipaldi" => "Brazil",
					"Riccardo Patrese" => "Italy",
					"Graham Hill" => "Great Britain",
					"Jim Clark" => "Great Britain",
					"Jack Brabham" => "Australia",
					"Denny Hulme" => "New Zealand",
					"Jody Scheckter" => "South Africa",
					"Giancarlo Fisichella" => "Italy",
					"Juan Manuel Fangio" => "Argentina",
					"Jean Alesi" => "France",
					"Jacques Villeneuve" => "Canada",
					"Jacques Laffite" => "France",
					"Jenson Button" => "Great Britain",
					"Clay Regazzoni" => "Switzerland",
					"Ronnie Peterson" => "Sweden",
					"Alan Jones" => "Australia",
					"Eddie Irvine" => "Great Britain",
					"Bruce McLaren" => "New Zealand",
					"Michele Alboreto" => "Italy",
					"Stirling Moss" => "Great Britain",
					"Jacky Ickx" => "Belguim",
					"René Arnoux" => "France",
					"John Surtees" => "Great Britain",
					"Mario Andretti" => "USA",
					"James Hunt" => "Great Britain",
					"Heinz-Harald Frentzen" => "Germany",
					"Jarno Trulli" => "Italy",
					"John Watson" => "Great Britain",
					"Keke Rosberg" => "Finland",
					"Patrick Depailler" => "France",
					"Dan Gurney" => "USA",
					"Thierry Boutsen" => "Belguim",
					"Elio de Angelis" => "Italy",
					"Nino Farina" => "Italy",
					"Mike Hawthorn" => "Great Britain",
					"Alberto Ascari" => "Italy",
					"Jochen Rindt" => "Austria",
					"Felipe Massa" => "Brazil",
					"Patrick Tambay" => "France",
					"Richie Ginther" => "USA",
					"Gilles Villeneuve" => "Canada",
					"Didier Pironi" => "France",
					"Martin Brundle" => "Great Britain",
					"Johnny Herbert" => "Great Britain", 
					"Phil Hill" => "USA",
					"François Cévert" => "France",
					"Stefan Johansson" => "Sweden",
					"Chris Amon" => "New Zealand",
					"Nick Heidfeld" => "Germany",
					"Jean Pierre Beltoise" => "France",
					"Olivier Panis" => "France",
					"Tony Brooks" => "Great Britain",
					"Maurice Trintignant" => "France",
					"Oscar Gonzalez" => "Mexico",
					"Pedro Rodriguez" => "Mexico",
					"Jochen Mass" => "Germany",
					"Derek Warwick" => "Great Britain",
					"Eddie Cheever" => "USA",
					"Mark Webber" => "Australia",
					"Jo Siffert" => "Switzerland", 
					"Alessandro Nannini" => "Italy",
					"Peter Revson" => "USA",
					"Andrea de Cesaris" => "Italy",
					"Lorenzo Bandini" => "Italy",
					"Carlos Pace" => "Brazil",
					"Wolfgang von Trips" => "Germany",
					"Jean Behra" => "France"
				 );





// the analysis code
$datar = explode( "\n", $data );

// the formatted version of $datar
$formattedr = array();
// the list of nations (to be populated later)
$nations = array();

foreach( $datar as $l ) {
	$l = explode( ",", $l );
	$formattedr[] = array(
							"name" => $l[0]." ".$l[1],
							"points" => $l[2],
							"wins" => $l[3],
							"poles" => $l[4],
							"fl" => $l[5],
							"pods" => $l[6]
						);	
}

// populate all of the statistics for each nation
foreach( $formattedr as $driver ) {
	$this_nat = $drivers[$driver['name']]; // this drivers nationality
	
	// start a new nation if it hasn't been done already
	if( !isset( $nations[$this_nat] ) ) {
		//print( $this_nat." & ".$driver['name'] ."\n" );
		$nations[$this_nat] = array(
									"nation" => $this_nat,
									"points" => 0,
									"wins" => 0,
									"poles" => 0,
									"fl" => 0,
									"pods" => 0 );
	}
	
	// add this drivers statistics
	$nations[$this_nat]['points'] += $driver['points'];
	$nations[$this_nat]['wins'] += $driver['wins'];
	$nations[$this_nat]['poles'] += $driver['poles'];
	$nations[$this_nat]['fl'] += $driver['fl'];
	$nations[$this_nat]['pods'] += $driver['pods'];
}

// we need a list of columns to really sort
// Obtain a list of columns
foreach ($nations as $key => $row) {
   $nation[$key]  = $row['nation'];
   $points[$key] = $row['points'];
   $wins[$key] = $row['wins'];
   $poles[$key] = $row['poles'];
   $fl[$key] = $row['fl'];
   $pods[$key] = $row['pods'];

}


// do the actual sorting
switch( $argv[1] ) {
	case "points":
		if( array_multisort ( $points, SORT_DESC, $nations ) ) {

			foreach( $nations as $nation )
				print( $nation['nation']." ".$nation['points']."\n" );

		} else {
			die( "Couldn't sort array :-(\n" );
		}
		
	
	break;
	
	case "wins":
		if( array_multisort ( $wins, SORT_DESC, $nations ) ) {

			foreach( $nations as $nation )
				print( $nation['nation']." ".$nation['wins']."\n" );

		} else {
			die( "Couldn't sort array :-(\n" );
		}
	break;
	
	case "poles":
		if( array_multisort ( $poles, SORT_DESC, $nations ) ) {

			foreach( $nations as $nation )
				print( $nation['nation']." ".$nation['poles']."\n" );

		} else {
			die( "Couldn't sort array :-(\n" );
		}
	break;
	
	case "fl":
		if( array_multisort ( $fl, SORT_DESC, $nations ) ) {

			foreach( $nations as $nation )
				print( $nation['nation']." ".$nation['fl']."\n" );

		} else {
			die( "Couldn't sort array :-(\n" );
		}
	break;
	
	
	case "pods":
		if( array_multisort ( $pods, SORT_DESC, $nations ) ) {

			foreach( $nations as $nation )
				print( $nation['nation']." ".$nation['pods']."\n" );

		} else {
			die( "Couldn't sort array :-(\n" );
		}
	break;
	
	default:
		die( "Invalid choice.\n");
}

?>