summaryrefslogtreecommitdiff
path: root/stdlib/math.pcdt
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/math.pcdt')
-rw-r--r--stdlib/math.pcdt12
1 files changed, 12 insertions, 0 deletions
diff --git a/stdlib/math.pcdt b/stdlib/math.pcdt
new file mode 100644
index 0000000..078045d
--- /dev/null
+++ b/stdlib/math.pcdt
@@ -0,0 +1,12 @@
+store(
+ (
+ store(0; last;)
+ if(not(eq(arg0() 1;))
+ (
+ update(multiply(sub(arg0() 1;) arg1()) last;)
+ )
+ )
+ sum(arg1() last())
+ )
+ multiply;
+)