aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--challenge-065/mohammad-anwar/perl/ch-1.pl47
-rw-r--r--challenge-065/mohammad-anwar/perl/ch-1a.pl55
-rw-r--r--challenge-065/mohammad-anwar/perl/ch-2.pl68
-rw-r--r--challenge-065/mohammad-anwar/perl/ch-2a.pl82
-rw-r--r--stats/pwc-current.json193
-rw-r--r--stats/pwc-language-breakdown-summary.json46
-rw-r--r--stats/pwc-language-breakdown.json502
-rw-r--r--stats/pwc-leaders.json760
-rw-r--r--stats/pwc-summary-1-30.json20
-rw-r--r--stats/pwc-summary-121-150.json86
-rw-r--r--stats/pwc-summary-151-180.json94
-rw-r--r--stats/pwc-summary-31-60.json44
-rw-r--r--stats/pwc-summary-61-90.json36
-rw-r--r--stats/pwc-summary-91-120.json98
-rw-r--r--stats/pwc-summary.json376
15 files changed, 1387 insertions, 1120 deletions
diff --git a/challenge-065/mohammad-anwar/perl/ch-1.pl b/challenge-065/mohammad-anwar/perl/ch-1.pl
new file mode 100644
index 0000000000..50d73236cd
--- /dev/null
+++ b/challenge-065/mohammad-anwar/perl/ch-1.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+#
+# Perl Weekly Challenge - 065
+#
+# Task #1: Digits Sum
+#
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-065/
+#
+
+use strict;
+use warnings;
+
+use List::Util qw(sum);
+
+my $N = $ARGV[0] || 2;
+my $S = $ARGV[1] || 4;
+
+print sprintf("%s\n", join(", ", find_numbers($N, $S)));
+
+sub find_numbers {
+ my ($digits, $sum) = @_;
+
+ die "ERROR: Missing digits.\n" unless defined $digits;
+ die "ERROR: Missing sum.\n" unless defined $sum;
+
+ die "ERROR: Invalid digits [$digits].\n" unless ($digits =~ /^[0-9]+$/);
+ die "ERROR: Invalid sum [$sum].\n" unless ($sum =~ /^[0-9]+$/);
+
+ my $start = sprintf("%d", '1' . '0' x ($digits-1));
+ my $end = sprintf("%d", '9' x $digits);
+ --$start;
+
+ my @numbers;
+ while (++$start <= $end) {
+
+ my @digits = split //, $start;
+ next if (grep { $_ > $sum } @digits);
+
+ my $SUM = sum @digits;
+ next if ($SUM != $sum);
+
+ push @numbers, $start;
+ }
+
+ return @numbers;
+}
diff --git a/challenge-065/mohammad-anwar/perl/ch-1a.pl b/challenge-065/mohammad-anwar/perl/ch-1a.pl
new file mode 100644
index 0000000000..15f4055d06
--- /dev/null
+++ b/challenge-065/mohammad-anwar/perl/ch-1a.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+
+#
+# Perl Weekly Challenge - 065
+#
+# Task #1: Digits Sum
+#
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-065/
+#
+
+use strict;
+use warnings;
+
+use Test::More;
+use List::Util qw(sum);
+
+is sprintf("%s", join(", ", find_numbers(2, 4))),
+ "13, 22, 31, 40",
+ "\$N=2 \$S=4";
+is sprintf("%s", join(", ", find_numbers(3, 26))),
+ "899, 989, 998",
+ "\$N=3 \$S=26";
+is sprintf("%s", join(", ", find_numbers(3, 30))),
+ "",
+ "\$N=3 \$S=30";
+
+done_testing;
+
+sub find_numbers {
+ my ($digits, $sum) = @_;
+
+ die "ERROR: Missing digits.\n" unless defined $digits;
+ die "ERROR: Missing sum.\n" unless defined $sum;
+
+ die "ERROR: Invalid digits [$digits].\n" unless ($digits =~ /^[0-9]+$/);
+ die "ERROR: Invalid sum [$sum].\n" unless ($sum =~ /^[0-9]+$/);
+
+ my $start = sprintf("%d", '1' . '0' x ($digits-1));
+ my $end = sprintf("%d", '9' x $digits);
+ --$start;
+
+ my @numbers;
+ while (++$start <= $end) {
+
+ my @digits = split //, $start;
+ next if (grep { $_ > $sum } @digits);
+
+ my $SUM = sum @digits;
+ next if ($SUM != $sum);
+
+ push @numbers, $start;
+ }
+
+ return @numbers;
+}
diff --git a/challenge-065/mohammad-anwar/perl/ch-2.pl b/challenge-065/mohammad-anwar/perl/ch-2.pl
new file mode 100644
index 0000000000..a6b7a3df31
--- /dev/null
+++ b/challenge-065/mohammad-anwar/perl/ch-2.pl
@@ -0,0 +1,68 @@
+#!/usr/bin/perl
+
+#
+# Perl Weekly Challenge - 065
+#
+# Task #2: Palindrome Partition
+#
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-065/
+#
+
+use strict;
+use warnings;
+
+use Algorithm::Combinatorics qw(partitions);
+
+my $palindromes = find_palindromes($ARGV[0]);
+print sprintf("%s\n", join(", ", @$_)) for @$palindromes;
+
+sub find_palindromes {
+ my ($string) = @_;
+
+ die "ERROR: Missing string.\n"
+ unless defined $string;
+ die "ERROR: String must have 2 or more alphabets. [$string]\n"
+ unless (length($string) >= 2);
+
+ my @partitions = partitions([split //, $string]);
+ my %partitions = ();
+
+ foreach my $entry (@partitions) {
+ foreach my $partition (@$entry) {
+ my $str = join ("", @$partition);
+ next if (length($str) == 1
+ ||
+ length($str) == length($string)
+ );
+
+ if (index($string, $str) >= 0) {
+ $partitions{$str} = index($string, $str);
+ }
+ }
+ }
+
+ my $index = 0;
+ my $palindromes = [];
+ my %seen_partitions = ();
+ foreach my $primary (sort { $partitions{$a} <=> $partitions{$b} }
+ sort keys %partitions) {
+ next unless ($primary eq reverse($primary));
+ next if (exists $seen_partitions{$primary});
+
+ push @{$palindromes->[$index]}, $primary;
+ foreach my $secondary (sort keys %partitions) {
+ next unless ($secondary eq reverse($secondary));
+
+ if ($partitions{$secondary} >= $partitions{$primary} + length($primary)) {
+ push @{$palindromes->[$index]}, $secondary;
+ $seen_partitions{$secondary} = 1;
+ }
+ }
+ $index++;
+ }
+
+ push @{$palindromes->[scalar @$palindromes]}, $string
+ if ($string eq reverse($string));
+
+ return $palindromes;
+}
diff --git a/challenge-065/mohammad-anwar/perl/ch-2a.pl b/challenge-065/mohammad-anwar/perl/ch-2a.pl
new file mode 100644
index 0000000000..fd48d6e264
--- /dev/null
+++ b/challenge-065/mohammad-anwar/perl/ch-2a.pl
@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+
+#
+# Perl Weekly Challenge - 065
+#
+# Task #2: Palindrome Partition
+#
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-065/
+#
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Deep;
+use Algorithm::Combinatorics qw(partitions);
+
+is_deeply find_palindromes('aabaab'),
+ [['aa','baab'],['aabaa'],['aba']],
+ 'aabaab';
+is_deeply find_palindromes('abbaba'),
+ [['abba'],['bb','aba'],['bab']],
+ 'abbaba';
+is_deeply find_palindromes('aa'),
+ [['aa']],
+ 'aa';
+is_deeply find_palindromes('ab'),
+ [],
+ 'ab';
+
+done_testing;
+
+sub find_palindromes {
+ my ($string) = @_;
+
+ die "ERROR: Missing string.\n"
+ unless defined $string;
+ die "ERROR: String must have 2 or more alphabets. [$string]\n"
+ unless (length($string) >= 2);
+
+ my @partitions = partitions([split //, $string]);
+ my %partitions = ();
+
+ foreach my $entry (@partitions) {
+ foreach my $partition (@$entry) {
+ my $str = join ("", @$partition);
+ next if (length($str) == 1
+ ||
+ length($str) == length($string)
+ );
+
+ if (index($string, $str) >= 0) {
+ $partitions{$str} = index($string, $str);
+ }
+ }
+ }
+
+ my $index = 0;
+ my $palindromes = [];
+ my %seen_partitions = ();
+ foreach my $primary (sort { $partitions{$a} <=> $partitions{$b} }
+ sort keys %partitions) {
+ next unless ($primary eq reverse($primary));
+ next if (exists $seen_partitions{$primary});
+
+ push @{$palindromes->[$index]}, $primary;
+ foreach my $secondary (sort keys %partitions) {
+ next unless ($secondary eq reverse($secondary));
+
+ if ($partitions{$secondary} >= $partitions{$primary} + length($primary)) {
+ push @{$palindromes->[$index]}, $secondary;
+ $seen_partitions{$secondary} = 1;
+ }
+ }
+ $index++;
+ }
+
+ push @{$palindromes->[scalar @$palindromes]}, $string
+ if ($string eq reverse($string));
+
+ return $palindromes;
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index d4d3709496..e5dc29334e 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,87 +1,7 @@
{
- "yAxis" : {
- "title" : {
- "text" : "Total Solutions"
- }
- },
- "plotOptions" : {
- "series" : {
- "dataLabels" : {
- "format" : "{point.y}",
- "enabled" : 1
- },
- "borderWidth" : 0
- }
- },
- "subtitle" : {
- "text" : "[Champions: 8] Last updated at 2020-06-17 09:27:10 GMT"
- },
- "xAxis" : {
- "type" : "category"
- },
- "chart" : {
- "type" : "column"
- },
- "legend" : {
- "enabled" : 0
- },
- "tooltip" : {
- "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
- "followPointer" : 1,
- "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
- },
- "series" : [
- {
- "name" : "Perl Weekly Challenge - 065",
- "colorByPoint" : 1,
- "data" : [
- {
- "drilldown" : "Andrew Shitov",
- "y" : 2,
- "name" : "Andrew Shitov"
- },
- {
- "y" : 1,
- "drilldown" : "Dave Jacoby",
- "name" : "Dave Jacoby"
- },
- {
- "drilldown" : "Javier Luque",
- "y" : 5,
- "name" : "Javier Luque"
- },
- {
- "y" : 4,
- "drilldown" : "Luca Ferrari",
- "name" : "Luca Ferrari"
- },
- {
- "name" : "Roger Bell_West",
- "drilldown" : "Roger Bell_West",
- "y" : 2
- },
- {
- "drilldown" : "Simon Proctor",
- "y" : 1,
- "name" : "Simon Proctor"
- },
- {
- "drilldown" : "Ulrich Rieke",
- "y" : 2,
- "name" : "Ulrich Rieke"
- },
- {
- "y" : 2,
- "drilldown" : "Wanderdoc",
- "name" : "Wanderdoc"
- }
- ]
- }
- ],
"drilldown" : {
"series" : [
{
- "name" : "Andrew Shitov",
"data" : [
[
"Raku",
@@ -92,20 +12,20 @@
1
]
],
+ "name" : "Andrew Shitov",
"id" : "Andrew Shitov"
},
{
+ "name" : "Dave Jacoby",
"id" : "Dave Jacoby",
"data" : [
[
"Blog",
1
]
- ],
- "name" : "Dave Jacoby"
+ ]
},
{
- "id" : "Javier Luque",
"data" : [
[
"Perl",
@@ -120,10 +40,10 @@
1
]
],
- "name" : "Javier Luque"
+ "name" : "Javier Luque",
+ "id" : "Javier Luque"
},
{
- "id" : "Luca Ferrari",
"data" : [
[
"Raku",
@@ -134,9 +54,20 @@
2
]
],
+ "id" : "Luca Ferrari",
"name" : "Luca Ferrari"
},
{
+ "name" : "Mohammad S Anwar",
+ "id" : "Mohammad S Anwar",
+ "data" : [
+ [
+ "Perl",
+ 2
+ ]
+ ]
+ },
+ {
"data" : [
[
"Perl",
@@ -147,8 +78,8 @@
1
]
],
- "name" : "Roger Bell_West",
- "id" : "Roger Bell_West"
+ "id" : "Roger Bell_West",
+ "name" : "Roger Bell_West"
},
{
"data" : [
@@ -161,8 +92,8 @@
"id" : "Simon Proctor"
},
{
- "id" : "Ulrich Rieke",
"name" : "Ulrich Rieke",
+ "id" : "Ulrich Rieke",
"data" : [
[
"Perl",
@@ -175,18 +106,102 @@
]
},
{
- "name" : "Wanderdoc",
"data" : [
[
"Perl",
2
]
],
+ "name" : "Wanderdoc",
"id" : "Wanderdoc"
}
]
},
+ "xAxis" : {
+ "type" : "category"
+ },
"title" : {
"text" : "Perl Weekly Challenge - 065"
+ },
+ "tooltip" : {
+ "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
+ "followPointer" : 1,
+ "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
+ },
+ "series" : [
+ {
+ "data" : [
+ {
+ "y" : 2,
+ "drilldown" : "Andrew Shitov",
+ "name" : "Andrew Shitov"
+ },
+ {
+ "name" : "Dave Jacoby",
+ "drilldown" : "Dave Jacoby",
+ "y" : 1
+ },
+ {
+ "drilldown" : "Javier Luque",
+ "name" : "Javier Luque",
+ "y" : 5
+ },
+ {
+ "y" : 4,
+ "name" : "Luca Ferrari",
+ "drilldown" : "Luca Ferrari"
+ },
+ {
+ "y" : 2,
+ "name" : "Mohammad S Anwar",
+ "drilldown" : "Mohammad S Anwar"
+ },
+ {
+ "y" : 2,
+ "drilldown" : "Roger Bell_West",
+ "name" : "Roger Bell_West"
+ },
+ {
+ "drilldown" : "Simon Proctor",
+ "name" : "Simon Proctor",
+ "y" : 1
+ },
+ {
+ "drilldown" : "Ulrich Rieke",
+ "name" : "Ulrich Rieke",
+ "y" : 2
+ },
+ {
+ "name" : "Wanderdoc",
+ "drilldown" : "Wanderdoc",
+ "y" : 2
+ }
+ ],
+ "name" : "Perl Weekly Challenge - 065",
+ "colorByPoint" : 1
+ }
+ ],
+ "legend" : {
+ "enabled" : 0
+ },
+ "chart" : {
+ "type" : "column"
+ },
+ "subtitle" : {
+ "text" : "[Champions: 9] Last updated at 2020-06-17 11:17:34 GMT"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : "Total Solutions"
+ }
+ },
+ "plotOptions" : {
+ "series" : {
+ "borderWidth" : 0,
+ "dataLabels" : {
+ "format" : "{point.y}",
+ "enabled" : 1
+ }
+ }
}
}
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 118bc20aec..a79e5358d2 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,13 +1,4 @@
{
- "subtitle" : {
- "text" : "Last updated at 2020-06-17 09:27:10 GMT"
- },
- "yAxis" : {
- "min" : 0,
- "title" : {
- "text" : null
- }
- },
"xAxis" : {
"labels" : {
"style" : {
@@ -17,11 +8,8 @@
},
"type" : "category"
},
- "chart" : {
- "type" : "column"
- },
- "legend" : {
- "enabled" : "false"
+ "title" : {
+ "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
},
"series" : [
{
@@ -32,7 +20,7 @@
],
[
"Perl",
- 2681
+ 2683
],
[
"Raku",
@@ -42,22 +30,34 @@
"name" : "Contributions",
"dataLabels" : {
"style" : {
- "fontFamily" : "Verdana, sans-serif",
- "fontSize" : "13px"
+ "fontSize" : "13px",
+ "fontFamily" : "Verdana, sans-serif"
},
+ "enabled" : "true",
"y" : 10,
- "color" : "#FFFFFF",
- "format" : "{point.y:.0f}",
+ "rotation" : -90,
"align" : "right",
- "enabled" : "true",
- "rotation" : -90
+ "format" : "{point.y:.0f}",
+ "color" : "#FFFFFF"
}
}
],
"tooltip" : {
"pointFormat" : "<b>{point.y:.0f}</b>"
},
- "title" : {
- "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+ "yAxis" : {
+ "title" : {
+ "text" : null
+ },
+ "min" : 0
+ },
+ "subtitle" : {
+ "text" : "Last updated at 2020-06-17 11:17:34 GMT"
+ },
+ "chart" : {
+ "type" : "column"
+ },
+ "legend" : {
+ "enabled" : "false"
}
}
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 5d9b3b0a1d..b9f25ed256 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,32 +1,13 @@
{
- "xAxis" : {
- "type" : "category"
- },
- "yAxis" : {
- "title" : {
- "text" : "Total Solutions"
- }
- },
- "plotOptions" : {
- "series" : {
- "borderWidth" : 0,
- "dataLabels" : {
- "format" : "{point.y}",
- "enabled" : 1
- }
- }
- },
- "subtitle" : {
- "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-06-17 09:27:10 GMT"
- },
"title" : {
"text" : "Perl Weekly Challenge Language"
},
+ "xAxis" : {
+ "type" : "category"
+ },
"drilldown" : {
"series" : [
{
- "id" : "001",
- "name" : "001",
"data" : [
[
"Perl",
@@ -40,11 +21,13 @@
"Blog",
11
]
- ]
+ ],
+ "id" : "001",
+ "name" : "001"
},
{
- "id" : "002",
"name" : "002",
+ "id" : "002",
"data" : [
[
"Perl",
@@ -61,8 +44,8 @@
]
},
{
- "id" : "003",
"name" : "003",
+ "id" : "003",
"data" : [
[
"Perl",
@@ -97,6 +80,7 @@
]
},
{
+ "id" : "005",
"name" : "005",
"data" : [
[
@@ -111,11 +95,9 @@
"Blog",
12
]
- ],
- "id" : "005"
+ ]
},
{
- "id" : "006",
"data" : [
[
"Perl",
@@ -130,10 +112,10 @@
7
]
],
- "name" : "006"
+ "name" : "006",
+ "id" : "006"
},
{
- "name" : "007",
"data" : [
[
"Perl",
@@ -148,11 +130,10 @@
10
]
],
- "id" : "007"
+ "id" : "007",
+ "name" : "007"
},
{
- "id" : "008",
- "name" : "008",
"data" : [
[
"Perl",
@@ -166,11 +147,13 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "008",
+ "id" : "008"
},
{
- "id" : "009",
"name" : "009",
+ "id" : "009",
"data" : [
[
"Perl",
@@ -187,8 +170,8 @@
]
},
{
- "id" : "010",
"name" : "010",
+ "id" : "010",
"data" : [
[
"Perl",
@@ -206,6 +189,7 @@
},
{
"name" : "011",
+ "id" : "011",
"data" : [
[
"Perl",
@@ -219,10 +203,11 @@
"Blog",
10
]
- ],
- "id" : "011"
+ ]
},
{
+ "name" : "012",
+ "id" : "012",
"data" : [
[
"Perl",
@@ -236,11 +221,11 @@
"Blog",
11
]
- ],
- "name" : "012",
- "id" : "012"
+ ]
},
{
+ "id" : "013",
+ "name" : "013",
"data" : [
[
"Perl",
@@ -254,11 +239,10 @@
"Blog",
13
]
- ],
- "name" : "013",
- "id" : "013"
+ ]
},
{
+ "name" : "014",
"id" : "014",
"data" : [
[
@@ -273,11 +257,11 @@
"Blog",
15
]
- ],
- "name" : "014"
+ ]
},
{
"name" : "015",
+ "id" : "015",
"data" : [
[
"Perl",
@@ -291,11 +275,9 @@
"Blog",
15
]
- ],
- "id" : "015"
+ ]
},
{
- "id" : "016",
"data" : [
[
"Perl",
@@ -310,7 +292,8 @@
12
]
],
- "name" : "016"
+ "name" : "016",
+ "id" : "016"
},
{
"data" : [
@@ -345,10 +328,11 @@
14
]
],
- "name" : "018",
- "id" : "018"
+ "id" : "018",
+ "name" : "018"
},
{
+ "name" : "019",
"id" : "019",
"data" : [
[
@@ -363,10 +347,11 @@
"Blog",
13
]
- ],
- "name" : "019"
+ ]
},
{
+ "name" : "020",
+ "id" : "020",
"data" : [
[
"Perl",
@@ -380,9 +365,7 @@
"Blog",
13
]
- ],
- "name" : "020",
- "id" : "020"
+ ]
},
{
"data" : [
@@ -404,6 +387,7 @@
},
{
"id" : "022",
+ "name" : "022",
"data" : [
[
"Perl",
@@ -417,12 +401,11 @@
"Blog",
10
]
- ],
- "name" : "022"
+ ]
},
{
- "id" : "023",
"name" : "023",
+ "id" : "023",
"data" : [
[
"Perl",
@@ -439,8 +422,6 @@
]
},
{
- "id" : "024",
- "name" : "024",
"data" : [
[
"Perl",
@@ -454,9 +435,12 @@
"Blog",
11
]
- ]
+ ],
+ "id" : "024",
+ "name" : "024"
},
{
+ "name" : "025",
"id" : "025",
"data" : [
[
@@ -471,12 +455,11 @@
"Blog",
12
]
- ],
- "name" : "025"
+ ]
},
{
- "id" : "026",
"name" : "026",
+ "id" : "026",
"data" : [
[
"Perl",
@@ -493,6 +476,8 @@
]
},
{
+ "name" : "027",
+ "id" : "027",
"data" : [
[
"Perl",
@@ -506,13 +491,9 @@
"Blog",
9
]
- ],
- "name" : "027",
- "id" : "027"
+ ]
},
{
- "id" : "028",
- "name" : "028",
"data" : [
[
"Perl",
@@ -526,7 +507,9 @@
"Blog",
9
]
- ]
+ ],
+ "name" : "028",
+ "id" : "028"
},
{
"data" : [
@@ -543,11 +526,10 @@
12
]
],
- "name" : "029",
- "id" : "029"
+ "id" : "029",
+ "name" : "029"
},
{
- "id" : "030",
"data" : [
[
"Perl",
@@ -562,11 +544,10 @@
10
]
],
- "name" : "030"
+ "name" : "030",
+ "id" : "030"
},
{
- "id" : "031",
- "name" : "031",
"data" : [
[
"Perl",
@@ -580,10 +561,11 @@
"Blog",
9
]
- ]
+ ],
+ "name" : "031",
+ "id" : "031"
},
{
- "name" : "032",
"data" : [
[
"Perl",
@@ -598,10 +580,10 @@
10
]
],
- "id" : "032"
+ "id" : "032",
+ "name" : "032"
},
{
- "id" : "033",
"data" : [
[
"Perl",
@@ -616,11 +598,12 @@
10
]
],
+ "id" : "033",
"name" : "033"
},
{
- "id" : "034",
"name" : "034",
+ "id" : "034",
"data" : [
[
"Perl",
@@ -638,6 +621,7 @@
},
{
"name" : "035",
+ "id" : "035",
"data" : [
[
"Perl",
@@ -651,11 +635,9 @@
"Blog",
9
]
- ],
- "id" : "035"
+ ]
},
{
- "name" : "036",
"data" : [
[
"Perl",
@@ -670,9 +652,12 @@
11
]
],
- "id" : "036"
+ "id" : "036",
+ "name" : "036"
},
{
+ "id" : "037",
+ "name" : "037",
"data" : [
[
"Perl",
@@ -686,13 +671,9 @@
"Blog",
9
]
- ],
- "name" : "037",
- "id" : "037"
+ ]
},
{
- "id" : "038",
- "name" : "038",
"data" : [
[
"Perl",
@@ -706,10 +687,13 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "038",
+ "id" : "038"
},
{
"id" : "039",
+ "name" : "039",
"data" : [
[
"Perl",
@@ -723,12 +707,9 @@
"Blog",
12
]
- ],
- "name" : "039"
+ ]
},
{
- "id" : "040",
- "name" : "040",
"data" : [
[
"Perl",
@@ -742,9 +723,12 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "040",
+ "id" : "040"
},
{
+ "name" : "041",
"id" : "041",
"data" : [
[
@@ -759,11 +743,9 @@
"Blog",