sudipto80/rmse.fs

## rmse.fs
//root mean squared error
let rmse(ratings:float list)(predictions:float list) =
      sqrt(( List.zip ratings predictions |> List.map (fun t -> fst t - snd t) |> List.sum )
          /(float predictions.Length ))

rmse [1.3;4.5] [4.1;0.41] |> Dump
	//root mean squared error
	let rmse(ratings:float list)(predictions:float list) =
	sqrt(( List.zip ratings predictions \|> List.map (fun t -> fst t - snd t) \|> List.sum )
	/(float predictions.Length ))

	rmse [1.3;4.5] [4.1;0.41] \|> Dump