challenge-121/lance-wicks/perl/lib/Invert.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package Invert;

use Moo;

sub bit {
    my ($self, %args) = @_;

    my $m = $args{m};
    my $n = $args{n};

    my $bin_m = sprintf("%08b",$m);

    my $bit = substr $bin_m, -($n), 1;

    substr $bin_m, -($n), 1, $bit ? 0 : 1 ;

    return oct "0b$bin_m";
}


1;