rendered paste bodymodule Third where
-- football pools exercise
-- results given originally as a list of Strings
-- each result starts with the match No.
type RStrings = [String]
rslis :: RStrings
rslis = ["1 West_Brom 1 1 Fulham",
"2 Crystal_Palace 1 2 Man_City",
"3 Norwich 0 0 Aston_Villa",
"4 Blackburn 1 0 Portsmouth",
"5 Birmingham 1 1 Charlton",
"6 Arsenal 2 2 Bolton",
"7 Sunderland 3 1 Preston",
"8 Brighton 2 3 QPR",
"9 Leicester_City 0 0 Burnley",
"10 Wigan_Athletic 4 0 Sheff_Utd",
"11 Stoke_City 0 0 Nottm_Forest",
"12 Cardiff_City 0 2 Derby_County",
"13 Reading 3 1 Gillingham",
"14 Crewe 2 2 Leeds_United",
"15 Coventry_City 0 0 Rotherham_Utd",
"16 Plymouth 1 2 Wolves",
"17 West_Ham_Utd 1 1 Ipswich_Town",
"18 Blackpool 1 1 Swindon_Town",
"19 Bradford_City 4 1 Bristol_City",
"20 Hartlepool 4 1 Torquay_United",
"21 Huddersfield 0 2 Barnsley",
"22 Stockport 1 3 Luton_Town",
"23 Doncaster 1 1 Oldham",
"24 Brentford 1 0 Port_Vale",
"25 Sheff_Wed 0 1 Bournemouth",
"26 Chesterfield 1 0 Walsall",
"27 Colchester 0 1 Milton_Keynes",
"28 Peterborough 2 3 Hull_City",
"29 Tranmere 1 1 Wrexham",
"30 Notts_County 1 2 Southend_Utd",
"31 Boston_United 2 2 Shrewsbury",
"32 Rushden 1 0 Cheltenham",
"33 Bury 0 1 Scunthorpe_Utd",
"34 Grimsby_Town 2 0 Leyton_Orient",
"35 Bristol_Rovers 0 0 Lincoln_City",
"36 Wycombe 0 1 Swansea_City",
"37 Mansfield_Town 1 0 Rochdale",
"38 Yeovil 6 1 Oxford_Utd",
"39 Kidderminster 1 0 Macclesfield",
"40 Darlington 1 1 Northampton",
"41 Chester 0 0 Cambridge_Utd"]
type Results = [(Int,String,Int,Int,String)]
RStrings2Results :: RStrings -> Results
RStrings2Results rs = map (
let l = words
in (l!!1,l!!2,l!!3,l!!4,l!!5)
) rs