diff options
Diffstat (limited to 'stdlib/math.pcdt')
| -rw-r--r-- | stdlib/math.pcdt | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/stdlib/math.pcdt b/stdlib/math.pcdt index e4b0fe0..3f375ae 100644 --- a/stdlib/math.pcdt +++ b/stdlib/math.pcdt @@ -1,12 +1,10 @@ store( - ref(( - store(0; last;) - if(not(eq(arg0() 1;)) - ( - update(multiply(sub(arg0() 1;) arg1()) last;) - ) - ) - sum(arg1() last()) - )) - multiply; + ref(( + store(0, "last") + if(not(eq(arg0, 1)) + update(multiply(sub(arg0, 1), arg1), "last") + ) + sum(arg1, last) + )) + "multiply" ) |