package BobUtil;

use strict;
use List::Util qw(min max);

sub set_min {
    my ($set) = @_;
    min @{ $set->items };
}

sub set_max {
    my ($set) = @_;
    max @{ $set->items };
}

1;