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
Fixed bug in bihom.c.
[frac.git]
/
pi.c
blob
bbb47ab3455c9e8816887bc7416b0ce3fccc4875
1
#include <stdio.h>
2
#include <stdlib.h>
3
#include <string.h>
4
#include <gmp.h>
5
#include
"cf.h"
6
7
int
main
(
int
argc
,
char
**
argv
) {
8
mpz_t z
;
9
mpz_init
(
z
);
10
cf_t pi
,
conv
;
11
pi
=
cf_new_pi
();
12
int
n
=
1000
;
13
if
(
argc
>
1
) {
14
n
=
atoi
(
argv
[
1
]);
15
if
(
n
<=
0
)
n
=
100
;
16
}
17
18
conv
=
cf_new_cf_to_decimal
(
pi
);
19
for
(
int
i
=
0
;
i
<=
n
;
i
++) {
20
cf_get
(
z
,
conv
);
21
gmp_printf
(
"%Zd"
,
z
);
22
if
(!(
i
%
5
))
putchar
(
' '
);
23
if
(!(
i
%
50
))
putchar
(
'
\n
'
);
24
}
25
if
(
n
%
50
)
putchar
(
'
\n
'
);
26
cf_free
(
conv
);
27
cf_free
(
pi
);
28
mpz_clear
(
z
);
29
return
0
;
30
}