diff options
38 files changed, 3343 insertions, 2779 deletions
diff --git a/challenge-320/conor-hoekstra/ch-1.bqn b/challenge-320/conor-hoekstra/bqn/ch-1.bqn index 332ee5a755..332ee5a755 100644 --- a/challenge-320/conor-hoekstra/ch-1.bqn +++ b/challenge-320/conor-hoekstra/bqn/ch-1.bqn diff --git a/challenge-320/conor-hoekstra/ch-2.bqn b/challenge-320/conor-hoekstra/bqn/ch-2.bqn index 20d234a4ba..20d234a4ba 100644 --- a/challenge-320/conor-hoekstra/ch-2.bqn +++ b/challenge-320/conor-hoekstra/bqn/ch-2.bqn diff --git a/challenge-320/eric-cheung/python/ch-1.py b/challenge-320/eric-cheung/python/ch-1.py new file mode 100755 index 0000000000..57f640454f --- /dev/null +++ b/challenge-320/eric-cheung/python/ch-1.py @@ -0,0 +1,9 @@ +
+## arrInts = [-3, -2, -1, 1, 2, 3] ## Example 1
+## arrInts = [-2, -1, 0, 0, 1] ## Example 2
+arrInts = [1, 2, 3, 4] ## Example 3
+
+nPosCount = len([nLoop for nLoop in arrInts if nLoop > 0])
+nNegCount = len([nLoop for nLoop in arrInts if nLoop < 0])
+
+print (max(nPosCount, nNegCount))
diff --git a/challenge-320/eric-cheung/python/ch-2.py b/challenge-320/eric-cheung/python/ch-2.py new file mode 100755 index 0000000000..5e2c3d812c --- /dev/null +++ b/challenge-320/eric-cheung/python/ch-2.py @@ -0,0 +1,12 @@ +
+## arrInts = [1, 23, 4, 5] ## Example 1
+## arrInts = [1, 2, 3, 4, 5] ## Example 2
+arrInts = [1, 2, 34] ## Example 3
+
+nElemSum = sum(arrInts)
+nDigitSum = sum([sum([int(charLoop) for charLoop in list(str(nLoop))]) for nLoop in arrInts])
+
+## print (nElemSum)
+## print (nDigitSum)
+
+print (abs(nElemSum - nDigitSum))
diff --git a/challenge-320/ulrich-rieke/cpp/ch-1.cpp b/challenge-320/ulrich-rieke/cpp/ch-1.cpp new file mode 100755 index 0000000000..158bba2cb8 --- /dev/null +++ b/challenge-320/ulrich-rieke/cpp/ch-1.cpp @@ -0,0 +1,36 @@ +#include <vector>
+#include <iostream>
+#include <string>
+#include <sstream>
+#include <cstdlib>
+#include <algorithm>
+
+std::vector<std::string> split( const std::string & text , char delimiter ) {
+ std::vector<std::string> tokens ;
+ std::istringstream istr { text } ;
+ std::string word ;
+ while ( std::getline( istr , word , delimiter ) )
+ tokens.push_back( word ) ;
+ return tokens ;
+}
+
+int main( ) {
+ std::cout << "Enter some integers separated by blanks!\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 ) ) ;
+ int positives = std::count_if( numbers.begin( ) , numbers.end( ) , [](int i) {
+ return i > 0 ; } ) ;
+ int negatives = std::count_if( numbers.begin( ) , numbers.end( ) , [](int i) {
+ return i < 0 ; } ) ;
+ if ( positives != 0 || negatives != 0 ) {
+ std::cout << std::max( positives , negatives ) << '\n' ;
+ }
+ else {
+ std::cout << 0 << '\n' ;
+ }
+ return 0 ;
+}
diff --git a/challenge-320/ulrich-rieke/cpp/ch-2.cpp b/challenge-320/ulrich-rieke/cpp/ch-2.cpp new file mode 100755 index 0000000000..9950e4e891 --- /dev/null +++ b/challenge-320/ulrich-rieke/cpp/ch-2.cpp @@ -0,0 +1,44 @@ +#include <iostream>
+#include <sstream>
+#include <numeric>
+#include <string>
+#include <vector>
+#include <cstdlib>
+
+std::vector<std::string> split( const std::string & text , char delimiter ) {
+ std::vector<std::string> tokens ;
+ std::istringstream istr { text } ;
+ std::string word ;
+ while ( std::getline( istr , word , delimiter ) )
+ tokens.push_back( word ) ;
+ return tokens ;
+}
+
+int digitsum( int number ) {
+ int sum = 0 ;
+ while ( number != 0 ) {
+ sum += number % 10 ;
+ number /= 10 ;
+ }
+ return sum ;
+}
+
+int main( ) {
+ std::cout << "Enter some positive integers separated by blanks!\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 ) ) ;
+ int numbersum = std::accumulate( numbers.begin( ) , numbers.end( ) , 0 ) ;
+ std::vector<int> digitsums ;
+ for ( int n : numbers ) {
+ digitsums.push_back( digitsum( n ) ) ;
+ }
+ int all_digit_sum = std::accumulate( digitsums.begin( ) , digitsums.end( ) ,
+ 0 ) ;
+ std::cout << std::abs( all_digit_sum - numbersum ) << '\n' ;
+ return 0 ;
+}
+
diff --git a/challenge-320/ulrich-rieke/haskell/ch-1.hs b/challenge-320/ulrich-rieke/haskell/ch-1.hs new file mode 100755 index 0000000000..eb3137b388 --- /dev/null +++ b/challenge-320/ulrich-rieke/haskell/ch-1.hs @@ -0,0 +1,16 @@ +module Challenge320
+ where
+
+solution :: [Int] -> Int
+solution list = if all (== 0) list then 0 else max positives negatives
+ where
+ positives :: Int
+ positives = length $ filter ( > 0 ) list
+ negatives :: Int
+ negatives = length $ filter ( < 0 ) list
+
+main :: IO ( )
+main = do
+ putStrLn "Enter some integers separated by blanks!"
+ numberline <- getLine
+ print $ solution $ map read $ words numberline
diff --git a/challenge-320/ulrich-rieke/haskell/ch-2.hs b/challenge-320/ulrich-rieke/haskell/ch-2.hs new file mode 100755 index 0000000000..becfa51647 --- /dev/null +++ b/challenge-320/ulrich-rieke/haskell/ch-2.hs @@ -0,0 +1,18 @@ +module Challenge320_2
+ where
+import Data.Char ( digitToInt )
+
+solution :: [Int] -> Int
+solution list = abs ( numbersum - allDigitSum )
+ where
+ numbersum :: Int
+ numbersum = sum list
+ allDigitSum :: Int
+ allDigitSum = sum $ map ( sum . map digitToInt . show ) list
+
+main :: IO ( )
+main = do
+ putStrLn "Enter some positive integers separated by blanks!"
+ numberline <- getLine
+ print $ solution $ map read $ words numberline
+
diff --git a/challenge-320/ulrich-rieke/perl/ch-1.pl b/challenge-320/ulrich-rieke/perl/ch-1.pl new file mode 100755 index 0000000000..00dd5c6869 --- /dev/null +++ b/challenge-320/ulrich-rieke/perl/ch-1.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+use List::Util qw ( max ) ;
+
+say "Enter some integers separated by blanks!" ;
+my $line = <STDIN> ;
+chomp $line ;
+my @numbers = split( /\s/ , $line ) ;
+my $positives = scalar( grep { $_ > 0 } @numbers ) ;
+my $negatives = scalar( grep { $_ < 0 } @numbers ) ;
+if ( $positives != 0 || $negatives != 0 ) {
+ say max( $positives , $negatives ) ;
+}
+else {
+ say 0 ;
+}
diff --git a/challenge-320/ulrich-rieke/perl/ch-2.pl b/challenge-320/ulrich-rieke/perl/ch-2.pl new file mode 100755 index 0000000000..1caa708a93 --- /dev/null +++ b/challenge-320/ulrich-rieke/perl/ch-2.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+use List::Util qw ( sum ) ;
+
+say "Enter some positive integers separated by blanks!" ;
+my $line = <STDIN> ;
+chomp $line ;
+my @numbers = split( /\s/ , $line ) ;
+my $numbersum = sum( @numbers ) ;
+my @digits = map { [split(// , $_)] } @numbers ;
+my $all_digit_sum = sum( map { sum( @$_ ) } @digits ) ;
+say abs( $numbersum - $all_digit_sum ) ;
diff --git a/challenge-320/ulrich-rieke/raku/ch-1.raku b/challenge-320/ulrich-rieke/raku/ch-1.raku new file mode 100755 index 0000000000..b0eca84c46 --- /dev/null +++ b/challenge-320/ulrich-rieke/raku/ch-1.raku @@ -0,0 +1,13 @@ +use v6 ;
+
+say "Enter some integers separated by blanks!" ;
+my $line = $*IN.get ;
+my @numbers = $line.words.map( {.Int} ) ;
+my $positives = @numbers.grep( {$_ > 0} ).elems ;
+my $negatives = @numbers.grep( {$_ < 0} ).elems ;
+if ( $positives != 0 || $negatives != 0 ) {
+ say ($positives , $negatives).max ;
+}
+else {
+ say 0 ;
+}
diff --git a/challenge-320/ulrich-rieke/raku/ch-2.raku b/challenge-320/ulrich-rieke/raku/ch-2.raku new file mode 100755 index 0000000000..a55f945b74 --- /dev/null +++ b/challenge-320/ulrich-rieke/raku/ch-2.raku @@ -0,0 +1,17 @@ +use v6 ;
+
+sub digitsum( $number is copy ) {
+ my $sum = 0 ;
+ while ( $number != 0 ) {
+ $sum += $number % 10 ;
+ $number div= 10 ;
+ }
+ return $sum ;
+}
+
+say "Enter some positive integers separated by blanks!" ;
+my $line = $*IN.get ;
+my @numbers = $line.words.map( {.Int} ) ;
+my $numbersum = [+] @numbers ;
+my $all_digit_sum = [+] @numbers.map( {digitsum( $_ )} ) ;
+say ($numbersum - $all_digit_sum).abs ;
diff --git a/challenge-320/ulrich-rieke/rust/ch-1.rs b/challenge-320/ulrich-rieke/rust/ch-1.rs new file mode 100755 index 0000000000..ae42871e6b --- /dev/null +++ b/challenge-320/ulrich-rieke/rust/ch-1.rs @@ -0,0 +1,17 @@ +use std::{io, cmp} ; + +fn main() { + println!("Enter some integers separated by blanks!"); + let mut inline : String = String::new( ) ; + io::stdin( ).read_line( &mut inline ).unwrap( ) ; + let numbers : Vec<i32> = inline.trim( ).split_whitespace( ).map( |s| + s.parse::<i32>( ).unwrap( ) ).collect( ) ; + let positives : usize = numbers.iter( ).filter( |&d| *d > 0 ).count( ) ; + let negatives : usize = numbers.iter( ).filter( |&d| *d < 0 ).count( ) ; + if positives != 0 || negatives != 0 { + println!("{}" , cmp::max( positives , negatives) ) ; + } + else { + println!("0") ; + } +} diff --git a/challenge-320/ulrich-rieke/rust/ch-2.rs b/challenge-320/ulrich-rieke/rust/ch-2.rs new file mode 100755 index 0000000000..4593e933a6 --- /dev/null +++ b/challenge-320/ulrich-rieke/rust/ch-2.rs @@ -0,0 +1,22 @@ +use std::io ; + +fn digit_sum( mut number : u32 ) -> u32 { + let mut sum : u32 = 0 ; + while number != 0 { + sum += number % 10 ; + number /= 10 ; + } + sum +} + +fn main() { + println!("Enter some positive integers separated by blanks!"); + let mut inline : String = String::new( ) ; + io::stdin( ).read_line( &mut inline ).unwrap( ) ; + let mut numbers : Vec<u32> = inline.trim( ).split_whitespace( ).map( |s| + s.parse::<u32>( ).unwrap( ) ).collect( ) ; + let numbersum : u32 = numbers.iter( ).sum( ) ; + let all_digit_sum : u32 = numbers.iter_mut( ).map( |s| digit_sum( *s ) ) + .sum( ) ; + println!("{}" , (numbersum as i32).abs_diff( all_digit_sum as i32 ) ) ; +} diff --git a/stats/pwc-challenge-319.json b/stats/pwc-challenge-319.json new file mode 100644 index 0000000000..b76d1b6d6d --- /dev/null +++ b/stats/pwc-challenge-319.json @@ -0,0 +1,513 @@ +{ + "chart" : { + "type" : "column" + }, + "series" : [ + { + "name" : "The Weekly Challenge - 319", + "data" : [ + { + "drilldown" : "Adam Russell", + "y" : 4, + "name" : "Adam Russell" + }, + { + "drilldown" : "Ali Moradi", + "y" : 3, + "name" : "Ali Moradi" + }, + { + "y" : 2, + "drilldown" : "Andreas Mahnke", + "name" : "Andreas Mahnke" + }, + { + "name" : "Arne Sommer", + "drilldown" : "Arne Sommer", + "y" : 3 + }, + { + "name" : "Athanasius", + "drilldown" : "Athanasius", + "y" : 4 + }, + { + "name" : "BarrOff", + "y" : 2, + "drilldown" : "BarrOff" + }, + { + "name" : "Bob Lied", + "drilldown" : "Bob Lied", + "y" : 2 + }, + { + "drilldown" : "David Ferrone", + "y" : 2, + "name" : "David Ferrone" + }, + { + "drilldown" : "E. Choroba", + "y" : 2, + "name" : "E. Choroba" + }, + { + "name" : "Feng Chang", + "drilldown" : "Feng Chang", + "y" : 2 + }, + { + "name" : "Jan Krnavek", + "y" : 2, + "drilldown" : "Jan Krnavek" + }, + { + "name" : "Jorg Sommrey", + "y" : 3, + "drilldown" : "Jorg Sommrey" + }, + { + "name" : "Mark Anderson", + "y" : 2, + "drilldown" : "Mark Anderson" + }, + { + "drilldown" : "Matthias Muth", + "y" : 3, + "name" : "Matthias Muth" + }, + { + "y" : 2, + "drilldown" : "Niels van Dijke", + "name" : "Niels van Dijke" + }, + { + "drilldown" : "Packy Anderson", + "y" : 5, + "name" : "Packy Anderson" + }, + { + "y" : 3, + "drilldown" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith" + }, + { + "name" : "Peter Meszaros", + "drilldown" : "Peter Meszaros", + "y" : 2 + }, + { + "y" : 3, + "drilldown" : "Robbie Hatley", + "name" : "Robbie Hatley" + }, + { + "y" : 2, + "drilldown" : "Robert Ransbottom", + "name" : "Robert Ransbottom" + }, + { + "y" : 5, + "drilldown" : "Roger Bell_West", + "name" : "Roger Bell_West" + }, + { + "name" : "Simon Green", + "drilldown" : "Simon Green", + "y" : 1 + }, + { + "name" : "Thomas Kohler", + "drilldown" : "Thomas Kohler", + "y" : 4 + }, + { + "name" : "Ulrich Rieke", + "y" : 4, + "drilldown" : "Ulrich Rieke" + }, + { + "y" : 2, + "drilldown" : "Vinod Kumar K", + "name" : "Vinod Kumar K" + }, + { + "name" : "W. Luis Mochan", + "y" : 3, + "drilldown" : "W. Luis Mochan" + }, + { + "drilldown" : "Wanderdoc", + "y" : 2, + "name" : "Wanderdoc" + } + ], + "colorByPoint" : 1 + } + ], + "tooltip" : { + "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>", + "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", + "followPointer" : 1 + }, + "title" : { + "text" : "The Weekly Challenge - 319" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "subtitle" : { + "text" : "[Champions: 27] Last updated at 2025-05-06 14:44:51 GMT" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, + "xAxis" : { + "type" : "category" + }, + "legend" : { + "enabled" : 0 + }, + "drilldown" : { + "series" : [ + { + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 2 + ] + ], + "id" : "Adam Russell", + "name" : "Adam Russell" + }, + { + "name" : "Ali Moradi", + "id" : "Ali Moradi", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ] + }, + { + "id" : "Andreas Mahnke", + "data" : [ + [ + "Perl", + 2 + ] + ], + "name" : "Andreas Mahnke" + }, + { + "name" : "Arne Sommer", + "id" : "Arne Sommer", + "data" : [ + [ + "Raku", + 2 + ], + [ + "Blog", + 1 + ] + ] + }, + { + "id" : "Athanasius", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Raku", + 2 + ] + ], + "name" : "Athanasius" + }, + { + "data" : [ + [ + "Raku", + 2 + ] + ], + "id" : "BarrOff", + "name" : "BarrOff" + }, + { + "data" : [ + [ + "Blog", + 2 + ] + ], + "id" : "Bob Lied", + "name" : "Bob Lied" + }, + { + "name" : "David Ferrone", + "id" : "David Ferrone", + "data" : [ + [ + "Perl", + 2 + ] + ] + }, + { + "name" : "E. Choroba", + "data" : [ + [ + "Perl", + 2 + ] + ], + "id" : "E. Choroba" + }, + { + "data" : [ + [ + "Raku", + 2 + ] + ], + "id" : "Feng Chang", + "name" : "Feng Chang" + }, + { + "name" : "Jan Krnavek", + "id" : "Jan Krnavek", + "data" : [ + [ + "Raku", + 2 + ] + ] + }, + { + "name" : "Jorg Sommrey", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ], + "id" : "Jorg Sommrey" + }, + { + "name" : "Mark Anderson", + "id" : "Mark Anderson", + "data" : [ + [ + "Raku", + 2 + ] + ] + }, + { + "name" : "Matthias Muth", + "id" : "Matthias Muth", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ] + }, + { + "id" : "Niels van Dijke", + "data" : [ + [ + "Perl", + 2 + ] + ], + "name" : "Niels van Dijke" + }, + { + "id" : "Packy Anderson", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Raku", + 2 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Packy Anderson" + }, + { + "name" : "Peter Campbell Smith", + "id" : "Peter Campbell Smith", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ] + }, + { + "data" : [ + [ + "Perl", + 2 + ] + ], + "id" : "Peter Meszaros", + "name" : "Peter Meszaros" + }, + { + "name" : "Robbie Hatley", + "id" : "Robbie Hatley", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ] + }, + { + "data" : [ + [ + "Raku", + 2 + ] + ], + "id" : "Robert Ransbottom", + "name" : "Robert Ransbottom" + }, + { + "id" : "Roger Bell_West", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Raku", + 2 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Roger Bell_West" + }, + { + "id" : "Simon Green", + "data" : [ + [ + "Blog", + 1 + ] + ], + "name" : "Simon Green" + }, + { + "id" : "Thomas Kohler", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 2 + ] + ], + "name" : "Thomas Kohler" + }, + { + "name" : "Ulrich Rieke", + "id" : "Ulrich Rieke", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Raku", + 2 + ] + ] + }, + { + "data" : [ + [ + "Perl", + 2 + ] + ], + "id" : "Vinod Kumar K", + "name" : "Vinod Kumar K" + }, + { + "name" : "W. Luis Mochan", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ], + "id" : "W. Luis Mochan" + }, + { + "name" : "Wanderdoc", + "data" : [ + [ + "Perl", + 2 + ] + ], + "id" : "Wanderdoc" + } + ] + } +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index b7a2e39212..450154fd46 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,47 +1,7 @@ { - "chart" : { - "type" : "column" - }, - "xAxis" : { - "type" : "category" - }, - "title" : { - "text" : "The Weekly Challenge - 319" - }, - "tooltip" : { - "headerFormat" : "<span style='font-size:11px'>{series.n |