I was able to get here:

#light

type review(critic : string, movie : string, rating : int) =
member p.Critic = critic
member p.Movie = movie
member p.Rating = rating

let Reviews = [ new review("CriticA", "MovieA", 40);
new review("CriticA", "MoviewB", 15);
new review("CriticB", "MoviewA", 9);
new review("CriticB", "MovieB", 20); ]

let result =
Reviews
|> Seq.groupBy (fun x -> x.Critic)
|> Seq.map (function a,b -> (a, [for i in b -> i.Movie,i.Rating]))

But need it to be in Map(string,Map(string,float)).

Any ideas?

By on 9/19/2011 10:05 AM ()
IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy
Built with WebSharper