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/Metaprogramming/PARI-GP/metaprogramming.pari
+++ b/Task/Metaprogramming/PARI-GP/metaprogramming.pari
@ -0,0 +1,14 @@
+long
+smin0ss(long a, long b)
+{
+  long c = a < b ? a : b;
+  return c > 0 ? c : 0;
+}
+
+
+GEN
+gmin0(GEN a, GEN b)
+{
+  GEN c = gcmp(a, b) < 1 ? a : b; /* copy pointer */
+  return signe(c) > 0 ? gcopy(c) : gen_0;
+}