diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-06-25 18:17:42 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-06-25 18:17:42 +0100 |
| commit | 4890f56bcb60641955817cd6ff956f19c5bde344 (patch) | |
| tree | 165bc2b3fafa2cd5f4c055bf6c777b693d54fa4e /challenge-014/donald-hunter | |
| parent | e3743a23276e1c2c5d1ec0304810ccd92812a129 (diff) | |
| download | perlweeklychallenge-club-4890f56bcb60641955817cd6ff956f19c5bde344.tar.gz perlweeklychallenge-club-4890f56bcb60641955817cd6ff956f19c5bde344.tar.bz2 perlweeklychallenge-club-4890f56bcb60641955817cd6ff956f19c5bde344.zip | |
- Added solutions/blog by Donald Hunter.
Diffstat (limited to 'challenge-014/donald-hunter')
| -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"; |