FPEvalDataset/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6 7    (* Program end *)8 9    (* Test cases *)10    11let test1 _ = assert_equal 6 (maximumValueSum [1;2;1] 3 [[0;1];[0;2]])12 13let test2 _ = assert_equal 9 (maximumValueSum [2;3] 7 [[0;1]])14 15let test3 _ = assert_equal 42 (maximumValueSum [7;7;7;7;7;7] 3 [[0;1];[0;2];[0;3];[0;4];[0;5]])16 17let test4 _ = assert_equal 10809396445 (maximumValueSum [977538041; 914985843; 221838576; 501483518; 488047899; 707773864; 824502743; 115109856; 140156554; 10586824; 50988438; 577753314; 285640935; 817005225; 299414865; 884300312; 659005571; 683658123] 220908190 [[0; 1]; [1; 2]; [2; 3]; [1; 4]; [4; 5]; [5; 6]; [3; 7]; [1; 8]; [8; 9]; [1; 10]; [10; 11]; [7; 12]; [8; 13]; [7; 14]; [11; 15]; [11; 16]; [10; 17]])18 19let test5 _ = assert_equal 14404175351 (maximumValueSum [949981876; 11477663; 618727282; 869248515; 954828286; 963523325; 746318200; 14800663; 364276796; 12281068; 398856652; 421492724; 555042350; 87423989; 10573301; 636578468; 292942321; 225186788] 763265655 [[0; 1]; [0; 2]; [2; 3]; [2; 4]; [2; 5]; [2; 6]; [2; 7]; [3; 8]; [4; 9]; [2; 10]; [5; 11]; [9; 12]; [9; 13]; [5; 14]; [2; 15]; [1; 16]; [14; 17]])20 21let test6 _ = assert_equal 16066485697 (maximumValueSum [745311166; 850593829; 117376415; 112862397; 220549307; 911445538; 834876316; 849475440; 81818436; 406272938; 128674880; 833156998; 214081401; 606693707; 796952554; 274223460; 426632282; 314538858; 518198322; 575086589] 968161642 [[0; 1]; [0; 2]; [2; 3]; [2; 4]; [2; 5]; [4; 6]; [4; 7]; [5; 8]; [1; 9]; [8; 10]; [2; 11]; [6; 12]; [10; 13]; [7; 14]; [4; 15]; [6; 16]; [7; 17]; [0; 18]; [0; 19]])22 23let test7 _ = assert_equal 3959341884 (maximumValueSum [44291611; 386215946; 375861387; 504839330; 84457102; 951788380; 827948560; 246022760] 310790086 [[0; 1]; [1; 2]; [1; 3]; [3; 4]; [0; 5]; [4; 6]; [4; 7]])24 25let test8 _ = assert_equal 7583473179 (maximumValueSum [391658618; 10284122; 964167617; 293237510; 906154707; 888486155; 390244058; 246905744; 453161757; 289165279; 993194070; 458759549; 870761519] 91858911 [[0; 1]; [0; 2]; [1; 3]; [0; 4]; [0; 5]; [0; 6]; [0; 7]; [6; 8]; [5; 9]; [9; 10]; [6; 11]; [3; 12]])26 27let test9 _ = assert_equal 13239291355 (maximumValueSum [53742462; 631248016; 157640466; 540450446; 197211472; 908831573; 636352024; 681393970; 968786857; 802549093; 344688510; 537896129; 227515237; 662975492; 951612635; 253708898; 187242418; 354643418; 814465367] 388231932 [[0; 1]; [1; 2]; [0; 3]; [2; 4]; [1; 5]; [4; 6]; [3; 7]; [2; 8]; [4; 9]; [1; 10]; [6; 11]; [7; 12]; [9; 13]; [12; 14]; [0; 15]; [11; 16]; [15; 17]; [17; 18]])28 29let test10 _ = assert_equal 9227506124 (maximumValueSum [758447137; 880113334; 787117314; 856409518; 206165459; 211673441; 263751924; 50113537; 365786360; 973281897; 802884572; 115956002; 959594603; 369557175; 466404199] 527701175 [[0; 1]; [1; 2]; [0; 3]; [3; 4]; [4; 5]; [3; 6]; [0; 7]; [4; 8]; [0; 9]; [0; 10]; [3; 11]; [5; 12]; [5; 13]; [9; 14]])30 31 32    (* Grouping test cases *)33    let suite = "Test Suite for maximumValueSum" >::: [34        35  "test1" >:: test1;36  "test2" >:: test2;37  "test3" >:: test3;38  "test4" >:: test4;39  "test5" >:: test5;40  "test6" >:: test6;41  "test7" >:: test7;42  "test8" >:: test8;43  "test9" >:: test9;44  "test10" >:: test10;45    ]46 47 48    (* Running the tests *)49    let () = run_test_tt_main suite50end51