Rev 4501 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4501 | Rev 13586 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !if $wims_read_parm!=slib_header |
1 | !if $wims_read_parm!=slib_header |
2 | !goto proc |
2 | !goto proc |
3 | !endif |
3 | !endif |
4 | 4 | ||
5 | slib_author=Adeline, Grelot |
5 | slib_author=Adeline, Grelot |
6 | 6 | ||
7 | slib_example=[2,-7,6]\ |
7 | slib_example=[2,-7,6]\ |
Line 17... | Line 17... | ||
17 | 17 | ||
18 | !if $slib_cnt=0 |
18 | !if $slib_cnt=0 |
19 | slib_out=1 |
19 | slib_out=1 |
20 | !else |
20 | !else |
21 | !if $slib_weight =$empty |
21 | !if $slib_weight =$empty |
22 | slib_out=!product x for x in $slib_data |
22 | slib_out=!product x for x in $slib_data |
23 | !else |
23 | !else |
24 | slib_cnt=!itemcnt $slib_data |
24 | slib_cnt=!itemcnt $slib_data |
25 | slib_out=!exec pari print(prod(x=1,$slib_cnt,[$slib_data][x]^([$slib_weight][x]))) |
25 | slib_out=!exec pari print(prod(x=1,$slib_cnt,[$slib_data][x]^([$slib_weight][x]))) |
26 | !endif weight |
26 | !endif weight |
27 | !endif |
27 | !endif |
28 | slib_out =!trim $slib_out |
28 | slib_out =!trim $slib_out |