/result Secret
Created
August 31, 2013 20:36
Revisions
-
masak created this gist
Aug 31, 2013 .There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode charactersOriginal 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 This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode charactersOriginal 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" }