Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Product of data
slib_parms=1\
 ,[data] or [data],[weight]
slib_author=Adeline Grelot
slib_out=data product 
slib_comment=Data and weight can be recognized under many formats, \
 in particular as a matrix (with data before weight).
slib_example=[2,-7,6]\
[2,7,6;1,1,4]\
[2,1;7,1;6,4]\
[2,7,6],[1,1,4]
slib_require=pari
!exit

:proc

!readproc slib/stat/dataproc $wims_read_parm

!if $slib_cnt=0
        slib_out=1
!else
        !if $slib_weight =$empty
        slib_out=!product x for x in $slib_data
        !else
        slib_cnt=!itemcnt $slib_data
                slib_out=!exec pari print(prod(x=1,$slib_cnt,[$slib_data][x]^[$slib_weight][x]))
        !endif weight
!endif
slib_out =!trim $slib_out