view release on metacpan or  search on metacpan

scripts/colpairs  view on Meta::CPAN

           #my $val = mid (  values %{ $pf->[$i][$j] } ) ; # . "-" . ( max values %{ $pf->[$i][$j] } ) ; 

sub midval ( $ ) { 

    @_ = sort { $a <=> $b } values %{ $_[0] } ;
    my $len = scalar @_ - 1 ; 
    # return ( $_[ floor $len * $quot ] + $_[ ceil $len * $quot ] ) / 2 ; 
    return  $_[ floor $len * $quot ] ; # + $_[ ceil $len * $quot ] ) / 2 ; 
}

sub qval( $ ) {  # qval( 1, 2 ) ; 1番目は $pf->[$i][$j]まで 
	my $f = midval $_[0] ;
	return grep { $_[0]->{$_} == $f } keys %{ $_[0] } ; 
}


sub pickN ( $@ ) { 
	my $n = shift @_ ; 
	splice @_ , 0, $n ; 
}