hw7.icl

module hw7
import StdEnv

occurences :: [Int] Int -> [[Int]]
occurences [] i = []
occurences x i = [[hd x] ++ [count] ++ [freq] ] ++ occurences ( filter ( (<>) (hd x) ) (tl x) ) i
where 
	count = length( filter( (==) (hd x) ) x )
	freq = count * 100 / i

MakeFrequenceTable :: [Int] -> [[Int]]
MakeFrequenceTable [] = [] 
MakeFrequenceTable x = occurences x (length x)

Start = MakeFrequenceTable [1,3,2,3,2] // [[1,1,20],[3,2,40],[2,2,40]]