perl/pi.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Math::Trig;
   6
   7 #$radians = deg2rad($degrees);
   8 #$degrees = rad2deg($radians);
   9
  10 print "3.14159265358979323846264338327950288419716939937510\n";
  11 #for (my $c=1;$c>0;$c++) {
  12 for (my $c=271842800;$c>0;$c++) {
  13         printf '%.80f', ($c * sin ( deg2rad( 180 / $c ) ));
  14         print "                   " . $c . "            \r";
  15 }
  16
  17 #my $pi = (4 * atan2(1,1));
  18 #print $pi;