RichArbitraryPrecisionIntegerMath/test.php at master · ionux/RichArbitraryPrecisionIntegerMath · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
<?php

include('class.RAPIM.php');

$math = new RichArbitraryPrecisionIntegerMath(true);
$number_of_loops = 100;

for ($qq=0; $qq < $number_of_loops; $qq++) {
        $x = mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand();
        $y = mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand() . mt_rand();

        $digit_length = strlen($x);

        // Division
        $myans = $math->div($x, $y);
        $gmpans = gmp_strval(gmp_div(gmp_init($x), gmp_init($y), GMP_ROUND_ZERO));

        echo '<pre>Digit size: ' . $digit_length . "\r\n\r\n" . 'MY ans:  ' . $myans['quotient'];

        echo "\r\nGMP ans: " . $gmpans;

        if ($myans['quotient'] != $gmpans) {
                echo " - ERROR!!!!\r\n</pre>";
        } else {
            	echo " - ok\r\n</pre>";
        }

        // Multiplication
        $myans = $math->mul($x, $y);
        $gmpans = gmp_strval(gmp_mul(gmp_init($x), gmp_init($y)));

        echo '<pre>Digit size: ' . $digit_length . "\r\n\r\n" . 'MY ans:  ' . $myans;

        echo "\r\nGMP ans: " . $gmpans;

        if ($myans != $gmpans) {
                echo " - ERROR!!!!\r\n</pre>";
        } else {
            	echo " -ok\r\n</pre>";
        }

        // Addition
        $myans = $math->add($x, $y);
        $gmpans = gmp_strval(gmp_add(gmp_init($x), gmp_init($y)));

        echo '<pre>Digit size: ' . $digit_length . "\r\n\r\n" . 'MY ans:  ' . $myans;

        echo "\r\nGMP ans: " . $gmpans;

        if ($myans != $gmpans) {
                echo " - ERROR!!!!\r\n</pre>";
        } else {
            	echo " -ok\r\n</pre>";
        }

        // Subtraction
        $myans = $math->sub($x, $y);
        $gmpans = gmp_strval(gmp_sub(gmp_init($x), gmp_init($y)));

        echo '<pre>Digit size: ' . $digit_length . "\r\n\r\n" . 'MY ans:  ' . $myans;

        echo "\r\nGMP ans: " . $gmpans;

        if ($myans != $gmpans) {
                echo " - ERROR!!!!\r\n</pre>";
        } else {
            	echo " -ok\r\n</pre>";
        }
}