challenge-021/arne-sommer/perl6/finding-e-fatrat


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#! /usr/bin/env perl6

my $e-seq := gather
{
  take 1;

  my FatRat $current = 1.FatRat;

  for 1 .. Inf
  {
    $current /= $_;
    take $current;
  }
}

sub MAIN (:$steps = 10, :$verbose)
{
  $verbose && say "{$_ + 1}: { $e-seq[$_].perl }" for ^$steps;
  
  say $e-seq[^$steps].sum;
}