Wolstenholme numbers: Difference between revisions

→‎{{header|C}}: Slightly simpler.
(→‎{{header|C}}: Slightly simpler.)
Line 54:
 
int main() {
int i, pc = 0, si = 0;
unsigned long k, l[5] = {500, 1000, 2500, 5000, 10000};
char *s, a[44];
Line 73:
s = mpz_get_str(NULL, 10, n);
printf("%6ld%s: %s\n", k, ord(k), s);
} else if (k == l[si]) {
for (is = 0;mpz_get_str(NULL, i10, < 5n); ++i) {
if abbreviate(l[i]a, == ks) {;
printf("%'6ld%s: %s (digits: %ld)\n", k, s = mpz_get_strord(NULLk), 10a, nstrlen(s));
abbreviate(a, s)++si;
printf("%'6ld%s: %s (digits: %ld)\n", k, ord(k), a, strlen(s));
break;
}
}
}
}
9,476

edits