数理論理学ゼミ合宿 演習問題での検算

chkseq.pl

#!/usr/bin/perl
use strict;
use warnings;
use bigint;

my $s = 37038733764462037052->as_bin;
$s =~ s/^0b//;
print "$s\n";
while ($s =~ s/1(?!,)(0*)/(length $1).','/e) {};
$s =~ s/,$//;
print "<$s>\n";