From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BRIANDFOY / PerlBench-1.004 / benchmarks / arith / trig.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

              
#!perl
# Name: Call some random trig functions
# Require: 4
# Desc:
require 'benchlib.pl';
$x = 0.23;
&runtest(15, <<'ENDTEST');
  $a = sin($x);
  $b = cos($a);
  $c = cos(sin($a) + cos($b) + atan2($x, $x));
  $a = sin($x);
  $b = cos($a);
  $c = cos(sin($a) + cos($b) + atan2($x, $x));
ENDTEST