Большое число

[ocehb]

# perl -MMath::Pari -e 'Math::Pari::allocatemem (102400000); \
  my $a = PARI 2; foreach my $t (3..$ARGV[0]) { $a = $a*PARI $t; } \
  print $a,"\n";' 1024000 | tee /tmp/bignum.out | wc -c
Real: 9342.94s User: 7013.11s System: 964.10s
5709835

# perl -pnle 'BEGIN{ $/ = \64; }' /tmp/bignum.out | wc -l
89218
# perl -pnle 'BEGIN{ $/ = \64; }' /tmp/bignum.out | head -10
1024165602092421271743128579507104083231984941873774936711175005
3888862866737676438778558370572888670481312197359144481008974630
5151855121814720294883185657508584130708401602710845384121983154
7941451496431842791730103518690038423223524360988058161845470150
1928864243689772224157765460553162101038042836232936512339646062
7064947706072186167959029438791436660906357275735353945055282812
2218080553063623804586603462978719873137507058171274520322505909
4196406010777580550201367268871740380259101063134350666977152664
9437669838662946639799431075041410303072953875856012289437985363
7000032291526936854892365426547212671626341796892865014513583247
# perl -pnle 'BEGIN{ $/ = \64; }' /tmp/bignum.out | tail -10
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000

#