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

Version Path
trackler-2.2.1.105 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.104 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.103 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.102 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.101 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.100 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.99 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.98 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.97 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.96 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.95 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.94 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.93 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.92 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.91 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.90 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.89 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.88 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.87 tracks/perl5/exercises/triangle/Example.pm
trackler-2.2.1.86 tracks/perl5/exercises/triangle/Example.pm