|
|
1.1 ! root 1: #include "mprec.h" ! 2: ! 3: ! 4: /* ! 5: * Ispos returns true iff the mint pointed to by "a" is positive ! 6: * (ie. greater than or equal to zero). ! 7: */ ! 8: ! 9: ispos(a) ! 10: register mint *a; ! 11: { ! 12: return (a->val[a->len - 1] != NEFL); ! 13: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.