challenge-059/arne-sommer/raku/bit-diff2


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

#! /usr/bin/env raku

unit sub MAIN (Int $a, $b, :$verbose);

my $c = ($a +^ $b);

my $sum = $c.comb.sum;

if $verbose
{
  my $length = (max($a, $b)).base(2).chars;
  
  say ": { $a.fmt('%0' ~ $length ~ 'b') } ($a)";
  say ": { $b.fmt('%0' ~ $length ~ 'b') } ($b)";
  say ": { $c.fmt('%0' ~ $length ~ 'b') } -> $sum";
}

say $sum;