Subversion Repositories wimsdev

Rev

Rev 13588 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13588 Rev 18466
Line 21... Line 21...
21 
slib_card1=$(slib_card[1])
 21 
slib_card1=$(slib_card[1])
22 
slib_card2=$(slib_card[2])
 22 
slib_card2=$(slib_card[2])
23 
!default slib_card1=1
 23 
!default slib_card1=1
24 
!default slib_card2=$slib_cnt
 24 
!default slib_card2=$slib_cnt
25 
 
 25 
 
26 
slib_out=!exec pari slib_set=[$slib_set] ; slib_subset=listcreate() ;\
 26 
slib_out=!exec pari slib_set=[$slib_set] ; slib_subset=List([]) ;\
27 
   for (slib_i = 1, 2^#slib_set - 1, w=vecextract(slib_set, slib_i) ; if(#w >= $slib_card1 && #w <= $slib_card2 , listput(slib_subset,w)) ) ;\
 27 
   for (slib_i = 1, 2^#slib_set - 1, w=vecextract(slib_set, slib_i) ; if(#w >= $slib_card1 && #w <= $slib_card2 , listput(slib_subset,w)) ) ;\
28 
   Vec(slib_subset)
 28 
   Vec(slib_subset)