SYNOPSIS

    use Number::Closest::NonOO qw(find_closest_number find_farthest_number);
    my $nums = find_closest_number(number=>3, numbers=>[1, 3, 5, 10], items => 2); # => [3, 1]

    $nums = find_farthest_number(number=>3, numbers=>[1, 3, 5, 10]); # => 10

DESCRIPTION

FAQ

How do I find closest numbers that are {smaller, larger} than specified
number?

   You can filter (grep) your list of numbers first, for example to find
   numbers that are closest and smaller or equal to 3:

    my @nums = grep {$_ <= 3} 1, 3, 5, 2, 4;
    my $res = find_closest_number(number => 3, numbers => \@nums);

How do I find unique closest number(s)?

   Perform uniq() (see List::MoreUtils) on the resulting numbers.

SEE ALSO

   Number::Closest. Number::Closest::NonOO is a non-OO version of
   Number::Closest, with some additional features: customize handling
   NaN/Inf, find farthest number.