The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

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

            

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

              
#!perl
# Name: Mixed arithmetics
# Require: 4
# Desc:
require 'benchlib.pl';
$x = 0;
&runtest(20, <<'ENDTEST');
    $x = ($x + 2) % 333;
    $z = $x / 40;
    $y = $x * 40580;
    $x = 3;
    $x++;
    $x++;
    $x = $x + 1900.3;
    $x = $x + 1900.3;
    $x -= 1;
ENDTEST