- Added solutions by Ulrich Rieke.

32 files changed, 2756 insertions, 2550 deletions

diff --git a/challenge-283/ulrich-rieke/cpp/ch-1.cpp b/challenge-283/ulrich-rieke/cpp/ch-1.cpp
new file mode 100755
index 0000000000..908539ecf9
--- /dev/null
+++ b/challenge-283/ulrich-rieke/cpp/ch-1.cpp
@@ -0,0 +1,33 @@
+#include <iostream>

+#include <vector>

+#include <string>

+#include <map>

+#include <sstream>

+

+std::vector<std::string> split( std::string text , const char delimiter ) {

+   std::stringstream instr { text } ;

+   std::string word ;

+   std::vector<std::string> tokens ;

+   while ( std::getline( instr , word , delimiter )) 

+      tokens.push_back( word ) ;

+   return tokens ;

+}

+

+int main( ) {

+   std::cout << "Enter some integers several times , one only once!\n" ;

+   std::string line ;

+   std::getline( std::cin , line ) ;

+   auto tokens { split( line, ' ' ) } ;

+   std::vector<int> numbers ;

+   for ( auto s : tokens ) 

+      numbers.push_back( std::stoi( s ) ) ;

+   std::map<int , int> frequencies ;

+   for ( int i : numbers ) 

+      frequencies[i]++ ;

+   for ( auto it = frequencies.begin( ) ; it != frequencies.end( ) ; ++it ) {

+      if ( it->second == 1 ) {

+	 std::cout << it->first << '\n' ;

+      }

+   }

+   return 0 ;

+}

diff --git a/challenge-283/ulrich-rieke/cpp/ch-2.cpp b/challenge-283/ulrich-rieke/cpp/ch-2.cpp
new file mode 100755
index 0000000000..a53ddde486
--- /dev/null
+++ b/challenge-283/ulrich-rieke/cpp/ch-2.cpp
@@ -0,0 +1,35 @@
+#include <vector>

+#include <sstream>

+#include <string>

+#include <algorithm>

+#include <iostream>

+#include <numeric>

+

+std::vector<std::string> split( std::string text , const char delimiter ) {

+   std::stringstream instr { text } ;

+   std::vector<std::string> allTokens ;

+   std::string word ;

+   while ( std::getline( instr, word , delimiter ) ) {

+      allTokens.push_back( word ) ;

+   }

+   return allTokens ;

+}

+

+int main( ) {

+   std::cout << "Enter some positive integers, separated by blanks!\n" ;

+   std::string line ;

+   std::getline( std::cin , line ) ;

+   std::vector<std::string> tokens { split( line, ' ' ) } ;

+   std::vector<int> numbers ;

+   for ( auto s : tokens ) 

+      numbers.push_back( std::stoi( s ) ) ;

+   int len = numbers.size( ) ;

+   std::vector<int> indices( len ) ;

+   std::iota( indices.begin( ) , indices.end( ) , 0 ) ;

+   bool result = std::all_of( indices.begin( ) , indices.end( ) , 

+	 [&numbers]( int i ) { return std::count( numbers.begin( ) , 

+	    numbers.end( ) , i ) == numbers[ i ] ; } ) ;

+   std::cout << std::boolalpha << result << '\n' ;

+   return 0 ;

+}

+

diff --git a/challenge-283/ulrich-rieke/haskell/ch-1.hs b/challenge-283/ulrich-rieke/haskell/ch-1.hs
new file mode 100755
index 0000000000..988d9412a4
--- /dev/null
+++ b/challenge-283/ulrich-rieke/haskell/ch-1.hs
@@ -0,0 +1,12 @@
+module Challenge283

+   where

+import Data.List ( sort , group ) 

+

+solution :: [Int] -> Int

+solution = head . head . filter ( (== 1 ) . length ) . group . sort 

+

+main :: IO ( )

+main = do

+   putStrLn "Enter some integers several times , one only once!" 

+   numberline <- getLine 

+   print $ solution $ map read $ words numberline

diff --git a/challenge-283/ulrich-rieke/haskell/ch-2.hs b/challenge-283/ulrich-rieke/haskell/ch-2.hs
new file mode 100755
index 0000000000..ba19d6e631
--- /dev/null
+++ b/challenge-283/ulrich-rieke/haskell/ch-2.hs
@@ -0,0 +1,19 @@
+module Challenge283_2

+   where

+import Data.List ( (!!) ) 

+

+count :: Eq a => a -> [a] -> Int

+count _ [] = 0

+count d (x:xs) 

+   |d == x = 1 + count d xs

+   |otherwise = count d xs

+

+solution :: [Int] -> Bool

+solution numbers = all (\(index , number) -> count index numbers == 

+ numbers !! index ) $ zip [0 , 1 ..] numbers

+

+main :: IO ( ) 

+main = do

+   putStrLn "Enter some numbers , separated by blanks!" ;

+   numberline <- getLine

+   print $ solution $ map read $ words numberline 

diff --git a/challenge-283/ulrich-rieke/perl/ch-1.pl b/challenge-283/ulrich-rieke/perl/ch-1.pl
new file mode 100755
index 0000000000..3cf76603df
--- /dev/null
+++ b/challenge-283/ulrich-rieke/perl/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl ;

+use strict ;

+use warnings ;

+use feature 'say' ;

+

+say "Enter some numbers several times, only one number once!" ;

+my $line = <STDIN> ;

+chomp $line ;

+my @numbers = split( /\s+/ , $line ) ;

+my %frequencies ;

+map { $frequencies{$_}++ } @numbers ;

+my @selected = grep { $frequencies{$_} == 1 } @numbers ;

+say $selected[0] ;

diff --git a/challenge-283/ulrich-rieke/perl/ch-2.pl b/challenge-283/ulrich-rieke/perl/ch-2.pl
new file mode 100755
index 0000000000..87f600eb74
--- /dev/null
+++ b/challenge-283/ulrich-rieke/perl/ch-2.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl ;

+use strict ;

+use warnings ;

+use feature 'say' ;

+

+say "Enter some positive integers, separated by blanks!" ;

+my $line = <STDIN> ;

+chomp $line ;

+my @numbers = split( /\s+/ , $line ) ;

+my $len = scalar( @numbers ) - 1 ;

+#assume result to be true unless proven to be false

+my $result = "true" ;

+for my $index (0..$len ) {

+   if ( scalar( grep { $_ == $index } @numbers ) != $numbers[ $index ] ) {

+      $result = "false" ;

+   }

+}

+say $result ;

diff --git a/challenge-283/ulrich-rieke/raku/ch-1.raku b/challenge-283/ulrich-rieke/raku/ch-1.raku
new file mode 100755
index 0000000000..c1d1725c61
--- /dev/null
+++ b/challenge-283/ulrich-rieke/raku/ch-1.raku
@@ -0,0 +1,8 @@
+use v6 ;

+

+say "Enter several numbers more than once , only one once!" ;

+my $line = $*IN.get ;

+my @numbers = $line.words.map( {.Int} ) ;

+my %frequencies ;

+@numbers.map( {%frequencies{$_}++} ) ;

+say @numbers.grep( {%frequencies{$_} == 1})[0] ;

diff --git a/challenge-283/ulrich-rieke/raku/ch-2.raku b/challenge-283/ulrich-rieke/raku/ch-2.raku
new file mode 100755
index 0000000000..f95e3a274b
--- /dev/null
+++ b/challenge-283/ulrich-rieke/raku/ch-2.raku
@@ -0,0 +1,12 @@
+use v6 ;

+

+say "Enter some positive integers, separated by blanks!" ;

+my $line = $*IN.get ;

+my @numbers = $line.words.map( {.Int} ) ;

+my $result = True  ;

+for (0..@numbers.elems - 1) -> $i {

+   if (( @numbers.grep( {$_ == $i} ).elems) != @numbers[ $i ]  ) {

+      $result = False ;

+   }

+}

+say $result ;

diff --git a/challenge-283/ulrich-rieke/rust/ch-1.rs b/challenge-283/ulrich-rieke/rust/ch-1.rs
new file mode 100755
index 0000000000..c643a5e44d
--- /dev/null
+++ b/challenge-283/ulrich-rieke/rust/ch-1.rs
@@ -0,0 +1,21 @@
+use std::io ;
+use std::collections::HashMap ;
+
+fn main() {
+    println!("Enter some integers several times , one only once!");
+    let mut inline : String = String::new( ) ;
+    io::stdin( ).read_line( &mut inline ).unwrap( ) ;
+    let entered_line : &str = inline.as_str( ).trim( ) ;
+    let numbers : Vec<u32> = entered_line.split_whitespace( ).map( | s | 
+	  s.parse::<u32>( ).unwrap( ) ).collect( ) ;
+    let mut frequencies : HashMap<_,_> = HashMap::new( ) ;
+    numbers.into_iter( ).for_each( | n | { 
+	  frequencies.entry( n ).
+	  and_modify( | e | *e += 1 ).or_insert( 1 ) ;
+	  } ) ;
+    for ( k , v ) in &frequencies {
+       if *v == 1 {
+	  println!("{}" , k ) ;
+       }
+    }
+}
diff --git a/challenge-283/ulrich-rieke/rust/ch-2.rs b/challenge-283/ulrich-rieke/rust/ch-2.rs
new file mode 100755
index 0000000000..770496ffc4
--- /dev/null
+++ b/challenge-283/ulrich-rieke/rust/ch-2.rs
@@ -0,0 +1,16 @@
+use std::io ;
+
+fn main() {
+    println!("Enter some positive integers separated by blanks!");
+    let mut inline : String = String::new( ) ;
+    io::stdin( ).read_line( &mut inline ).unwrap( ) ;
+    let entered_line : &str = inline.as_str( ).trim( ) ;
+    let numbers : Vec<u32> = entered_line.split_whitespace( ).map( | s |
+	  s.parse::<u32>( ).unwrap( ) ).collect( ) ;
+    let result : bool = (0..numbers.len( )).all( | i | {
+	  let number : u32 = numbers[ i ] ;
+	  numbers.iter( ).filter( | &d | *d == (i as u32) ).count( ) == 
+	  number as usize 
+	  }) ;
+    println!("{}" , result ) ;
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index e50dbc52a6..9e875e2096 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,30 +1,4 @@
 {
-   "subtitle" : {
-      "text" : "[Champions: 9] Last updated at 2024-08-19 12:34:56 GMT"
-   },
-   "title" : {
-      "text" : "The Weekly Challenge - 283"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         },
-         "borderWidth" : 0
-      }
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "legend" : {
-      "enabled" : 0
-   },
    "drilldown" : {
       "series" : [
          {
@@ -42,12 +16,12 @@
                   1
                ]
             ],
-            "name" : "Ali Moradi",
-            "id" : "Ali Moradi"
+            "id" : "Ali Moradi",
+            "name" : "Ali Moradi"
          },
          {
-            "id" : "E. Choroba",
             "name" : "E. Choroba",
+            "id" : "E. Choroba",
             "data" : [
                [
                   "Perl",
@@ -56,34 +30,34 @@
             ]
          },
          {
-            "id" : "Feng Chang",
-            "name" : "Feng Chang",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "id" : "Feng Chang",
+            "name" : "Feng Chang"
          },
          {
             "id" : "Kjetil Skotheim",
-            "name" : "Kjetil Skotheim",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Kjetil Skotheim"
          },
          {
-            "name" : "Mark Anderson",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "id" : "Mark Anderson"
+            "id" : "Mark Anderson",
+            "name" : "Mark Anderson"
          },
          {
             "data" : [
@@ -92,21 +66,22 @@
                   2
                ]
             ],
-            "name" : "Niels van Dijke",
-            "id" : "Niels van Dijke"
+            "id" : "Niels van Dijke",
+            "name" : "Niels van Dijke"
          },
          {
             "id" : "Paulo Custodio",
-            "name" : "Paulo Custodio",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Paulo Custodio"
          },
          {
             "name" : "Peter Campbell Smith",
+            "id" : "Peter Campbell Smith",
             "data" : [
                [
                   "Perl",
@@ -116,39 +91,80 @@
                   "Blog",
                   1
                ]
-            ],
-            "id" : "Peter Campbell Smith"
+            ]
          },
          {
-            "id" : "Peter Meszaros",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
+            "id" : "Peter Meszaros",
             "name" : "Peter Meszaros"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Ulrich Rieke",
+            "name" : "Ulrich Rieke"
          }
       ]
    },
+   "subtitle" : {
+      "text" : "[Champions: 10] Last updated at 2024-08-19 13:33:03 GMT"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "title" : {
+      "text" : "The Weekly Challenge - 283"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "legend" : {
+      "enabled" : 0
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
+      }
+   },
    "series" : [
       {
-         "name" : "The Weekly Challenge - 283",
          "data" : [
             {
-               "name" : "Ali Moradi",
                "drilldown" : "Ali Moradi",
+               "name" : "Ali Moradi",
                "y" : 5
             },
             {
-               "name" : "E. Choroba",
+               "y" : 2,
                "drilldown" : "E. Choroba",
-               "y" : 2
+               "name" : "E. Choroba"
             },
             {
-               "name" : "Feng Chang",
+               "y" : 2,
                "drilldown" : "Feng Chang",
-               "y" : 2
+               "name" : "Feng Chang"
             },
             {
                "name" : "Kjetil Skotheim",
@@ -156,40 +172,43 @@
                "y" : 2
             },
             {
-               "drilldown" : "Mark Anderson",
                "y" : 2,
-               "name" : "Mark Anderson"
+               "name" : "Mark Anderson",
+               "drilldown" : "Mark Anderson"
             },
             {
                "drilldown" : "Niels van Dijke",
-               "y" : 2,
-               "name" : "Niels van Dijke"
+               "name" : "Niels van Dijke",
+               "y" : 2
             },
             {
-               "y" : 2,
                "drilldown" : "Paulo Custodio",
-               "name" : "Paulo Custodio"
+               "name" : "Paulo Custodio",
+               "y" : 2
             },
             {
-               "drilldown" : "Peter Campbell Smith",
                "y" : 3,
+               "drilldown" : "Peter Campbell Smith",
                "name" : "Peter Campbell Smith"
             },
             {
-               "name" : "Peter Meszaros",
+               "y" : 2,
                "drilldown" : "Peter Meszaros",
-               "y" : 2
+               "name" : "Peter Meszaros"
+            },
+            {
+               "drilldown" : "Ulrich Rieke",
+               "name" : "Ulrich Rieke",
+               "y" : 4
             }
          ],
+         "name" : "The Weekly Challenge - 283",
          "colorByPoint" : 1
       }
    ],
    "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/>",
-      "followPointer" : 1
-   },
-   "xAxis" : {
-      "type" : "category"
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
    }
 }
diff --git a/stats/pwc-language-breakdown-2019.json b/stats/pwc-language-breakdown-2019.json
index 135b7f4f7a..b138834518 100644
--- a/stats/pwc-language-breakdown-2019.json
+++ b/stats/pwc-language-breakdown-2019.json
@@ -1,8 +1,11 @@
 {
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2024-08-19 13:33:03 GMT"
+   },
    "drilldown" : {
       "series" : [
          {
-            "id" : "041",
+            "name" : "041",
             "data" : [
                [
                   "Perl",
@@ -17,7 +20,7 @@
                   9
                ]
             ],
-            "name" : "041"
+            "id" : "041"
          },
          {
             "data" : [
@@ -34,11 +37,12 @@
                   10
                ]
             ],
-            "name" : "040",
-            "id" : "040"
+            "id" : "040",
+            "name" : "040"
          },
          {
             "name" : "039",
+            "id" : "039",
             "data" : [
                [
                   "Perl",
@@ -52,8 +56,7 @@
                   "Blog",
                   12
                ]
-            ],
-            "id" : "039"
+            ]
          },
          {
             "name" : "038",
@@ -88,11 +91,11 @@
                   9
                ]
             ],
-            "name" : "037",
-            "id" : "037"
+            "id" : "037",
+            "name" : "037"
          },
          {
-            "name" : "036",
+            "id" : "036",
             "data" : [
                [
                   "Perl",
@@ -107,11 +110,9 @@
                   11
                ]
             ],
-            "id" : "036"
+            "name" : "036"
          },
          {
-            "id" : "035",
-            "name" : "035",
             "data" : [
                [
                   "Perl",
@@ -125,9 +126,12 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "id" : "035",
+            "name" : "035"
          },
          {
+            "id" : "034",
             "data" : [
                [
                   "Perl",
@@ -142,11 +146,9 @@
                   11
                ]
             ],
-            "name" : "034",
-            "id" : "034"
+            "name" : "034"
          },
          {
-            "id" : "033",
             "data" : [
                [
                   "Perl",
@@ -161,9 +163,11 @@
                   10
                ]
             ],
+            "id" : "033",
             "name" : "033"
          },
          {
+            "name" : "032",
             "data" : [
                [
                   "Perl",
@@ -178,7 +182,6 @@
                   10
                ]
             ],
-            "name" : "032",
             "id" : "032"
          },
          {
@@ -200,7 +203,7 @@
             "id" : "031"
          },
          {
-            "id" : "030",
+            "name" : "030",
             "data" : [
                [
                   "Perl",
@@ -215,7 +218,7 @@
                   10
                ]
             ],
-            "name" : "030"
+            "id" : "030"
          },
          {
             "data" : [
@@ -232,10 +235,11 @@
                   12
                ]
             ],
-            "name" : "029",
-            "id" : "029"
+            "id" : "029",
+            "name" : "029"
          },
          {
+            "name" : "028",
             "data" : [
                [
                   "Perl",
@@ -250,11 +254,9 @@
                   9
                ]
             ],
-            "name" : "028",
             "id" : "028"
          },
          {
-            "id" : "027",
             "name" : "027",
             "data" : [
                [
@@ -269,9 +271,11 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "id" : "027"
          },
          {
+            "name" : "026",
             "id" : "026",
             "data" : [
                [
@@ -286,10 +290,10 @@
                   "Blog",
                   10
                ]
-            ],
-            "name" : "026"
+            ]
          },
          {
+            "name" : "025",
             "data" : [
                [
                   "Perl",
@@ -304,10 +308,11 @@
                   12
                ]
             ],
-            "name" : "025",
             "id" : "025"
          },
          {
+            "name" : "024",
+            "id" : "024",
             "data" : [
                [
                   "Perl",
@@ -321,12 +326,9 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "024",
-            "id" : "024"
+            ]
          },
          {
-            "id" : "023",
             "data" : [
                [
                   "Perl",
@@ -341,10 +343,10 @@
                   12
                ]
             ],
+            "id" : "023",
             "name" : "023"
          },
          {
-            "name" : "022",
             "data" : [
                [
                   "Perl",
@@ -359,10 +361,12 @@
                   10
                ]
             ],
-            "id" : "022"
+            "id" : "022",
+            "name" : "022"
          },
          {
             "name" : "021",
+            "id" : "021",
             "data" : [
                [
                   "Perl",
@@ -376,10 +380,11 @@
                   "Blog",
                   10
                ]
-            ],
-            "id" : "021"
+            ]
          },
          {
+            "name" : "020",
+            "id" : "020",
             "data" : [
                [
                   "Perl",
@@ -393,9 +398,7 @@
                   "Blog",
                   13
                ]
-            ],
-            "name" : "020",
-            "id" : "020"
+            ]
          },
          {
             "id" : "019",
@@ -434,8 +437,8 @@
             "id" : "018"
          },
          {
-            "id" : "017",
             "name" : "017",
+            "id" : "017",
             "data" : [
                [
                   "Perl",
@@ -452,6 +455,8 @@
             ]
          },
          {
+            "name" : "016",
+            "id" : "016",
             "data" : [
                [
                   "Perl",
@@ -465,11 +470,10 @@
                   "Blog",
                   13
                ]
-            ],
-            "name" : "016",
-            "id" : "016"
+            ]
          },
          {
+            "id" : "015",
             "data" : [
                [
                   "Perl",
@@ -484,8 +488,7 @@
                   15
                ]
             ],
-            "name" : "015",
-            "id" : "015"
+            "name" : "015"
          },
          {
             "name" : "014",
@@ -538,8 +541,8 @@
                   11
                ]
             ],
-            "name" : "012",
-            "id" : "012"
+            "id" : "012",
+            "name" : "012"
          },
          {
             "id" : "011",
@@ -561,6 +564,7 @@
          },
          {
             "name" : "010",
+            "id" : "010",
             "data" : [
                [
                   "Perl",
@@ -574,11 +578,9 @@
                   "Blog",
                   11
                ]
-            ],
-            "id" : "010"
+            ]
          },
          {
-            "id" : "009",
             "name" : "009",
             "data" : [
                [
@@ -593,7 +595,8 @@
                   "Blog",
                   13
                ]
-            ]
+            ],
+            "id" : "009"
          },
          {
             "name" : "008",
@@ -614,6 +617,7 @@
             "id" : "008"
          },
          {
+            "name" : "007",
             "data" : [
                [
                   "Perl",
@@ -628,12 +632,9 @@
                   10
                ]
             ],
-            "name" : "007",
             "id" : "007"
          },
          {
-            "id" : "006",
-            "name" : "006",
             "data" : [
                [
                   "Perl",
@@ -647,9 +648,12 @@
                   "Blog",
                   7
                ]
-            ]
+            ],
+            "id" : "006",
+