Subversion Repositories wimsdev

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

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

:proc
!reset slib_out
!distribute items $wims_read_parm into slib_partition
slib_partition=!declosing $slib_partition
slib_partition=!sort reverse numeric item $slib_partition
slib_cnt=!itemcnt $slib_partition

!for slib_j=1 to $(slib_partition[1])
  !reset slib_t
  !for slib_k=1 to $slib_cnt
    !if $(slib_partition[$slib_k]) >= $slib_j
      !increase slib_t
    !endif
  !next
  slib_out=!append item $slib_t to $slib_out
!next