Test perl/perl6/php/php7/C

C_test.c

#include <stdio.h>
#include <math.h>

int main() {
        double s=0;

        for(int i=1; i<=10000; i++) {
                s=s+(1/pow(i, 2));
                printf("%d %lf %lf %lf\n", i, s, pow(i,2), 1/pow(i,2) );
        }
        printf("done: %lf\n", s);

        return 0;
}

C_test_without_out.c

#include <stdio.h>
#include <math.h>

int main() {
        double s=0;

        for(int i=1; i<=10000; i++) {
                s=s+(1/pow(i, 2));
//                printf("%d %lf %lf %lf\n", i, s, pow(i,2), 1/pow(i,2) );
        }
        printf("done: %lf\n", s);

        return 0;
}

perl6_optimized_test.sh

#!/bin/sh

echo "perl6 optimized with output\n"
time perl6 -e 'my Num $s; for 1..10000 {$s+=1e0/$_**2;say $s~"--"~$_~"--"~(1e0/$_**2)~"--"~($_**2);};say "done $s"'

echo "perl6 optimized without output\n"
time perl6 -e 'my Num $s; for 1..10000 {$s+=1e0/$_**2;};say "done: $s"'

perl6_test.sh

#!/bin/sh

echo "perl6 with output\n"
time perl6 -e 'my $s; for 1..10000 {$s+=1/$_**2;say $s~"--"~$_~"--"~(1/$_**2)~"--"~($_**2);};say "done $s"'

echo "perl6 without output\n"
time perl6 -e 'my $s; for 1..10000 {$s+=1/$_**2;};say "done: $s"'

perl_test.sh

#!/bin/sh

echo "perl with output\n"
time perl -e 'my $s; for(1..10000) {$s+=1/$_**2; print "$s--$_--".(1/$_**2)."--".($_**2)."\n";};print "done: $s"'

echo "perl without output\n"
time perl -e 'my $s; for(1..10000) {$s+=1/$_**2;};print "done: $s"'

php7_output.sh

#!/bin/sh

echo "test with output"
time /usr/local/opt/phpng/bin/php -r '$a=0;for($i=1; $i <= 10000; $i++){$a+=1/$i**2;print "$i--$a--".(1/$i**2)."--".($i**2)."\n";};print "done $a";'

echo "test without output"
time /usr/local/opt/phpng/bin/php -r '$a=0;for($i=1; $i <= 10000; $i++){$a+=1/$i**2;};print "done $a";'

php_output.sh

#!/bin/sh

echo "test with output"
time php -r '$a=0;for($i=1; $i <= 10000; $i++){$a+=1/$i**2;print "$i--$a--".(1/$i**2)."--".($i**2)."\n";};print "done $a";'

echo "test without output"
time php -r '$a=0;for($i=1; $i <= 10000; $i++){$a+=1/$i**2;};print "done $a";'