RosettaCodeData/Task/CSV-data-manipulation/Haskell/csv-data-manipulation-3.hs

mirror of https://github.com/acmeism/RosettaCodeData.git
sampleSum = sample <||> (mkRow ["SUM"] <==> mkColumn sums)
  where sums = map (show . sum) (read <$$> drop 1 (values sample))
	`sampleSum = sample <\|\|> (mkRow ["SUM"] <==> mkColumn sums)`
	`where sums = map (show . sum) (read <$$> drop 1 (values sample))`