Sponsored links: Algebra eBooks
 

Related

full_listify-listify

full_listify ({a, b, ...

full_listify (f (g (...

Calculate

full_listify-intersection-listify-matrix-powerset-rank-submatrix

A:matrix([-1,-1,1,0,0...

n:rank(A);

B[1,2,3]:submatrix(4,...

Calculate

full_listify-listify-matrix-powerset-rank-submatrix

A:matrix([-1,-1,1,0,0...

n:rank(A);

B[1,2,3]:submatrix(4,...

Calculate

full_listify-intersection-listify-matrix-powerset-rank-submatrix

A:matrix([-1,-1,1,0,0...

n:rank(A);

B[1,2,3]:submatrix(4,...

Calculate

full_listify-listify

piste: full_listify( ...

Calculate

full_listify-listify-matrix-powerset-rank-setdifference-submatrix

A:matrix([-1,-1,1,0,0...

n:rank(A);

B[1,2,3]:submatrix(4,...

Calculate

full_listify-intersection-listify-matrix-powerset-rank-submatrix

A:matrix([-1,-1,1,0,0...

n:rank(A);

B[1,2,3]:submatrix(4,...

Calculate

full_listify-listify-matrix-powerset-rank-setdifference-submatrix

A:matrix([-1,-1,1,0,0...

n:rank(A);

B[1,2,3]:submatrix(4,...

Calculate

full_listify-listify-matrix-powerset-rank-setdifference-submatrix

A:matrix([-1,-1,1,0,0...

n:rank(A);

B[1,2,3]:submatrix(4,...

Calculate

full_listify

Run Example
(%i1)Seznam(List,N):=    sort(flatten(maplist(lambda([z],        maplist(lambda([w],eval_string(lreduce(concat,w))),permut(z))),            full_listify(powerset(setify(List),N)))));
(%o1) Seznam(List, N) := sort(flatten(maplist(lambda([z], 
maplist(lambda([w], eval_string(lreduce(concat, w))), permut(z))), 
full_listify(powerset(setify(List), N)))))
(%i2) mod(Seznam([82,65,65,82,55,65],6)^53,99999899999);
(%o2)                                 []
(%i3) 
Run Example
A:matrix([-1,-1,1,0,0,1],[-1,-2,0,1,0,2],[-1,-3,0,0,1,3],[0,-1,-1,1,0,1],[0,-2,-1,0,1,2],[0,-1,0,-1,1,1]);
                         [ - 1  - 1   1    0   0  1 ]
                         [                          ]
                         [ - 1  - 2   0    1   0  2 ]
                         [                          ]
                         [ - 1  - 3   0    0   1  3 ]
(%o1)                    [                          ]
                         [  0   - 1  - 1   1   0  1 ]
                         [                          ]
                         [  0   - 2  - 1   0   1  2 ]
                         [                          ]
                         [  0   - 1   0   - 1  1  1 ]
(%i2) n:rank(A);
(%o2)                                  3
(%i3) B[1,2,3]:submatrix(4,5,A);
                          [ - 1  - 1  1   0   0  1 ]
                          [                        ]
                          [ - 1  - 2  0   1   0  2 ]
(%o3)                     [                        ]
                          [ - 1  - 3  0   0   1  3 ]
                          [                        ]
                          [  0   - 1  0  - 1  1  1 ]
(%i4) input:{1, 2, 3, 4, 5, 6};
(%o4)                         {1, 2, 3, 4, 5, 6}
(%i5) res:powerset ({1, 2, 3, 4, 5, 6}, 4);
(%o5) {{1, 2, 3, 4}, {1, 2, 3, 5}, {1, 2, 3, 6}, {1, 2, 4, 5}, {1, 2, 4, 6}, 
{1, 2, 5, 6}, {1, 3, 4, 5}, {1, 3, 4, 6}, {1, 3, 5, 6}, {1, 4, 5, 6}, 
{2, 3, 4, 5}, {2, 3, 4, 6}, {2, 3, 5, 6}, {2, 4, 5, 6}, {3, 4, 5, 6}}
(%i6) resi:res;
(%o6) {{1, 2, 3, 4}, {1, 2, 3, 5}, {1, 2, 3, 6}, {1, 2, 4, 5}, {1, 2, 4, 6}, 
{1, 2, 5, 6}, {1, 3, 4, 5}, {1, 3, 4, 6}, {1, 3, 5, 6}, {1, 4, 5, 6}, 
{2, 3, 4, 5}, {2, 3, 4, 6}, {2, 3, 5, 6}, {2, 4, 5, 6}, {3, 4, 5, 6}}
(%i7) for resi in res do print (resi, resi:setdifference(input,resi));
{1, 2, 3, 4} {5, 6} 
{1, 2, 3, 5} {4, 6} 
{1, 2, 3, 6} {4, 5} 
{1, 2, 4, 5} {3, 6} 
{1, 2, 4, 6} {3, 5} 
{1, 2, 5, 6} {3, 4} 
{1, 3, 4, 5} {2, 6} 
{1, 3, 4, 6} {2, 5} 
{1, 3, 5, 6} {2, 4} 
{1, 4, 5, 6} {2, 3} 
{2, 3, 4, 5} {1, 6} 
{2, 3, 4, 6} {1, 5} 
{2, 3, 5, 6} {1, 4} 
{2, 4, 5, 6} {1, 3} 
{3, 4, 5, 6} {1, 2} 
(%o7)                                done
(%i8) full_listify(resi);
(%o8) [[1, 2, 3, 4], [1, 2, 3, 5], [1, 2, 3, 6], [1, 2, 4, 5], [1, 2, 4, 6], 
[1, 2, 5, 6], [1, 3, 4, 5], [1, 3, 4, 6], [1, 3, 5, 6], [1, 4, 5, 6], 
[2, 3, 4, 5], [2, 3, 4, 6], [2, 3, 5, 6], [2, 4, 5, 6], [3, 4, 5, 6]]
(%i9) 
Run Example
Seznam(List,N):=    sort(flatten(maplist(lambda([z],        maplist(lambda([w],eval_string(lreduce(concat,w))),permut(z))),            full_listify(powerset(setify(List),N)))));
(%o1) Seznam(List, N) := sort(flatten(maplist(lambda([z], 
maplist(lambda([w], eval_string(lreduce(concat, w))), permut(z))), 
full_listify(powerset(setify(List), N)))))
(%i2) mod(Seznam([1,2,3,2,6,5],6)^23,999998);
(%o2)                                 []
(%i3) 

Related Help

Help for Full_listify