gistfile1.txt

sub CompareObjectInstances($model-instances, $current-instances) {
    # each of those is a list of systems
    
    my $tolerance = 1e-4;
    
    my @current = @$current-instances;
    for @$model-instances -> $model {
        my $match;
        my $shortest-distance = Inf;
        for @current.kv -> $i, $current {
            my $d = system-distance($model<System>, $current<System>);
            if $d < $shortest-distance {
                $shortest-distance = $d;
                $match = $i;
            }
        }
        if $shortest-distance < $tolerance {
            @current.splice($match, 1);
        } else {
            say colored("model instance " ~ $model.perl ~ " is not matched in current", "red");
        }
    }
    
    for @current -> $current {
        say colored("current instance " ~ $current.perl ~ " is not matched in model", "red");
    }
}