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.