diff options
Diffstat (limited to 'challenge-014')
| -rw-r--r-- | challenge-014/donald-hunter/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-014/donald-hunter/perl6/ch-1.p6 | 13 |
2 files changed, 14 insertions, 0 deletions
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"; |