The Weekly Challenge Advent Calendar 2022

# 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);

[
  0,
  0.2,
  0.25,
  0.333333,
  0.4,
  0.5,
  0.5,
  0.6,
  0.666667,
  0.75,
  0.8,
  1
] : double[](0x5652e2536340)