Subversion Repositories wimsdev

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

slib_parms=3\
,n\
n,m\
n,k
slib_author=Gang, XIAO
slib_example= 10,7,2
!exit

:proc
!distribute items $wims_read_parm into slib_n,slib_m,slib_k
!bound slib_n between integer 1 and 100 default 0
!bound slib_m between integer 1 and $slib_n default $slib_n
!bound slib_k between integer 1 and $slib_n default $slib_n
!if $slib_n=0
  !reset slib_out
  !exit
!endif
slib_sh=!shuffle $slib_n-1
slib_sh=!item 1 to $slib_m-1 of $slib_sh
slib_sh2=$slib_k
!for slib_i=1 to $slib_m-1
  slib_l=!item $slib_i of $slib_sh
  !if $slib_l>=$slib_k
    !advance slib_l
  !endif
  slib_sh2=$slib_sh2,$slib_l
!next slib_i

slib_out=!shuffle $slib_sh2