Advent of Code 2024 day 7 - silly version with junctions and custom operators

aoc07c

#!/usr/bin/env raku
use v6.d;
$*OUT.out-buffer = False;   # Autoflush

# Advent of Code 2024 day 7 -- https://adventofcode.com/2024/day/7

sub infix:<∥>(Int $i, Int $j --> Int)
{
    # Slightly faster than ($i~$j).Int
    return 10*$i + $j if $j < 10;
    return 100*$i + $j if $j < 100;
    return 1000*$i + $j if $j < 1000;
    return 10000*$i + $j if $j < 10000;
    return 100000*$i + $j if $j < 100000;
    return 1000000*$i + $j if $j < 1000000;
    die "My head hurts, $j is too big!";
}

sub infix:<+×>(Int $i, Int $j) { $i + $j | $i × $j }
sub infix:<+×∥>(Int $i, Int $j) { $i + $j | $i × $j | $i ∥ $j }

sub valid-equation($equation)
{
    my ($value, @terms) = $equation.comb(/\d+/)».Int;

    return ([+×] @terms) == $value ?? $value !! 0;
}

sub valid-equation-v2($equation)
{
    my ($value, @terms) = $equation.comb(/\d+/)».Int;

    return ([+×∥] @terms) == $value ?? $value !! 0;
}

sub MAIN(IO() $inputfile where *.f = 'aoc07.input', Bool :v(:$verbose) = False)
{
    my @equations = $inputfile.lines;
    say "Part 1: ", @equations».&valid-equation.sum;
    say "Part 2: ", @equations».&valid-equation-v2.sum;
}