From 4890f56bcb60641955817cd6ff956f19c5bde344 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Tue, 25 Jun 2019 18:17:42 +0100 Subject: - Added solutions/blog by Donald Hunter. --- challenge-014/donald-hunter/blog1.txt | 1 + challenge-014/donald-hunter/perl6/ch-1.p6 | 13 +++++++++++++ 2 files changed, 14 insertions(+) create mode 100644 challenge-014/donald-hunter/blog1.txt create mode 100644 challenge-014/donald-hunter/perl6/ch-1.p6 (limited to 'challenge-014') diff --git a/challenge-014/donald-hunter/blog1.txt b/challenge-014/donald-hunter/blog1.txt new file mode 100644 index 0000000000..f2b381764a --- /dev/null +++ b/challenge-014/donald-hunter/blog1.txt @@ -0,0 +1 @@ +http://donaldh.wtf/2019/06/van-eck-byeck/ diff --git a/challenge-014/donald-hunter/perl6/ch-1.p6 b/challenge-014/donald-hunter/perl6/ch-1.p6 new file mode 100644 index 0000000000..18d4661bb1 --- /dev/null +++ b/challenge-014/donald-hunter/perl6/ch-1.p6 @@ -0,0 +1,13 @@ +use v6; + +my $van-eck := 0, -> $a { + state $index++; + state %last-seen; LEAVE %last-seen{$a} = $index; + %last-seen{$a}:exists ?? $index - %last-seen{$a} !! 0 +} ... *; + +say $van-eck[^30].join(', '); +say "Took " ~ (now - ENTER now) ~ " seconds"; + +say $van-eck[5000..^5030].join(', '); +say "Took " ~ (now - ENTER now) ~ " seconds"; -- cgit