fork download
copy 
  1. #!/usr/bin/perl
  2. use bignum;
  3. for $N (3,5,7) {
  4.   Math::BigFloat->accuracy(1000 * $N);
  5.   printf "N = $N => %d\n",
  6.     scalar grep{/0/} split'', sqrt($N);
  7. }
Success #stdin #stdout 3.19s 25328KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
N = 3 => 309
N = 5 => 493
N = 7 => 738
https://ideone.com/cMBD8o
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!