Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let euler11 =
- let numGrid = ProblemData.Euler11NumberGrid // a 20x20 Array2D
- let dimensionLengths = Array2D.length1 numGrid
- let highestProd = ref 0
- Array2D.iteri (fun x y elem ->
- if (findBestProductFromPoint x y numGrid) > !highestProd then
- highestProd := (findBestProductFromPoint x y numGrid)) numGrid
- !highestProd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement