26.3 Test multinomial

673atest multinomial 673a  (669)  673b
testMultinoamial1(): () == {
        import from MultinomialTools, List I, I;
        b := binomial(22, 7)$MultinomialTools; --$
        assertEquals(Integer, b, multinomial [15, 7]);
}

Uses I 47, Integer 66, and MultinomialTools 367.
673btest multinomial 673a+   (669)  673a  673c
testMultinoamial2(): () == {
        import from MultinomialTools, List I, I;
        r: Integer := 21187600;
        assertEquals(Integer, r, multinomial [2,3,45]);
}

Uses I 47, Integer 66, and MultinomialTools 367.
673ctest multinomial 673a+   (669)  673b  674a
testMultinoamial3(): () == {
        import from MultinomialTools, List I, I;
        r: Integer := 303428119030277541300;
        assertEquals(Integer, r, multinomial [20,3,20,4]);
}

Uses I 47, Integer 66, and MultinomialTools 367.
674atest multinomial 673a+   (669)  673c  674b
testMultinoamial4(): () == {
        import from MultinomialTools, List I, I;
        r: Integer := 34469858696831179429500;
        assertEquals(Integer, r, multinomial [17,17,17]);
}

Uses I 47, Integer 66, and MultinomialTools 367.
674btest multinomial 673a+   (669)  674a  674c
testMultinoamial5(): () == {
        import from MultinomialTools, List I, I;
        r: Integer := 4799815336400751589443659798400;
        assertEquals(Integer, r, multinomial [22,7,67]);
}

Uses I 47, Integer 66, and MultinomialTools 367.
674ctest multinomial 673a+   (669)  674b  675a
testMultinoamial6(): () == {
        import from MultinomialTools, List I, I;
        r: Integer := 1;
        assertEquals(Integer, r, multinomial []);
}

Uses I 47, Integer 66, and MultinomialTools 367.
675atest multinomial 673a+   (669)  674c  675b
testMultinoamial7(): () == {
        import from MultinomialTools, List I, I;
        r: Integer := 4799815336400751589443659798400;
        assertEquals(Integer, r, multinomial [22,7,67]);
}

Uses I 47, Integer 66, and MultinomialTools 367.
675btest multinomial 673a+   (669)  675a
testMultinoamial8(): () == {
        import from MultinomialTools, List I, I;
        r: Integer := 1;
        for i:I in 0 .. 100 repeat assertEquals(Integer, r, multinomial [i]);
}

Uses I 47, Integer 66, and MultinomialTools 367.