/usr/share/perl5/cs/Math.pm is in info2man 1.1-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | #!/usr/bin/perl
#
# Math stuff.
# - Cameron Simpson <cs@zip.com.au> 31jul96
#
use strict qw(vars);
BEGIN { use cs::DEBUG; cs::DEBUG::using(__FILE__); }
package cs::Math;
$cs::Math::PI=3.141592653585979323;
sub numeric { local($a,$b)=@_; $a <=> $b }
sub lexical { local($a,$b)=@_; $a cmp $b }
sub deg2rad { shift(@_)*$cs::Math::PI/180; }
sub rad2deg { shift(@_)*180/$cs::Math::PI; }
sub min {
return undef unless @_;
my($min)=shift;
my($n);
while (@_)
{ $n=shift;
if ($n < $min) { $min=$n; }
}
$min;
}
sub max { return undef unless @_;
## warn "max(@_)";
my($max)=shift;
my($n);
while (@_)
{ $n=shift;
if ($n > $max) { $max=$n; }
}
## warn "max=$max";
$max;
}
1;
|