Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Bernadette, Perrin-Riou
slib_example=[5,4,2]
!exit

:proc

!distribute items $wims_read_parm into slib_partition
slib_partition=!declosing $slib_partition
slib_partition=!sort reverse numeric item $slib_partition

slib_out=!exec pari p=[$slib_partition];  n=sum(i=1,#p,p[i]);\
    L=listcreate(n); test=0;\
    for( a=1, #p,\
      if(a<#p && p[a+1]>1, listput(L,p[a]), listput(L, p[a]-1);\
       test=1; N=#p-a+1; s=divrem(N,p[a]-1)~;\
       for(j=1, s[1], listput(L,p[a]-1));\
       if(s[2]!=0, listput(L,s[2])); return(Vec(L)); break)\
    )