TheRealSamuel/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let subarraySum (nums: int list) : int =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal 11 (subarraySum [2;3;1])13 14let test2 _ = assert_equal 13 (subarraySum [3;1;1;2])15 16let test3 _ = assert_equal 13 (subarraySum [49; 985; 533; 224; 602; 116; 615; 938; 668; 974; 622; 437; 930; 129; 165; 665; 812; 546; 478; 327; 547; 84; 397; 546; 45; 40; 14; 37; 87; 2; 391; 957; 835; 180; 944; 950; 843; 960; 962; 726; 96; 480; 842; 492; 992; 687])17 18let test4 _ = assert_equal 13 (subarraySum [582; 41; 803; 568; 745; 96; 718; 367; 192; 344; 927; 340; 297; 315; 481; 8; 969; 320; 283; 565; 607; 703; 734; 31; 728; 735; 34; 897; 171; 344; 570; 513; 731; 570; 736; 754; 919; 866; 380; 641; 147])19 20let test5 _ = assert_equal 13 (subarraySum [428; 632; 781; 464; 958; 596; 612; 900; 545; 579; 435; 357; 748; 84; 548; 152; 754; 782; 436; 156; 175; 549; 318; 793; 990; 881; 304; 491; 634; 117; 553; 65; 737; 638; 529; 272; 935; 922])21 22let test6 _ = assert_equal 13 (subarraySum [640; 345; 535; 711; 195; 114; 123; 973; 274; 356; 846; 230; 90; 592; 486; 809; 786; 684; 908; 576; 424; 541; 699; 327; 940; 654; 438; 91; 831; 531; 423; 535; 79; 72; 450; 192; 802; 587; 704; 75; 972; 607; 85; 280; 792; 21; 839; 846; 263; 925; 438; 531; 508; 676; 151; 805; 475; 164; 973; 667; 564; 915; 781; 859; 567; 230; 300])23 24let test7 _ = assert_equal 13 (subarraySum [858; 782; 632; 395; 53; 800; 808; 422; 867; 470; 71; 832; 475; 380; 419; 156; 867; 614; 778; 930; 537])25 26 27    (* Grouping test cases *)28    let suite = "Test Suite for subarraySum" >::: [29        30  "test1" >:: test1;31  "test2" >:: test2;32  "test3" >:: test3;33  "test4" >:: test4;34  "test5" >:: test5;35  "test6" >:: test6;36  "test7" >:: test7;37    ]38 39 40    (* Running the tests *)41    let () = run_test_tt_main suite42end43