The Weekly Challenge Advent Calendar 2022

---

|   2019   |   2020   |   2021   |   2022   |

---

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

---

Comments

[Yuki Kimoto - SPVM Author]

Could I join the the weekly challenge using SPVM in this comment?

[Mohammad S Anwar]

Certainly, feel free.

[Yuki Kimoto - SPVM Author]

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)

[Yuki Kimoto - SPVM Author]

Thanks. I will try an example.