FPEvalDataset/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6 7    (* Program end *)8 9    (* Test cases *)10    11let test1 _ = assert_equal 18 (maximizeSum [1;2;3;4;5] 3)12 13let test2 _ = assert_equal 11 (maximizeSum [5;5;5] 2)14 15let test3 _ = assert_equal 8580 (maximizeSum [49; 90; 3; 56; 32; 100; 38; 12; 5; 5; 90; 14; 20; 83; 97; 40; 69; 52; 50; 24; 82; 83; 2; 35; 20; 45; 36; 69; 22; 14; 35; 76; 50] 65)16 17let test4 _ = assert_equal 2233 (maximizeSum [44; 73; 34; 84; 91; 13; 23; 46; 6; 14; 30; 85; 75; 70; 79; 7; 60; 30; 57; 27; 59; 49] 22)18 19let test5 _ = assert_equal 9230 (maximizeSum [81; 14; 40; 34; 54; 23; 63; 65; 84; 84; 4; 37; 88; 41; 8; 33; 54; 18; 49; 67; 85; 37; 78; 46; 38; 80; 13; 77; 93; 5; 3; 12; 89; 36; 44; 63; 41; 22; 95; 86; 11; 44; 74; 82; 48; 57; 90; 35; 44; 46; 71; 66; 6; 3; 1; 26; 38; 47; 70; 24; 3; 54; 67; 48; 89; 4; 57; 41; 69; 77; 24; 74; 26; 78; 67; 22; 84] 71)20 21let test6 _ = assert_equal 7453 (maximizeSum [12; 50; 78; 77; 47; 31; 50; 24; 58; 8; 53; 44; 27; 74; 1; 64; 44; 64; 87; 93; 1; 71; 56; 29; 35; 99; 95; 57; 86; 90; 78; 95; 29; 1; 26; 5; 51; 43; 84; 58; 29; 66; 74; 36; 6; 69; 67; 63; 2; 77; 47; 12; 22; 13; 13; 100; 66; 92; 32; 76; 66; 71; 40; 64; 63; 76; 7; 2; 100; 5; 53; 14; 21; 44; 37; 21; 97; 38; 31; 22] 58)22 23let test7 _ = assert_equal 9975 (maximizeSum [3; 69; 95; 56; 57; 13; 12; 63; 17; 22; 96; 67; 5; 32; 79; 5; 43; 39; 26; 53; 32; 82; 95; 1; 68; 94; 21; 93; 54; 75; 36; 19; 43; 93; 5; 16; 28; 84; 17; 44; 11; 96; 73; 37; 54; 92; 79; 56; 58; 33; 82; 67; 44; 82; 41; 83; 55; 42; 16; 46] 75)24 25let test8 _ = assert_equal 1530 (maximizeSum [47; 16; 81; 75; 82; 87; 11; 52; 71; 8; 61; 31; 52; 38; 55; 74; 89; 15; 9; 49; 48; 87; 36; 84; 45; 77; 92; 24; 37; 64; 40; 29; 18; 87; 95; 80; 41; 84; 12; 76; 75; 90; 13; 65; 84] 15)26 27let test9 _ = assert_equal 500 (maximizeSum [98; 56; 51; 95; 91; 66; 51; 40; 34; 51; 7; 48; 37; 61] 5)28 29let test10 _ = assert_equal 10200 (maximizeSum [70; 63; 30; 79; 46; 21; 18; 4; 3; 90; 10; 4; 66; 49; 80; 59; 44; 75; 22; 80; 14; 26; 52; 13; 1; 45; 94; 34; 18; 64; 64; 99; 46; 77; 4; 16; 98; 26; 21; 28; 94; 97; 96; 64; 55; 17; 43; 50; 88; 36; 92; 81; 9; 46; 64; 98; 52; 52; 90; 71; 83; 14; 55; 29; 58; 79; 24; 98; 9; 3; 21; 61; 46; 83; 52; 79; 65; 44; 94; 81; 17; 52; 72; 50; 35; 20; 36; 95; 84] 75)30 31 32    (* Grouping test cases *)33    let suite = "Test Suite for maximizeSum" >::: [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