File Coverage

blib/lib/Math/Basic.pm

Criterion	Covered	Total	%
statement	51	51	100.0
branch	6	8	75.0
condition	4	6	66.6
subroutine	10	10	100.0
pod	6	6	100.0
total	77	81	95.0

package Math::Basic;

use 5.006;
use strict;
use warnings;
our $VERSION = '1.01';

use base qw/Import::Export/;

our %EX = (
	sum => [qw/all/],
	min => [qw/all/],
	max => [qw/all/],
	mean => [qw/all/],
	median => [qw/all/],
	mode => [qw/all/],
);

sub sum (&@) {
	my ($cb, @params) = @_;
	my $sum = 0;
	for (@params) {
		$sum += $cb->($_);
	}
	return $sum;
}

sub min (&@) {
	my ($cb, @params) = @_;
	my $min;
	for (@params) {
		my $val = $cb->($_);
 		$min = $val if (! defined $min || $val < $min);
	}
	return $min;
}

sub max (&@) {
	my ($cb, @params) = @_;
	my $max;
	for (@params) {
		my $val = $cb->($_);
 		$max = $val if (! defined $max || $val > $max);
	}
	return $max;
}

sub mean (&@) {
	my ($cb, @params) = @_;
	my $sum;
	for (@params) {
		$sum += $cb->($_);
	}
	return $sum / scalar @params;
}

sub median (&@) {
	my ($cb, @params) = @_;
	my @median;
	for (@params) {
		push @median, $cb->($_);
	}
	@median = sort @median;
	my $m = int(scalar @median / 2);
	$m++ if ($m % 2 != 0);
	return $median[$m];
}

sub mode (&@) {
	my ($cb, @params) = @_;
	my %map;
	for (@params) {
		$map{$cb->($_)}++;
	}
	my ($mode, $max) = ('', 0);
	for my $k ( keys %map ) {
		if ($map{$k} > $max) {
			$mode = $k;
			$max = $map{$k};
		}
	}
	return $mode;
}

1;

__END__