repo.or.cz
/
frac.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Small cleanup in famous_test.
[frac.git]
/
pi.c
blob
4c5a3020a2b72af8c14cfeee47247f0a29dd50de
1
#include <stdio.h>
2
#include <stdlib.h>
3
#include <string.h>
4
#include <gmp.h>
5
#include
"cf.h"
6
7
int
main
() {
8
mpz_t z
;
9
mpz_init
(
z
);
10
cf_t pi
,
conv
;
11
pi
=
cf_new_pi
();
12
13
conv
=
cf_new_cf_to_decimal
(
pi
);
14
for
(
int
i
=
0
;
i
<=
5000
;
i
++) {
15
cf_get
(
z
,
conv
);
16
gmp_printf
(
"%Zd"
,
z
);
17
if
(!(
i
%
5
))
putchar
(
' '
);
18
if
(!(
i
%
50
))
putchar
(
'
\n
'
);
19
}
20
cf_free
(
conv
);
21
cf_free
(
pi
);
22
mpz_clear
(
z
);
23
return
0
;
24
}