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


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 $current = 1;

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

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

  say $e-seq[^$steps].sum;
}