FPEvalDataset/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6 7    (* Program end *)8 9    (* Test cases *)10    11let test1 _ = assert_equal 2 (getCommon [1;2;3] [2;4])12 13let test2 _ = assert_equal 2 (getCommon [1;2;3;6] [2;3;4;5])14 15let test3 _ = assert_equal 1 (getCommon [1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 15; 16; 17; 18; 20; 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; 37; 38; 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; 55; 56; 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; 73; 74; 75; 76; 77; 78; 79; 80; 81; 83; 86; 88; 89; 90; 91; 92; 93; 94; 95; 96; 97; 98; 99; 100] [1; 3; 20; 21; 22; 25; 26; 32; 37; 38; 39; 40; 42; 43; 44; 46; 48; 50; 56; 57; 58; 59; 67; 68; 69; 71; 72; 80; 83; 87; 89; 92; 93; 96])16 17let test4 _ = assert_equal 1 (getCommon [1; 2; 4; 5; 11; 12; 13; 14; 19; 23; 26; 35; 38; 40; 42; 45; 47; 49; 51; 52; 57; 58; 59; 60; 63; 66; 68; 69; 71; 75; 81; 89; 91; 93; 95] [1; 3; 4; 5; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 18; 19; 20; 22; 23; 24; 26; 28; 29; 30; 33; 34; 35; 36; 37; 38; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 51; 52; 53; 55; 58; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 74; 76; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; 91; 92; 93; 94; 95; 96; 97; 99; 100])18 19let test5 _ = assert_equal 76 (getCommon [1; 3; 8; 10; 14; 16; 19; 27; 28; 32; 34; 35; 37; 42; 44; 47; 55; 57; 61; 65; 67; 69; 70; 73; 76; 80; 84; 85; 89; 90; 91; 95; 98; 100] [56; 76; 82; 88; 89; 90])20 21let test6 _ = assert_equal 13 (getCommon [11; 13; 15; 18; 19; 25; 33; 43; 44; 45; 49; 52; 55; 71; 72; 76; 84; 89; 90; 91; 97] [1; 6; 8; 9; 13; 14; 15; 25; 28; 29; 35; 36; 43; 45; 47; 49; 53; 54; 61; 68; 72; 74; 82; 84; 86; 90; 92; 93; 94; 96; 98])22 23let test7 _ = assert_equal 5 (getCommon [3; 5; 6; 13; 14; 16; 17; 20; 21; 22; 24; 26; 27; 28; 29; 34; 37; 38; 39; 41; 42; 43; 45; 47; 48; 50; 51; 52; 53; 57; 58; 59; 60; 62; 64; 65; 67; 68; 72; 74; 76; 77; 78; 79; 80; 82; 83; 84; 86; 87; 89; 91; 93; 94; 95; 96; 98; 99] [2; 5; 6; 8; 9; 10; 11; 12; 13; 14; 15; 16; 18; 19; 20; 22; 24; 25; 26; 27; 30; 32; 33; 35; 36; 38; 40; 41; 42; 43; 44; 45; 47; 48; 49; 50; 51; 52; 53; 54; 55; 57; 58; 59; 60; 64; 67; 68; 70; 71; 76; 78; 79; 80; 81; 82; 84; 85; 86; 87; 88; 89; 90; 92; 93; 94; 96; 98; 99; 100])24 25let test8 _ = assert_equal (-1) (getCommon [2; 5; 6; 7; 9; 10; 11; 13; 14; 15; 17; 21; 26; 27; 28; 29; 31; 33; 35; 36; 38; 39; 42; 43; 44; 48; 49; 54; 55; 56; 57; 59; 61; 62; 67; 72; 73; 76; 77; 81; 82; 83; 85; 86; 87; 88; 90; 92; 93; 95; 96; 99] [101; 103; 104; 105; 106; 107; 108; 109; 110; 111; 113; 114; 115; 116; 117; 118; 119; 120; 121; 122; 123; 126; 127; 128; 129; 131; 132; 134; 135; 136; 137; 138; 140; 141; 142; 143; 144; 145; 146; 147; 148; 150; 152; 153; 156; 158; 159; 160; 161; 163; 164; 165; 167; 168; 170; 171; 172; 173; 174; 175; 176; 177; 178; 179; 180; 181; 182; 183; 184; 185; 186; 187; 188; 190; 191; 192; 194; 196; 197; 198; 199; 200])26 27let test9 _ = assert_equal (-1) (getCommon [4; 31; 55; 59; 80] [102; 104; 105; 106; 107; 108; 109; 110; 111; 114; 115; 116; 117; 118; 121; 123; 124; 126; 127; 128; 129; 133; 134; 135; 137; 140; 141; 142; 145; 146; 147; 150; 151; 153; 155; 157; 160; 163; 167; 168; 172; 173; 175; 176; 177; 178; 179; 188; 189; 190; 196; 198; 200])28 29let test10 _ = assert_equal (-1) (getCommon [1; 2; 3; 4; 5; 6; 8; 9; 10; 12; 13; 14; 15; 16; 17; 18; 19; 20; 21; 22; 23; 24; 25; 26; 27; 28; 30; 31; 32; 33; 34; 35; 36; 37; 38; 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; 55; 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; 73; 74; 75; 76; 77; 78; 79; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; 92; 93; 94; 95; 96; 97; 98; 99] [101; 102; 103; 104; 105; 107; 108; 109; 110; 112; 113; 115; 116; 117; 118; 119; 120; 121; 123; 124; 125; 126; 128; 129; 131; 132; 133; 134; 135; 136; 137; 138; 140; 141; 142; 143; 144; 145; 147; 148; 149; 150; 151; 153; 154; 155; 156; 157; 158; 159; 160; 161; 162; 163; 166; 167; 168; 169; 170; 172; 173; 174; 175; 176; 177; 178; 179; 181; 182; 183; 185; 186; 187; 188; 189; 190; 191; 192; 193; 194; 195; 196; 197; 198; 199; 200])30 31 32    (* Grouping test cases *)33    let suite = "Test Suite for getCommon" >::: [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