Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

动态规划解第18题

  • Loading branch information...
commit 9ad3e52b0c5a2ee098810caf02f3b3b5655aa985 1 parent 201eedd
@Liutos authored
Showing with 27 additions and 0 deletions.
  1. +27 −0 ocaml/pro18.ml
View
27 ocaml/pro18.ml
@@ -0,0 +1,27 @@
+let data =
+ [|[|75|];
+ [|95; 64|];
+ [|17; 47; 82|];
+ [|18; 35; 87; 10|];
+ [|20; 04; 82; 47; 65|];
+ [|19; 01; 23; 75; 03; 34|];
+ [|88; 02; 77; 73; 07; 63; 67|];
+ [|99; 65; 04; 28; 06; 16; 70; 92|];
+ [|41; 41; 26; 56; 83; 40; 80; 70; 33|];
+ [|41; 48; 72; 33; 47; 32; 37; 16; 94; 29|];
+ [|53; 71; 44; 65; 25; 43; 91; 52; 97; 51; 14|];
+ [|70; 11; 33; 28; 77; 73; 17; 78; 39; 68; 17; 57|];
+ [|91; 71; 52; 38; 17; 14; 91; 43; 58; 50; 27; 29; 48|];
+ [|63; 66; 04; 68; 89; 53; 67; 30; 73; 16; 69; 87; 40; 31;|];
+ [|04; 62; 98; 27; 23; 09; 70; 98; 73; 93; 38; 53; 60; 04; 23|]|];;
+
+let pro18 tri =
+ for i=Array.length tri - 2 downto 0 do
+ for j=0 to i do
+ tri.(i).(j) <- max tri.(i+1).(j) tri.(i+1).(j+1) + tri.(i).(j)
+ done
+ done;
+ tri.(0).(0);;
+
+print_int (pro18 data);;
+print_newline ();;
Please sign in to comment.
Something went wrong with that request. Please try again.