langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Greatest-subsequential-sum/PARI-GP/greatest-subsequential-sum.pari
+++ b/Task/Greatest-subsequential-sum/PARI-GP/greatest-subsequential-sum.pari
@ -0,0 +1,14 @@
+grsub(v)={
+  my(mn=1,mx=#v,r=0,at,c);
+  if(vecmax(v)<=0,return([1,0]));
+  while(v[mn]<=0,mn++);
+  while(v[mx]<=0,mx--);
+  for(a=mn,mx,
+    c=0;
+    for(b=a,mx,
+      c+=v[b];
+      if(c>r,r=c;at=[a,b])
+    )
+  );
+  at
+};