basketball.hs

breakingRecords :: [Int] -> [Int]

updateMinMax [maxRec,minRec,max, min] score = 
  [newMaxRec,newMinRec,newMax,newMin]
  where
    newMax = if score > max then score else max
    newMin = if score < min then score else min
    newMaxRec = if newMax > max then (maxRec + 1) else maxRec
    newMinRec = if newMin < min then (minRec + 1) else minRec

breakingRecords scores = take 2 $ foldl updateMinMax [0,0,head scores, head scores] scores

main = interact $ unwords . map show . breakingRecords . map read . tail . words