14 lines
208 B
Text
14 lines
208 B
Text
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;
|
|
}
|