On Nov 10, 2007 11:54 AM, Ryan Bloor
hiya
I was wondering how I would get the second function do recursively do the function for poolNews xs.... tried that and it fails.
Ryan
--Give wins, draws a rating.
poolNews :: Result *->* PoolNews *->* PoolNews
poolNews (a,b,c,d,e) (home,away,goaless,scoredraw)
| c > d = (home+1,away,goaless,scoredraw)
| c < d = (home,away+1,goaless,scoredraw)
|(c == 0) && (d == 0) = (home+1,away,goaless+1,scoredraw)
| *otherwise* = (home,away,goaless,scoredraw+1)
--Do for all Results
poolNewsB :: Results *->* PoolNews poolNewsB (x:xs) = poolNews x (0,0,0,0)
As Andrew points out, really what you want is a fold. However, perhaps you're not supposed to use such Prelude functions in your assignment? The real issue here is that your definition of poolNewsB does not do anything with xs. You need to somehow incorportate a recursive call that will process the rest of the list (xs) as well as the first item (x). Hope that helps! -Brent