Running moritz' and veky's algorithms against each other

result

$ perl run-moritz-veky-against-each-other
3280746951	8	8
2458396017	8	8
2790183456	7	7
8724150369	9	9
6259341807	8	8
5436081792	7	7
3960574218	9	8
2947685013	9	9
8671054923	8	8
8372954601	10	9
2190548673	7	7
8953714602	9	9
8492156073	8	8
9642073815	9	9
4852739016	8	8
6125734098	7	7
9106738524	10	9
5621947380	9	9
6095132847	8	7
5983624107	9	9
9540721683	9	9
9507168234	10	9
3987426105	10	9
0261943875	5	5
0836725491	8	8
2794816053	7	7
9514268073	11	9
0196238475	8	7
7583692401	9	9
9186724503	10	9
7180542396	8	7
4721830659	8	6
0361475289	5	5
8971560243	11	10
8725946013	10	9
8716394052	9	9
8194630752	9	8
8497615203	9	9
2064187953	7	6
5276104398	6	6
4287069351	8	8
3681425709	8	8
1576924083	7	7

script

use 5.010;
use strict;
use warnings;

open my $INPUTS, "<", "inputs"
    or die $!;

while (my $input = <$INPUTS>) {
    chomp $input;

    my $moritz = qx[perl6 moritz $input];
    my $moritz_width = (index($moritz, "\n") - 6) / 2;

    my $veky = qx[python3 veky $input];
    my $veky_width = (index($veky, "\n") - 6) / 2;

    say "$input\t$moritz_width\t$veky_width"
}