Explore
Connect
Documentation
Snippets
Log in
Sign up
A Babel of Languages on CodinGame
TBali
71.1K views
Forking
Fork
GitHub
Open Source Your Knowledge, Become a Contributor
Technology knowledge has to be shared and made accessible for free. Join the movement.
Create Content
18/29
Perl
Previous:
Kotlin
Next:
Ruby
Perl
Checking the sample code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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"
;
Enter to Rename, Shift+Enter to Preview
Run
Looking at the syntax
TODO
Other characteristics
TODO
Resources to check
Overview on Wikipedia
Official tutorial
Perl cheat sheet
Coming next...
46
Suggested playgrounds
Wie man die Programmierfähigkeiten von Entwicklern vor der Einstellung testet
By
[CG]OlogN
31.1K
7
CGFunge Batch Runner
By
Marchete
5,863
9
PHP Dev Tools (for CodinGame or elsewhere)
By
TBali
16.8K
20
Swapping languages on CodinGame (a.k.a. system() calls)
By
TBali
6,376
17
Open Source Your Knowledge: become a Contributor and help others learn.
Create New Content
