About: 2022 White Camel Awardee. CPAN Contributor. Co-editor of Perl Weekly newsletter. Run The Weekly Challenge. Father of 3 angels. Indian by birth, British by choice.
Welcome to our 4th Advent Calendar. I promise to present interesting topic every day contributed by esteemed members of Team PWC.
MON |
TUE |
WED |
THU |
FRI |
SAT |
SUN |
|
|
|
|
 1
|
 2
|
 3
|
 4
|
 5
|
 6
|
 7
|
 8
|
 9
|
 10
|
 11
|
 12
|
 13
|
 14
|
 15
|
 16
|
 17
|
 18
|
 19
|
 20
|
 21
|
 22
|
 23
|
 24
|
 25 |
26 |
27 |
28 |
29 |
30 |
31 |
|
I tried Day 5 Farey Sequence using SPVM.
theweeklychallenge.org/blog/advent...
# SPVM/FareySequence.spvm
class FareySequence {
use DoubleList;
use Fn;
use Sort;
static method farey_sequence : void ($n : int) {
my $fs_list = DoubleList->new([(double)0/1, 1/1]);
for (my $numerator = 1; $numerator < $n; $numerator++) {
for (my $denominator = $numerator + 1; $denominator < $n + 1; $denominator++) {
$fs_list->push((double)$numerator / $denominator);
}
}
my $fs = $fs_list->to_array;
Sort->sort_double_asc($fs);
say dump $fs;
}
}
# farey_sequence.pl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin";
use SPVM 'FareySequence';
SPVM::FareySequence->farey_sequence(5);
Output:
[
0,
0.2,
0.25,
0.333333,
0.4,
0.5,
0.5,
0.6,
0.666667,
0.75,
0.8,
1
] : double[](0x5652e2536340)
Could I join the the weekly challenge using SPVM in this comment?