in reply to Solving a maths problem with Perl

And because I, in turn, am me: 
pdl> $n = sequence(15)+1

pdl> p $a = 1 + 1/$n
[2 1.5 1.33333333333333 1.25 1.2 1.16666666666667 1.14285714285714 1.1
+25 1.11111111111111 1.1 1.09090909090909 1.08333333333333 1.076923076
+92308 1.07142857142857 1.06666666666667]
pdl> p $s = $a->sumover
18.318228993229

[download]
I'm somewhat sure that took less time and was more maths-y than using OO ;-)

Replies are listed 'Best First'.
Re^2: Solving a maths problem with Perl
by marioroy (Prior) on Aug 10, 2024 at 07:54 UTC

    I tried combining tobyink's OOP and your solution ;-)

    use v5.16;

package Local::App2 {
    use Exporter::Shiny 'S';
    use PDL;

    sub a {
        my $n = shift;
        my $pdl = sequence($n) + 1;
        my $ans = 1 + (1/$pdl);
    }
    sub S {
        my $n = shift;
        my $s = a($n)->sumover;
    }
}

use Local::App2 'S';
say S(15);

    [download]

    Output

    18.318228993229

    [download]
[reply]
[d/l]
[select]

In Section Cool Uses for Perl