A Babel of Languages on CodinGame

5,403 views

Perl

Checking the sample code

use strict;
use warnings;
use 5.20.1;
select(STDOUT); $| = 1; # DO NOT REMOVE
#chomp(my $m = <STDIN>);
my $m = "CG";
my @mc = split("", $m);
my %c = (
    "0", "00",
    "1", "0"
);
my $b = "";
for my $i (0..(length($m) - 1)) {
    $b .= sprintf("%07b", ord($mc[$i]));
}
my @bc = split("", $b);
my $ans = $c{$bc[0]} . " 0";
for my $i (1..(length($b) - 1)) {
    if ($bc[$i] == $bc[$i - 1]) {
        $ans .= "0";
    } else {
        $ans .= " " . $c{$bc[$i]} . " 0";
    }
}
# To debug: print STDERR "Debug messages...\n";
print $ans . "\n";