Skip to content

Instantly share code, notes, and snippets.

@masak

masak/result Secret

Created August 31, 2013 20:36

Revisions

  1. masak created this gist Aug 31, 2013.
    44 changes: 44 additions & 0 deletions result
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,44 @@
    $ 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
    18 changes: 18 additions & 0 deletions script
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,18 @@
    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"
    }