Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Harmonic mean of statistical data
slib_parms=1\
 ,data as items, words or lines
slib_author=Adeline Grelot
slib_out=Harmonic mean
!exit

:proc
!readproc slib/stat/dataproc $wims_read_parm

!if $slib_cnt=0
slib_out=1
!else
slib_data=!sum 1/x for x in $slib_data
slib_out=$[$slib_cnt/($slib_data)]
!endif
slib_out =!trim $slib_out