[Home] [prev] [up] [next]     ((test/species.as))

24.8 Test Permutation

The following test can be compared with the output of the following Mathematica commands.

S[x_, y_, n_] := Series[1/(1 - x^n*y[n]), {x, 0, 10}]  
Series[Product[S[t, x, i], {i, 1, 6}], {t, 0, 6}] // InputForm

639⟨test Permutation 639⟩≡   (626)
testPermutation(): () == check(
    Permutation,
    [1,1,2,6,24,120,720,5040,40320,362880,3628800],
    [1,1,2,3,5,7,11,15,22,30,42,56,77,101,135],
    [
        1,
        x(1,1),
        x(1,2)+x(2,1),
        x(1,3)+x(1,1)*x(2,1)+x(3,1),
        x(1,4)+x(1,2)*x(2,1)+x(2,2)+x(1,1)*x(3,1)+x(4,1),

        x(1,5)+x(1,3)*x(2,1)+x(1,1)*x(2,2)+x(1,2)*x(3,1)+x(2,1)*x(3,1)+
        x(1,1)*x(4,1)+x(5,1),

        x(1,6)+x(1,4)*x(2,1)+x(1,2)*x(2,2)+x(2,3)+x(1,3)*x(3,1)
        +x(1,1)*x(2,1)*x(3,1)+x(3,2)+x(1,2)*x(4,1)+x(2,1)*x(4,1)
        +x(1,1)*x(5,1)+x(6,1)
      ]
);

Uses Permutation 106.

[Home] [prev] [up] [next]     ((test/species.as))