Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let diffPolyMap(Poly(map)) =
- Poly((Map.ofList << List.choose (fun (pow, v) -> if pow = 0 then None else Some (pow-1, float pow*v)) << Map.toList) map)
- let newDiff map =
- Map.foldBack (fun k v acc -> if k > 0 then addToMap (k-1) (float k * v) acc else acc) map Map.empty
- let newDiff2 map =
- Map.foldBack (fun k v (acc : Map<int,float>) -> if k > 0 then acc.Add((k-1),(float k*v)) else acc) map Map.empty
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement