From 8ef75eb62757cce883f7a074e224973acbae60da Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 23 May 2022 21:16:35 +0100 Subject: - Added solutions by Peter Campbell Smith. --- challenge-166/peter-campbell-smith/perl/ch-01.pl | 76 - challenge-166/peter-campbell-smith/perl/ch-02.pl | 67 - challenge-166/peter-campbell-smith/perl/ch-1.pl | 76 + challenge-166/peter-campbell-smith/perl/ch-2.pl | 67 + stats/pwc-current.json | 91 +- stats/pwc-language-breakdown-summary.json | 62 +- stats/pwc-language-breakdown.json | 6590 +++++++++++----------- stats/pwc-leaders.json | 798 +-- stats/pwc-summary-1-30.json | 22 +- stats/pwc-summary-121-150.json | 38 +- stats/pwc-summary-151-180.json | 46 +- stats/pwc-summary-181-210.json | 56 +- stats/pwc-summary-211-240.json | 30 +- stats/pwc-summary-241-270.json | 28 +- stats/pwc-summary-31-60.json | 22 +- stats/pwc-summary-61-90.json | 104 +- stats/pwc-summary-91-120.json | 44 +- stats/pwc-summary.json | 550 +- 18 files changed, 4393 insertions(+), 4374 deletions(-) delete mode 100755 challenge-166/peter-campbell-smith/perl/ch-01.pl delete mode 100755 challenge-166/peter-campbell-smith/perl/ch-02.pl create mode 100755 challenge-166/peter-campbell-smith/perl/ch-1.pl create mode 100755 challenge-166/peter-campbell-smith/perl/ch-2.pl diff --git a/challenge-166/peter-campbell-smith/perl/ch-01.pl b/challenge-166/peter-campbell-smith/perl/ch-01.pl deleted file mode 100755 index e72ff6c1aa..0000000000 --- a/challenge-166/peter-campbell-smith/perl/ch-01.pl +++ /dev/null @@ -1,76 +0,0 @@ -#!/usr/bin/perl - -# Peter Campbell Smith - 2022-05-23 -# PWC 166 task 1 - -use v5.28; -use strict; -use warnings; -use utf8; - -# Write a program that will read from a dictionary and find 2- to 8-letter words -# that can be “spelled” in hexadecimal, with the addition of the following letter substitutions: -# o -> 0, i -> 1, l -> 1, s -> 7, t -> 7 - -# Blog: https://pjcs-pwc.blogspot.com/2022/05/d00dle5-we-are-asked-for-list-of-2-8.html - -my ($dictionary, $word, $count, $word2, $words); - -# fetch dictionary -$dictionary = `curl -s -L https://github.com/manwar/perlweeklychallenge-club/raw/master/data/dictionary.txt`; - -# as stated above -say qq[\nAs stated in challenge:]; -$count = 0; -WORD: while ($dictionary =~ m|(.*)?\n|g) { - $word = $1; - - # eliminate too short, too long or containing illegal lettes - next if (length($word) < 2 or length($word) > 8) or $word =~ m|[^abcdefolist]|i; - - # make 'special' substitutions - $word =~ y|oistlOISTL|0157101571|; - - # output - print sprintf('%9s', uc($word)); - print qq[\n] unless ++$count %10; -} -print qq[\n] if ++$count %10; -say qq[$count words]; - -#---------------------------------------------------------------------------------- - -# not allowing l -> 1 -say qq[\nOmitting l -> 1:]; -$count = 0; -WORD: while ($dictionary =~ m|(.*)?\n|g) { - $word = $1; - next if (length($word) < 2 or length($word) > 8) or $word =~ m|[^abcdefoist]|i; - $word =~ y|oistOIST|01570157|; - print sprintf('%9s', uc($word)); - print qq[\n] unless ++$count %10; -} -print qq[\n] if ++$count %10; -say qq[$count words]; - -#---------------------------------------------------------------------------------- - -# limiting 'specials' to 3 (optional extra 1) -say qq[\nLimiting 'specials' to 3:]; -$count = 0; -WORD: while ($dictionary =~ m|(.*)?\n|g) { - $word = $1; - next if (length($word) < 2 or length($word) > 8) or $word =~ m|[^abcdefoist]|i; - - # check number of specials - $word2 = $word; - $word2 =~ s|[^oist]||g; - next if length($word2) > 3; - - $word =~ y|oistOIST|01570157|; - print sprintf('%9s', uc($word)); - print qq[\n] unless ++$count %10; - -} -print qq[\n] if ++$count %10; -say qq[$count words]; diff --git a/challenge-166/peter-campbell-smith/perl/ch-02.pl b/challenge-166/peter-campbell-smith/perl/ch-02.pl deleted file mode 100755 index 424df3d8ad..0000000000 --- a/challenge-166/peter-campbell-smith/perl/ch-02.pl +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/perl - -# Peter Campbell Smith - 2022-05-23 -# PWC 166 task 2 - -use v5.28; -use strict; -use warnings; -use utf8; - -# Given a few (three or more) directories (non-recursively), display a side-by-side -# difference of files that are missing from at least one of the directories. Do not -# display files that exist in every directory. - -# Blog: https://pjcs-pwc.blogspot.com/2022/05/d00dle5-we-are-asked-for-list-of-2-8.html - -my (@dirs, $dir, $file, $width, $header, $all, %files, $line1, $line2, $prefix); - -@dirs = ([qw[Arial.ttf Comic_Sans.ttf Georgia.ttf Helvetica.ttf Impact.otf Verdana.ttf Old_Fonts/]], - [qw[Arial.ttf Comic_Sans.ttf Courier_New.ttf Helvetica.ttf Impact.otf Tahoma.ttf Verdana.ttf]], - [qw[Arial.ttf Courier_New.ttf Helvetica.ttf Impact.otf Monaco.ttf Verdana.ttf]]); - -# loop over directories -$width = 0; -for $dir (0 .. scalar @dirs - 1) { - - # loop over files within directory - for $file (@{$dirs[$dir]}) { - $files{$file} .= qq[/$dir/]; # if file exists within directory n, $files{$file} matches /n/ - $width = length($file) if length($file) > $width; # get max file name length - } - $all .= qq[/$dir/]; # if $files{$file} eq /0//1//2/ (etc) then file exists in all directories and is skipped below -} - -# heading lines -$line1 = qq[\n]; -$prefix = ' '; -for $dir (0 .. scalar @dirs - 1) { - $line1 .= $prefix . 'dir_' . sprintf('%-' . ($width - 4) . 's', chr(ord('a') + $dir)) . ' '; - $line2 .= $prefix . ('-' x ($width)) . ' '; - $prefix = '| '; -} -say qq[$line1\n$line2]; - -# file lines -for $file (sort keys %files) { - next if $files{$file} eq $all; # skip file if in all directories - - # loop over directories - $prefix = ''; - for $dir (0 .. scalar @dirs - 1) { - - # file is in this directory - if ($files{$file} =~ m|/$dir/|) { - print sprintf($prefix . " %-${width}s", $file); - - # file isn't in this directory - } else { - print sprintf($prefix . " %-${width}s", ' '); - } - $prefix = ' |'; - } - print qq[\n]; -} -print qq[\n]; - - \ No newline at end of file diff --git a/challenge-166/peter-campbell-smith/perl/ch-1.pl b/challenge-166/peter-campbell-smith/perl/ch-1.pl new file mode 100755 index 0000000000..e72ff6c1aa --- /dev/null +++ b/challenge-166/peter-campbell-smith/perl/ch-1.pl @@ -0,0 +1,76 @@ +#!/usr/bin/perl + +# Peter Campbell Smith - 2022-05-23 +# PWC 166 task 1 + +use v5.28; +use strict; +use warnings; +use utf8; + +# Write a program that will read from a dictionary and find 2- to 8-letter words +# that can be “spelled” in hexadecimal, with the addition of the following letter substitutions: +# o -> 0, i -> 1, l -> 1, s -> 7, t -> 7 + +# Blog: https://pjcs-pwc.blogspot.com/2022/05/d00dle5-we-are-asked-for-list-of-2-8.html + +my ($dictionary, $word, $count, $word2, $words); + +# fetch dictionary +$dictionary = `curl -s -L https://github.com/manwar/perlweeklychallenge-club/raw/master/data/dictionary.txt`; + +# as stated above +say qq[\nAs stated in challenge:]; +$count = 0; +WORD: while ($dictionary =~ m|(.*)?\n|g) { + $word = $1; + + # eliminate too short, too long or containing illegal lettes + next if (length($word) < 2 or length($word) > 8) or $word =~ m|[^abcdefolist]|i; + + # make 'special' substitutions + $word =~ y|oistlOISTL|0157101571|; + + # output + print sprintf('%9s', uc($word)); + print qq[\n] unless ++$count %10; +} +print qq[\n] if ++$count %10; +say qq[$count words]; + +#---------------------------------------------------------------------------------- + +# not allowing l -> 1 +say qq[\nOmitting l -> 1:]; +$count = 0; +WORD: while ($dictionary =~ m|(.*)?\n|g) { + $word = $1; + next if (length($word) < 2 or length($word) > 8) or $word =~ m|[^abcdefoist]|i; + $word =~ y|oistOIST|01570157|; + print sprintf('%9s', uc($word)); + print qq[\n] unless ++$count %10; +} +print qq[\n] if ++$count %10; +say qq[$count words]; + +#---------------------------------------------------------------------------------- + +# limiting 'specials' to 3 (optional extra 1) +say qq[\nLimiting 'specials' to 3:]; +$count = 0; +WORD: while ($dictionary =~ m|(.*)?\n|g) { + $word = $1; + next if (length($word) < 2 or length($word) > 8) or $word =~ m|[^abcdefoist]|i; + + # check number of specials + $word2 = $word; + $word2 =~ s|[^oist]||g; + next if length($word2) > 3; + + $word =~ y|oistOIST|01570157|; + print sprintf('%9s', uc($word)); + print qq[\n] unless ++$count %10; + +} +print qq[\n] if ++$count %10; +say qq[$count words]; diff --git a/challenge-166/peter-campbell-smith/perl/ch-2.pl b/challenge-166/peter-campbell-smith/perl/ch-2.pl new file mode 100755 index 0000000000..424df3d8ad --- /dev/null +++ b/challenge-166/peter-campbell-smith/perl/ch-2.pl @@ -0,0 +1,67 @@ +#!/usr/bin/perl + +# Peter Campbell Smith - 2022-05-23 +# PWC 166 task 2 + +use v5.28; +use strict; +use warnings; +use utf8; + +# Given a few (three or more) directories (non-recursively), display a side-by-side +# difference of files that are missing from at least one of the directories. Do not +# display files that exist in every directory. + +# Blog: https://pjcs-pwc.blogspot.com/2022/05/d00dle5-we-are-asked-for-list-of-2-8.html + +my (@dirs, $dir, $file, $width, $header, $all, %files, $line1, $line2, $prefix); + +@dirs = ([qw[Arial.ttf Comic_Sans.ttf Georgia.ttf Helvetica.ttf Impact.otf Verdana.ttf Old_Fonts/]], + [qw[Arial.ttf Comic_Sans.ttf Courier_New.ttf Helvetica.ttf Impact.otf Tahoma.ttf Verdana.ttf]], + [qw[Arial.ttf Courier_New.ttf Helvetica.ttf Impact.otf Monaco.ttf Verdana.ttf]]); + +# loop over directories +$width = 0; +for $dir (0 .. scalar @dirs - 1) { + + # loop over files within directory + for $file (@{$dirs[$dir]}) { + $files{$file} .= qq[/$dir/]; # if file exists within directory n, $files{$file} matches /n/ + $width = length($file) if length($file) > $width; # get max file name length + } + $all .= qq[/$dir/]; # if $files{$file} eq /0//1//2/ (etc) then file exists in all directories and is skipped below +} + +# heading lines +$line1 = qq[\n]; +$prefix = ' '; +for $dir (0 .. scalar @dirs - 1) { + $line1 .= $prefix . 'dir_' . sprintf('%-' . ($width - 4) . 's', chr(ord('a') + $dir)) . ' '; + $line2 .= $prefix . ('-' x ($width)) . ' '; + $prefix = '| '; +} +say qq[$line1\n$line2]; + +# file lines +for $file (sort keys %files) { + next if $files{$file} eq $all; # skip file if in all directories + + # loop over directories + $prefix = ''; + for $dir (0 .. scalar @dirs - 1) { + + # file is in this directory + if ($files{$file} =~ m|/$dir/|) { + print sprintf($prefix . " %-${width}s", $file); + + # file isn't in this directory + } else { + print sprintf($prefix . " %-${width}s", ' '); + } + $prefix = ' |'; + } + print qq[\n]; +} +print qq[\n]; + + \ No newline at end of file diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 1c5f3fc424..5362c53f6f 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,26 +1,6 @@ { "subtitle" : { - "text" : "[Champions: 4] Last updated at 2022-05-23 20:05:04 GMT" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "legend" : { - "enabled" : 0 - }, - "title" : { - "text" : "The Weekly Challenge - 166" - }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - }, - "borderWidth" : 0 - } + "text" : "[Champions: 5] Last updated at 2022-05-23 20:14:49 GMT" }, "series" : [ { @@ -36,41 +16,64 @@ "drilldown" : "E. Choroba" }, { + "drilldown" : "Mark Anderson", "name" : "Mark Anderson", - "y" : 2, - "drilldown" : "Mark Anderson" + "y" : 2 + }, + { + "drilldown" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith", + "y" : 3 }, { - "drilldown" : "Roger Bell_West", "y" : 4, + "drilldown" : "Roger Bell_West", "name" : "Roger Bell_West" } ], - "name" : "The Weekly Challenge - 166", - "colorByPoint" : 1 + "colorByPoint" : 1, + "name" : "The Weekly Challenge - 166" } ], + "xAxis" : { + "type" : "category" + }, + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } + } + }, + "legend" : { + "enabled" : 0 + }, + "title" : { + "text" : "The Weekly Challenge - 166" + }, "drilldown" : { "series" : [ { - "id" : "Dave Jacoby", "data" : [ [ "Perl", 2 ] ], + "id" : "Dave Jacoby", "name" : "Dave Jacoby" }, { - "id" : "E. Choroba", - "name" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "E. Choroba", + "id" : "E. Choroba" }, { "id" : "Mark Anderson", @@ -83,7 +86,20 @@ ] }, { - "name" : "Roger Bell_West", + "id" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ] + }, + { "data" : [ [ "Perl", @@ -94,17 +110,20 @@ 2 ] ], - "id" : "Roger Bell_West" + "id" : "Roger Bell_West", + "name" : "Roger Bell_West" } ] }, "tooltip" : { "pointFormat" : "{point.name}: {point.y:f}
", - "headerFormat" : "{series.name}
", - "followPointer" : 1 + "followPointer" : 1, + "headerFormat" : "{series.name}
" }, - "xAxis" : { - "type" : "category" + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } }, "chart" : { "type" : "column" diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 14756c4ada..d3030d5280 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,18 +1,12 @@ { - "subtitle" : { - "text" : "Last updated at 2022-05-23 20:05:04 GMT" - }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } - }, - "legend" : { - "enabled" : "false" - }, - "title" : { - "text" : "The Weekly Challenge Contributions [2019 - 2022]" + "xAxis" : { + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + }, + "type" : "category" }, "series" : [ { @@ -20,11 +14,11 @@ "data" : [ [ "Blog", - 2554 + 2555 ], [ "Perl", - 8086 + 8088 ], [ "Raku", @@ -32,32 +26,38 @@ ] ], "dataLabels" : { - "format" : "{point.y:.0f}", - "enabled" : "true", - "rotation" : -90, - "color" : "#FFFFFF", + "y" : 10, "align" : "right", "style" : { "fontFamily" : "Verdana, sans-serif", "fontSize" : "13px" }, - "y" : 10 + "format" : "{point.y:.0f}", + "color" : "#FFFFFF", + "rotation" : -90, + "enabled" : "true" } } ], - "tooltip" : { - "pointFormat" : "{point.y:.0f}" + "legend" : { + "enabled" : "false" }, - "xAxis" : { - "labels" : { - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } - }, - "type" : "category" + "title" : { + "text" : "The Weekly Challenge Contributions [2019 - 2022]" + }, + "subtitle" : { + "text" : "Last updated at 2022-05-23 20:14:49 GMT" }, "chart" : { "type" : "column" + }, + "yAxis" : { + "title" : { + "text" : null + }, + "min" : 0 + }, + "tooltip" : { + "pointFormat" : "{point.y:.0f}" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 860dc73712..d899f3de00 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,3056 +1,68 @@ { - "chart" : { - "type" : "column" + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } }, - "xAxis" : { - "type" : "category" + "title" : { + "text" : "The Weekly Challenge Language" }, - "tooltip" : { - "pointFormat" : "Challenge {point.name}: {point.y:f}
", - "headerFormat" : "", - "followPointer" : "true" - }, - "drilldown" : { - "series" : [ - { - "data" : [ - [ - "Perl", - 103 - ], - [ - "Raku", - 47 - ], - [ - "Blog", - 11 - ] - ], - "name" : "001", - "id" : "001" - }, - { - "id" : "002", - "data" : [ - [ - "Perl", - 79 - ], - [ - "Raku", - 36 - ], - [ - "Blog", - 10 - ] - ], - "name" : "002" - }, - { - "id" : "003", - "name" : "003", - "data" : [ - [ - "Perl", - 44 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 9 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 56 - ], - [ - "Raku", - 33 - ], - [ - "Blog", - 10 - ] - ], - "name" : "004", - "id" : "004" - }, - { - "name" : "005", - "data" : [ - [ - "Perl", - 40 - ], - [ - "Raku", - 26 - ], - [ - "Blog", - 12 - ] - ], - "id" : "005" - }, - { - "id" : "006", - "data" : [ - [ - "Perl", - 33 - ], - [ - "Raku", - 18 - ], - [ - "Blog", - 7 - ] - ], - "name" : "006" - }, - { - "id" : "007", - "name" : "007", - "data" : [ - [ - "Perl", - 31 - ], - [ - "Raku", - 23 - ], - [ - "Blog", - 10 - ] - ] - }, - { - "id" : "008", - "data" : [ - [ - "Perl", - 44 - ], - [ - "Raku", - 22 - ], - [ - "Blog", - 12 - ] - ], - "name" : "008" - }, - { - "name" : "009", - "data" : [ - [ - "Perl", - 42 - ], - [ - "Raku", - 21 - ], - [ - "Blog", - 13 - ] - ], - "id" : "009" - }, - { - "id" : "010", - "data" : [ - [ - "Perl", - 35 - ], - [ - "Raku", - 19 - ], - [ - "Blog", - 11 - ] - ], - "name" : "010" - }, - { - "id" : "011", - "name" : "011", - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 28 - ], - [ - "Blog", - 10 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 48 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 11 - ] - ], - "name" : "012", - "id" : "012" - }, - { - "id" : "013", - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 25 - ], - [ - "Blog", - 13 - ] - ], - "name" : "013" - }, - { - "id" : "014", - "name" : "014", - "data" : [ - [ - "Perl", - 55 - ], - [ - "Raku", - 31 - ], - [ - "Blog", - 15 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 56 - ], - [ - "Raku", - 28 - ], - [ - "Blog", - 15 - ] - ], - "name" : "015", - "id" : "015" - }, - { - "id" : "016", - "name" : "016", - "data" : [ - [ - "Perl", - 36 - ], - [ - "Raku", - 23 - ], - [ - "Blog", - 12 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 45 - ], - [ - "Raku", - 27 - ], - [ - "Blog", - 12 - ] - ], - "name" : "017", - "id" : "017" - }, - { - "id" : "018", - "name" : "018", - "data" : [ - [ - "Perl", - 36 - ], - [ - "Raku", - 31 - ], - [ - "Blog", - 14 - ] - ] - }, - { - "id" : "019", - "name" : "019", - "data" : [ - [ - "Perl", - 56 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 13 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 51 - ], - [ - "Raku", - 37 - ], - [ - "Blog", - 13 - ] - ], - "name" : "020", - "id" : "020" - }, - { - "data" : [ - [ - "Perl", - 38 - ], - [ - "Raku", - 24 - ], - [ - "Blog", - 10 - ] - ], - "name" : "021", - "id" : "021" - }, - { - "name" : "022", - "data" : [ - [ - "Perl", - 35 - ], - [ - "Raku", - 23 - ], - [ - "Blog", - 10 - ] - ], - "id" : "022" - }, - { - "name" : "023", - "data" : [ - [ - "Perl", - 53 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 12 - ] - ], - "id" : "023" - }, - { - "data" : [ - [ - "Perl", - 38 - ], - [ - "Raku", - 26 - ], - [ - "Blog", - 11 - ] - ], - "name" : "024", - "id" : "024" - }, - { - "data" : [ - [ - "Perl", - 28 - ], - [ - "Raku", - 19 - ], - [ - "Blog", - 12 - ] - ], - "name" : "025", - "id" : "025" - }, - { - "name" : "026", - "data" : [ - [ - "Perl", - 35 - ], - [ - "Raku", - 29 - ], - [ - "Blog", - 10 - ] - ], - "id" : "026" - }, - { - "name" : "027", - "data" : [ - [ - "Perl", - 31 - ], - [ - "Raku", - 22 - ], - [ - "Blog", - 9 - ] - ], - "id" : "027" - }, - { - "id" : "028", - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 26 - ], - [ - "Blog", - 9 - ] - ], - "name" : "028" - }, - { - "name" : "029", - "data" : [ - [ - "Perl", - 42 - ], - [ - "Raku", - 27 - ], - [ - "Blog", - 12 - ] - ], - "id" : "029" - }, - { - "id" : "030", - "name" : "030", - "data" : [ - [ - "Perl", - 76 - ], - [ - "Raku", - 33 - ], - [ - "Blog", - 10 - ] - ] - }, - { - "id" : "031", - "name" : "031", - "data" : [ - [ - "Perl", - 52 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 9 - ] - ] - }, - { - "name" : "032", - "data" : [ - [ - "Perl", - 59 - ], - [ - "Raku", - 27 - ], - [ - "Blog", - 10 - ] - ], - "id" : "032" - }, - { - "data" : [ - [ - "Perl", - 64 - ], - [ - "Raku", - 38 - ], - [ - "Blog", - 10 - ] - ], - "name" : "033", - "id" : "033" - }, - { - "name" : "034", - "data" : [ - [ - "Perl", - 32 - ], - [ - "Raku", - 23 - ], - [ - "Blog", - 11 - ] - ], - "id" : "034" - }, - { - "id" : "035", - "data" : [ - [ - "Perl", - 35 - ], - [ - "Raku", - 22 - ], - [ - "Blog", - 9 - ] - ], - "name" : "035" - }, - { - "id" : "036", - "name" : "036", - "data" : [ - [ - "Perl", - 37 - ], - [ - "Raku", - 22 - ], - [ - "Blog", - 11 - ] - ] - }, - { - "id" : "037", - "data" : [ - [ - "Perl", - 36 - ], - [ - "Raku", - 24 - ], - [ - "Blog", - 9 - ] - ], - "name" : "037" - }, - { - "data" : [ - [ - "Perl", - 34 - ], - [ - "Raku", - 24 - ], - [ - "Blog", - 12 - ] - ], - "name" : "038", - "id" : "038" - }, - { - "id" : "039", - "data" : [ - [ - "Perl", - 31 - ], - [ - "Raku", - 21 - ], - [ - "Blog", - 12 - ] - ], - "name" : "039" - }, - { - "id" : "040", - "data" : [ - [ - "Perl", - 41 - ], - [ - "Raku", - 24 - ], - [ - "Blog", - 10 - ] - ], - "name" : "040" - }, - { - "id" : "041", - "data" : [ - [ - "Perl", - 39 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 9 - ] - ], - "name" : "041" - }, - { - "id" : "042", - "data" : [ - [ - "Perl", - 49 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 11 - ] - ], - "name" : "042" - }, - { - "data" : [ - [ - "Perl", - 35 - ], - [ - "Raku", - 24 - ], - [ - "Blog", - 11 - ] - ], - "name" : "043", - "id" : "043" - }, - { - "id" : "044", - "data" : [ - [ - "Perl", - 43 - ], - [ - "Raku", - 33 - ], - [ - "Blog", - 11 - ] - ], - "name" : "044" - }, - { - "data" : [ - [ - "Perl", - 52 - ], - [ - "Raku", - 35 - ], - [ - "Blog", - 11 - ] - ], - "name" : "045", - "id" : "045" - }, - { - "data" : [ - [ - "Perl", - 46 - ], - [ - "Raku", - 33 - ], - [ - "Blog", - 10 - ] - ], - "name" : "046", - "id" : "046" - }, - { - "name" : "047", - "data" : [ - [ - "Perl", - 45 - ], - [ - "Raku", - 31 - ], - [ - "Blog", - 10 - ] - ], - "id" : "047" - }, - { - "id" : "048", - "data" : [ - [ - "Perl", - 61 - ], - [ - "Raku", - 37 - ], - [ - "Blog", - 12 - ] - ], - "name" : "048" - }, - { - "id" : "049", - "name" : "049", - "data" : [ - [ - "Perl", - 52 - ], - [ - "Raku", - 27 - ], - [ - "Blog", - 12 - ] - ] - }, - { - "name" : "050", - "data" : [ - [ - "Perl", - 52 - ], - [ - "Raku", - 36 - ], - [ - "Blog", - 12 - ] - ], - "id" : "050" - }, - { - "name" : "051", - "data" : [ - [ - "Perl", - 48 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 11 - ] - ], - "id" : "051" - }, - { - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 14 - ] - ], - "name" : "052", - "id" : "052" - }, - { - "id" : "053", - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 41 - ], - [ - "Blog", - 15 - ] - ], - "name" : "053" - }, - { - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 40 - ], - [ - "Blog", - 18 - ] - ], - "name" : "054", - "id" : "054" - }, - { - "id" : "055", - "data" : [ - [ - "Perl", - 43 - ], - [ - "Raku", - 33 - ], - [ - "Blog", - 14 - ] - ], - "name" : "055" - }, - { - "id" : "056", - "name" : "056", - "data" : [ - [ - "Perl", - 49 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 16 - ] - ] - }, - { - "id" : "057", - "data" : [ - [ - "Perl", - 41 - ], - [ - "Raku", - 26 - ], - [ - "Blog", - 15 - ] - ], - "name" : "057" - }, - { - "id" : "058", - "data" : [ - [ - "Perl", - 35 - ], - [ - "Raku", - 23 - ], - [ - "Blog", - 13 - ] - ], - "name" : "058" - }, - { - "id" : "059", - "name" : "059", - "data" : [ - [ - "Perl", - 41 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 16 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 41 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 16 - ] - ], - "name" : "060", - "id" : "060" - }, - { - "data" : [ - [ - "Perl", - 39 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 14 - ] - ], - "name" : "061", - "id" : "061" - }, - { - "data" : [ - [ - "Perl", - 30 - ], - [ - "Raku", - 19 - ], - [ - "Blog", - 11 - ] - ], - "name" : "062", - "id" : "062" - }, - { - "id" : "063", - "name" : "063", - "data" : [ - [ - "Perl", - 44 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 13 - ] - ] - }, - { - "id" : "064", - "data" : [ - [ - "Perl", - 37 - ], - [ - "Raku", - 29 - ], - [ - "Blog", - 16 - ] - ], - "name" : "064" - }, - { - "name" : "065", - "data" : [ - [ - "Perl", - 34 - ], - [ - "Raku", - 26 - ], - [ - "Blog", - 15 - ] - ], - "id" : "065" - }, - { - "name" : "066", - "data" : [ - [ - "Perl", - 41 - ], - [ - "Raku", - 31 - ], - [ - "Blog", - 14 - ] - ], - "id" : "066" - }, - { - "id" : "067", - "name" : "067", - "data" : [ - [ - "Perl", - 40 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 18 - ] - ] - }, - { - "id" : "068", - "name" : "068", - "data" : [ - [ - "Perl", - 35 - ], - [ - "Raku", - 29 - ], - [ - "Blog", - 13 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 41 - ], - [ - "Raku", - 28 - ], - [ - "Blog", - 16 - ] - ], - "name" : "069", - "id" : "069" - }, - { - "id" : "070", - "name" : "070", - "data" : [ - [ - "Perl", - 44 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 17 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 33 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 15 - ] - ], - "name" : "071", - "id" : "071" - }, - { - "name" : "072", - "data" : [ - [ - "Perl", - 53 - ], - [ - "Raku", - 42 - ], - [ - "Blog", - 19 - ] - ], - "id" : "072" - }, - { - "id" : "073", - "data" : [ - [ - "Perl", - 55 - ], - [ - "Raku", - 40 - ], - [ - "Blog", - 17 - ] - ], - "name" : "073" - }, - { - "id" : "074", - "data" : [ - [ - "Perl", - 58 - ], - [ - "Raku", - 39 - ], - [ - "Blog", - 20 - ] - ], - "name" : "074" - }, - { - "name" : "075", - "data" : [ - [ - "Perl", - 59 - ], - [ - "Raku", - 38 - ], - [ - "Blog", - 20 - ] - ], - "id" : "075" - }, - { - "id" : "076", - "data" : [ - [ - "Perl", - 53 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 16 - ] - ], - "name" : "076" - }, - { - "id" : "077", - "name" : "077", - "data" : [ - [ - "Perl", - 50 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 14 - ] - ] - }, - { - "name" : "078", - "data" : [ - [ - "Perl", - 68 - ], - [ - "Raku", - 41 - ], - [ - "Blog", - 18 - ] - ], - "id" : "078" - }, - { - "id" : "079", - "name" : "079", - "data" : [ - [ - "Perl", - 68 - ], - [ - "Raku", - 37 - ], - [ - "Blog", - 17 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 75 - ], - [ - "Raku", - 36 - ], - [ - "Blog", - 16 - ] - ], - "name" : "080", - "id" : "080" - }, - { - "id" : "081", - "data" : [ - [ - "Perl", - 65 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 15 - ] - ], - "name" : "081" - }, - { - "id" : "082", - "name" : "082", - "data" : [ - [ - "Perl", - 62 - ], - [ - "Raku", - 35 - ], - [ - "Blog", - 17 - ] - ] - }, - { - "id" : "083", - "name" : "083", - "data" : [ - [ - "Perl", - 73 - ], - [ - "Raku", - 38 - ], - [ - "Blog", - 16 - ] - ] - }, - { - "id" : "084", - "data" : [ - [ - "Perl", - 71 - ], - [ - "Raku", - 36 - ], - [ - "Blog", - 12 - ] - ], - "name" : "084" - }, - { - "data" : [ - [ - "Perl", - 64 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 18 - ] - ], - "name" : "085", - "id" : "085" - }, - { - "data" : [ - [ - "Perl", - 58 - ], - [ - "Raku", - 31 - ], - [ - "Blog", - 15 - ] - ], - "name" : "086", - "id" : "086" - }, - { - "data" : [ - [ - "Perl", - 56 - ], - [ - "Raku", - 31 - ], - [ - "Blog", - 14 - ] - ], - "name" : "087", - "id" : "087" - }, - { - "name" : "088", - "data" : [ - [ - "Perl", - 65 - ], - [ - "Raku", - 36 - ], - [ - "Blog", - 20 - ] - ], - "id" : "088" - }, - { - "data" : [ - [ - "Perl", - 59 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 20 - ] - ], - "name" : "089", - "id" : "089" - }, - { - "id" : "090", - "data" : [ - [ - "Perl", - 57 - ], - [ - "Raku", - 39 - ], - [ - "Blog", - 17 - ] - ], - "name" : "090" - }, - { - "data" : [ - [ - "Perl", - 56 - ], - [ - "Raku", - 36 - ], - [ - "Blog", - 16 - ] - ], - "name" : "091", - "id" : "091" - }, - { - "name" : "092", - "data" : [ - [ - "Perl", - 52 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 16 - ] - ], - "id" : "092" - }, - { - "id" : "093", - "data" : [ - [ - "Perl", - 46 - ], - [ - "Raku", - 25 - ], - [ - "Blog", - 16 - ] - ], - "name" : "093" - }, - { - "name" : "094", - "data" : [ - [ - "Perl", - 44 - ], - [ - "Raku", - 26 - ], - [ - "Blog", - 17 - ] - ], - "id" : "094" - }, - { - "id" : "095", - "data" : [ - [ - "Perl", - 56 - ], - [ - "Raku", - 33 - ], - [ - "Blog", - 19 - ] - ], - "name" : "095" - }, - { - "id" : "096", - "name" : "096", - "data" : [ - [ - "Perl", - 52 - ], - [ - "Raku", - 37 - ], - [ - "Blog", - 19 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 63 - ], - [ - "Raku", - 29 - ], - [ - "Blog", - 19 - ] - ], - "name" : "097", - "id" : "097" - }, - { - "id" : "098", - "name" : "098", - "data" : [ - [ - "Perl", - 59 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 17 - ] - ] - }, - { - "id" : "099", - "name" : "099", - "data" : [ - [ - "Perl", - 56 - ], - [ - "Raku", - 27 - ], - [ - "Blog", - 14 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 69 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 21 - ] - ], - "name" : "100", - "id" : "100" - }, - { - "id" : "101", - "name" : "101", - "data" : [ - [ - "Perl", - 46 - ], - [ - "Raku", - 24 - ], - [ - "Blog", - 13 - ] - ] - }, - { - "id" : "102", - "data" : [ - [ - "Perl", - 52 - ], - [ - "Raku", - 23 - ], - [ - "Blog", - 15 - ] - ], - "name" : "102" - }, - { - "data" : [ - [ - "Perl", - 41 - ], - [ - "Raku", - 23 - ], - [ - "Blog", - 15 - ] - ], - "name" : "103", - "id" : "103" - }, - { - "name" : "104", - "data" : [ - [ - "Perl", - 43 - ], - [ - "Raku", - 28 - ], - [ - "Blog", - 14 - ] - ], - "id" : "104" - }, - { - "data" : [ - [ - "Perl", - 38 - ], - [ - "Raku", - 23 - ], - [ - "Blog", - 14 - ] - ], - "name" : "105", - "id" : "105" - }, - { - "name" : "106", - "data" : [ - [ - "Perl", - 49 - ], - [ - "Raku", - 31 - ], - [ - "Blog", - 17 - ] - ], - "id" : "106" - }, - { - "data" : [ - [ - "Perl", - 45 - ], - [ - "Raku", - 26 - ], - [ - "Blog", - 19 - ] - ], - "name" : "107", - "id" : "107" - }, - { - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 27 - ], - [ - "Blog", - 20 - ] - ], - "name" : "108", - "id" : "108" - }, - { - "data" : [ - [ - "Perl", - 48 - ], - [ - "Raku", - 37 - ], - [ - "Blog", - 22 - ] - ], - "name" : "109", - "id" : "109" - }, - { - "data" : [ - [ - "Perl", - 51 - ], - [ - "Raku", - 32 - ], - [ - "Blog", - 25 - ] - ], - "name" : "110", - "id" : "110" - }, - { - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 27 - ], - [ - "Blog", - 17 - ] - ], - "name" : "111", - "id" : "111" - }, - { - "name" : "112", - "data" : [ - [ - "Perl", - 45 - ], - [ - "Raku", - 28 - ], - [ - "Blog", - 19 - ] - ], - "id" : "112" - }, - { - "id" : "113", - "data" : [ - [ - "Perl", - 43 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 19 - ] - ], - "name" : "113" - }, - { - "data" : [ - [ - "Perl", - 53 - ], - [ - "Raku", - 34 - ], - [ - "Blog", - 21 - ] - ], - "name" : "114", - "id" : "114" - }, - { - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 29 - ], - [ - "Blog", - 20 - ] - ], - "name" : "115", - "id" : "115" - }, - { - "id" : "116", - "name" : "116", - "data" : [ - [ - "Perl", - 49 - ], - [ - "Raku", - 29 - ], - [ - "Blog", - 17 - ] - ] - }, - { - "name" : "117", - "data" : [ - [ - "Perl", - 49 - ], - [ - "Raku", - 29 - ], - [ - "Blog", - 19 - ] - ], - "id" : "117" - }, - { - "data" : [ - [ - "Perl", - 47 - ], - [ - "Raku", - 19 - ], - [ - "Blog", - 17 - ] - ], - "name" : "118", - "id" : "118" - }, - { - "id" : "119", - "data" : [ - [ - "Perl", - 69 - ], - [ - "Raku", - 35 - ], - [ - "Blog", - 21 - ] - ], - "name" : "119" - }, - { - "name" : "120", - "data" : [ - [ - "Perl", - 65 - ], - [ - "Raku", - 30 - ], - [ - "Blog", - 21 - ] - ], - "id" : "120" - }, - { - "name" : "121", - "data" : [ - [ - "Perl", - 50 - ], - [ - "Raku", - 25 - ], - [ - "Blog", - 17 - ] - ], - "id" : "121" - }, - { - "data" : [ - [ - "Perl", - 57 - ], - [ - "Raku", - 33 - ], - [ - "Blog", - 20 - ] - ], - "name" : "122", - "id" : "122" - }, - { - "data" : [ - [ - "Perl", - 56 - ], - [ - "Raku", - 31 - ], - [ - "Blog", - 18 - ] - ], - "name" : "123", - "id" : "123" - }, - { - "id" : "124", - "name" : "124", - "data" : [ - [ - "Perl", - 44 - ], - [ - "Raku", - 25 - ], - [ - "Blog", - 16 - ] - ] - }, - { - "data" : [ - [ - "Perl", - 35 - ], - [ - "Raku", - 17 - ], - [ - "Blog", - 1