Sha256: 472aedf1967e351f1755372e7aa1145061b9bbe815fdfb1c130757f173d61d62
Contents?: true
Size: 642 Bytes
Versions: 323
Compression:
Stored size: 642 Bytes
Contents
package Example;
use strict;
use warnings;
use Scalar::Util qw(looks_like_number);
sub kind {
my ($x, $y, $z) = @_;
die 'TriangleError - Needs exactly 3 paramaters' if @_ != 3;
foreach my $v (@_) {
die "TriangleError - Not a number ($v)" if not looks_like_number($v);
die "TriangleError - Negative number ($v)" if $v < 0;
die "TriangleError - Zero side ($v)" if $v == 0;
}
die "TriangleError - illegal triple (@_)" if
$x + $y <= $z or
$x + $z <= $y or
$y + $z <= $x;
return 'equilateral' if $x == $y and $y == $z;
return 'isosceles' if $x == $y or $x == $z or $y == $z;
return 'scalene';
}
1;
Version data entries
323 entries across 323 versions & 1 rubygems