@@ -417,9 +417,7 @@ sub isOne {
417
417
}
418
418
} else {
419
419
for my $row (@{ $self -> {data } }) {
420
- if (!$row -> isOne) {
421
- return 0;
422
- }
420
+ return 0 unless $row -> isOne;
423
421
}
424
422
}
425
423
return 1;
@@ -469,9 +467,7 @@ sub isUpperTriangular {
469
467
}
470
468
} else {
471
469
for my $row (@{ $self -> {data } }) {
472
- if (!$row -> isUpperTriangular) {
473
- return 0;
474
- }
470
+ return 0 unless $row -> isUpperTriangular;
475
471
}
476
472
}
477
473
return 1;
@@ -498,9 +494,7 @@ sub isLowerTriangular {
498
494
}
499
495
} else {
500
496
for my $row (@{ $self -> {data } }) {
501
- if (!$row -> isLowerTriangular) {
502
- return 0;
503
- }
497
+ return 0 unless $row -> isLowerTriangular;
504
498
}
505
499
}
506
500
return 1;
@@ -536,9 +530,7 @@ sub isSymmetric {
536
530
}
537
531
} else {
538
532
for my $row (@{ $self -> {data } }) {
539
- if (!$row -> isSymmetric) {
540
- return 0;
541
- }
533
+ return 0 unless $row -> isSymmetric;
542
534
}
543
535
}
544
536
return 1;
@@ -587,15 +579,13 @@ sub isREF {
587
579
}
588
580
} else {
589
581
for my $row (@{ $self -> {data } }) {
590
- if (!$row -> isREF) {
591
- return 0;
592
- }
582
+ return 0 unless $row -> isREF;
593
583
}
594
584
}
595
585
return 1;
596
586
}
597
587
598
- =head3 C<isREF >
588
+ =head3 C<isRREF >
599
589
600
590
Check if a Matrix is in reduced row echelon form (for degree > 2, applies to frontal slice matrices)
601
591
@@ -630,9 +620,7 @@ sub isRREF {
630
620
}
631
621
} else {
632
622
for my $row (@{ $self -> {data } }) {
633
- if (!$row -> isRREF) {
634
- return 0;
635
- }
623
+ return 0 unless $row -> isREF;
636
624
}
637
625
}
638
626
return 1;
0 commit comments