challenge-044/stuart-little/raku/ch-2.p6


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/env perl6
use v6;

# run as <script> <target sum; defaults to 200>

sub make_sum(Int $s where * > 0) {
    $s ~ ' ' ~
    $s.base(2).flip.comb[0..*-2].map({ ($_ eq '0') ?? '/2' !! '-1 /2' }).join(' ')
    ~ ' =1'
}

say make_sum((@*ARGS) ?? (@*ARGS[0].Int) !! (200))