diff options
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common/Func.pm | 6 | ||||
| -rw-r--r-- | MDK/Common/Math.pm | 8 | ||||
| -rw-r--r-- | MDK/Common/System.pm | 2 |
3 files changed, 8 insertions, 8 deletions
diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm index e954a0b..eca3493 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -198,7 +198,7 @@ sub fold_left(&@) { local ($::a, $::b); $::a = $initial; foreach (@l) { $::b = $_; $::a = &$f() } - $::a + $::a; } sub smapn { @@ -206,7 +206,7 @@ sub smapn { my $n = shift; my @r; for (my $i = 0; $i < $n; $i++) { push @r, &$f(map { $_->[$i] } @_) } - @r + @r; } sub mapn(&@) { my $f = shift; @@ -220,7 +220,7 @@ sub mapn_(&@) { sub find(&@) { my $f = shift; $f->($_) and return $_ foreach @_; - undef + undef; } sub any(&@) { my $f = shift; diff --git a/MDK/Common/Math.pm b/MDK/Common/Math.pm index c49c828..c1ce753 100644 --- a/MDK/Common/Math.pm +++ b/MDK/Common/Math.pm @@ -165,13 +165,13 @@ sub decimal2fraction { # ex: 1.33333333 -> (4, 3) ($c, $d) = ($c * $k + $d, $c); $n -= $k; } - ($a, $c) + ($a, $c); } sub poly2 { my ($a, $b, $c) = @_; my $d = ($b**2 - 4 * $a * $c) ** 0.5; - (-$b + $d) / 2 / $a, (-$b - $d) / 2 / $a + (-$b + $d) / 2 / $a, (-$b - $d) / 2 / $a; } # A(n,p) @@ -181,14 +181,14 @@ sub permutations { for ($r = 1, $i = 0; $i < $p; $i++) { $r *= $n - $i; } - $r + $r; } # C(n,p) sub combinaisons { my ($n, $p) = @_; - permutations($n, $p) / factorial($p) + permutations($n, $p) / factorial($p); } sub factorial { permutations($_[0], $_[0]) } diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index 29b8472..235a530 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -232,7 +232,7 @@ sub distrib() { my $company = $oem{COMPANY} || 'Mandrakesoft'; my $system = $oem{SYSTEM} || $real_system; my $product = $oem{PRODUCT} || $real_product; - (company => $company, system => $system, product => $product, real_system => $real_system, real_product => $real_product) + (company => $company, system => $system, product => $product, real_system => $real_system, real_product => $real_product); } sub typeFromMagic { |