Skip to content

Instantly share code, notes, and snippets.

@am0c

am0c/gist:822372

Created February 11, 2011 13:56
Show Gist options
  • Save am0c/822372 to your computer and use it in GitHub Desktop.
Save am0c/822372 to your computer and use it in GitHub Desktop.
Download ZIP
jubeat 隅田川夏恋歌 highlight
Raw
gistfile1.pl
#!/usr/bin/env perl
#
# 隅田川夏恋歌
# ************
#
#
use strict;
use warnings;
sub get_line {
my @lines;
while (my $line = <DATA>) {
last if $line =~ /^$/;
push @lines, $line;
}
join '', @lines;
}
while (my $line = get_line) {
my ($num, $pos);
$line =~ s{.}{
$pos++ if $& eq "." or $& eq "M";
$num |= 2 ** ($pos-1) if $& eq "M";
}xeg;
print $num, " ";
}
__DATA__
M...
....
....
....
.M..
M...
....
....
....
.M..
....
....
..M.
....
M...
....
....
..M.
.M..
....
...M
....
....
M...
....
....
..M.
....
....
...M
....
.M..
....
....
...M
..M.
....
....
....
...M
M...
....
....
....
.M..
M...
....
....
....
.M..
....
....
..M.
....
M...
....
....
..M.
.M..
....
....
....
..M.
....
....
....
...M
..M.
....
....
....
...M
...M
....
....
M...
.M..
M...
....
....
M...
....
....
....
..M.
....
M...
....
....
....
...M
..M.
....
.M..
....
....
....
...M
....
.M..
.M..
M...
....
....
..M.
....
....
....
....
....
.M..
....
....
....
....
...M
M...
....
....
....
....
..M.
....
....
....
....
....
.M..
....
.M..
....
....
....
....
..M.
....
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment