Skip to content

Instantly share code, notes, and snippets.

@dogbert17

dogbert17/slowdown.p6

Created January 21, 2017 23:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dogbert17/b052a9da0457916c5f8300990cdad35f to your computer and use it in GitHub Desktop.
Save dogbert17/b052a9da0457916c5f8300990cdad35f to your computer and use it in GitHub Desktop.
Download ZIP
code slowdown
Raw
slowdown.p6
my $sum = 0;
for (1..2015) -> $term {
$sum += $term;
my $factors = (1..floor(sqrt($sum))).grep(-> $x { $sum % $x == 0} ).elems * 2;
$factors-- if floor(sqrt($sum)) == sqrt($sum);
}
say now - INIT now;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment