diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2024-03-18 17:15:14 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2024-03-18 17:15:14 +0000 |
| commit | b91a4623cd4c2b51f779f59b53310a0bd745f03f (patch) | |
| tree | 2c384443a6fd55d2c7e9d09429ba5aefa253e849 | |
| parent | 9f566417b406a3632edf6e95be57a9ae4c334703 (diff) | |
| download | perlweeklychallenge-club-b91a4623cd4c2b51f779f59b53310a0bd745f03f.tar.gz perlweeklychallenge-club-b91a4623cd4c2b51f779f59b53310a0bd745f03f.tar.bz2 perlweeklychallenge-club-b91a4623cd4c2b51f779f59b53310a0bd745f03f.zip | |
- Added solutions by Eric Cheung.
- Added solutions by Ulrich Rieke.
- Added solutions by Andrew Shitov.
- Added solutions by Peter Meszaros.
- Added solutions by Feng Chang.
- Added solutions by Mark Anderson.
- Added solutions by Peter Campbell Smith.
- Added solutions by E. Choroba.
- Added solutions by W. Luis Mochan.
- Added solutions by David Ferrone.
30 files changed, 2962 insertions, 2488 deletions
diff --git a/challenge-261/eric-cheung/python/ch-1.py b/challenge-261/eric-cheung/python/ch-1.py new file mode 100755 index 0000000000..348279526f --- /dev/null +++ b/challenge-261/eric-cheung/python/ch-1.py @@ -0,0 +1,13 @@ +
+## arrInt = [1, 2, 3, 45] ## Example 1
+## arrInt = [1, 12, 3] ## Example 2
+## arrInt = [1, 2, 3, 4] ## Example 3
+arrInt = [236, 416, 336, 350] ## Example 4
+
+arrSplit = []
+for nLoop in arrInt:
+ arrSplit = arrSplit + [int(elem) for elem in str(nLoop)]
+
+## print (sum(arrInt))
+## print (sum(arrSplit))
+print (abs(sum(arrInt) - sum(arrSplit)))
diff --git a/challenge-261/eric-cheung/python/ch-2.py b/challenge-261/eric-cheung/python/ch-2.py new file mode 100755 index 0000000000..a275000b69 --- /dev/null +++ b/challenge-261/eric-cheung/python/ch-2.py @@ -0,0 +1,18 @@ +
+## Example 1
+## arrInt = [5, 3, 6, 1, 12]
+## nStart = 3
+
+## Example 2
+## arrInt = [1, 2, 4, 3]
+## nStart = 1
+
+## Example 3
+arrInt = [5, 6, 7]
+nStart = 2
+
+nFinal = nStart
+while nFinal in arrInt:
+ nFinal = nFinal * 2
+
+print (nFinal)
diff --git a/challenge-261/ulrich-rieke/cpp/ch-1.cpp b/challenge-261/ulrich-rieke/cpp/ch-1.cpp new file mode 100755 index 0000000000..a088bfc147 --- /dev/null +++ b/challenge-261/ulrich-rieke/cpp/ch-1.cpp @@ -0,0 +1,30 @@ +#include <iostream>
+#include <numeric>
+#include <vector>
+#include <iterator>
+#include <cstdlib>
+
+int digitsum( int n ) {
+ int sum = 0 ;
+ while ( n != 0 ) {
+ sum += n % 10 ;
+ n /= 10 ;
+ }
+ return sum ;
+}
+
+int main( ) {
+ std::cout << "Enter some integers, separated by blanks!\n" ;
+ std::cout << "Enter e to end!\n" ;
+ std::vector<int> numbers {std::istream_iterator<int>{std::cin} ,
+ std::istream_iterator<int>{}} ;
+ int element_sum = std::accumulate( numbers.begin( ) , numbers.end( ) ,
+ 0 ) ;
+ std::vector<int> digitsums ;
+ for ( int i : numbers )
+ digitsums.push_back( digitsum( i ) ) ;
+ int total_digitsums = std::accumulate( digitsums.begin( ) ,
+ digitsums.end( ) , 0 ) ;
+ std::cout << std::abs( total_digitsums - element_sum) << '\n' ;
+ return 0 ;
+}
diff --git a/challenge-261/ulrich-rieke/cpp/ch-2.cpp b/challenge-261/ulrich-rieke/cpp/ch-2.cpp new file mode 100755 index 0000000000..e5a956a286 --- /dev/null +++ b/challenge-261/ulrich-rieke/cpp/ch-2.cpp @@ -0,0 +1,35 @@ +#include <iostream>
+#include <vector>
+#include <algorithm>
+#include <string>
+
+std::vector<std::string> split( const std::string & startline ,
+ const std::string & sep ) {
+ std::vector<std::string> separated ;
+ std::string::size_type start { 0 } ;
+ std::string::size_type pos ;
+ do {
+ pos = startline.find_first_of( sep , start ) ;
+ separated.push_back( startline.substr(start , pos - start )) ;
+ start = pos + 1 ;
+ } while ( pos != std::string::npos ) ;
+ return separated ;
+}
+
+int main( ) {
+ std::cout << "Enter some integers, separated by blanks!\n" ;
+ std::string numberline ;
+ std::getline( std::cin , numberline ) ;
+ std::vector<std::string> innumbers { split( numberline , " " ) } ;
+ std::vector<int> numbers ;
+ for ( auto w : innumbers )
+ numbers.push_back( std::stoi( w ) ) ;
+ std::cout << "Enter a start number!\n" ;
+ int start ;
+ std::cin >> start ;
+ while ( std::find( numbers.begin( ) , numbers.end( ) , start ) !=
+ numbers.end( ) )
+ start *= 2 ;
+ std::cout << start << '\n' ;
+ return 0 ;
+}
diff --git a/challenge-261/ulrich-rieke/haskell/ch-1.hs b/challenge-261/ulrich-rieke/haskell/ch-1.hs new file mode 100755 index 0000000000..515d9bb0d0 --- /dev/null +++ b/challenge-261/ulrich-rieke/haskell/ch-1.hs @@ -0,0 +1,17 @@ +module Challenge261
+ where
+import Data.Char( digitToInt )
+
+solution :: [Int] -> Int
+solution list = abs ( elementsums - digitsums )
+ where
+ elementsums :: Int
+ elementsums = sum list
+ digitsums :: Int
+ digitsums = sum $ map ( sum . map digitToInt . show ) list
+
+main :: IO ( )
+main = do
+ putStrLn "Enter some integers, separated by blanks!"
+ numbers <- getLine
+ print $ solution ( map read $ words numbers )
diff --git a/challenge-261/ulrich-rieke/haskell/ch-2.hs b/challenge-261/ulrich-rieke/haskell/ch-2.hs new file mode 100755 index 0000000000..13f141fd25 --- /dev/null +++ b/challenge-261/ulrich-rieke/haskell/ch-2.hs @@ -0,0 +1,13 @@ +module Challenge261_2
+ where
+
+solution :: [Int] -> Int -> Int
+solution list start = until (\n -> not $ elem n list ) (* 2 ) start
+
+main :: IO ( )
+main = do
+ putStrLn "Enter some numbers, separated by blanks!"
+ numberstrings <- getLine
+ putStrLn "Enter a start number!"
+ startline <- getLine
+ print $ solution ( map read $ words numberstrings ) ( read startline )
diff --git a/challenge-261/ulrich-rieke/perl/ch-1.pl b/challenge-261/ulrich-rieke/perl/ch-1.pl new file mode 100755 index 0000000000..2239702a1c --- /dev/null +++ b/challenge-261/ulrich-rieke/perl/ch-1.pl @@ -0,0 +1,13 @@ +#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+use List::Util qw ( sum ) ;
+
+say "Enter some integers, separated by blanks!" ;
+my $line = <STDIN> ;
+chomp $line ;
+my @numbers = split( /\s+/ , $line ) ;
+my $element_sum = sum( @numbers) ;
+my $digit_sum = sum( map { sum( split( // , $_ )) } @numbers ) ;
+say abs( $element_sum - $digit_sum ) ;
diff --git a/challenge-261/ulrich-rieke/perl/ch-2.pl b/challenge-261/ulrich-rieke/perl/ch-2.pl new file mode 100755 index 0000000000..40cbf5801d --- /dev/null +++ b/challenge-261/ulrich-rieke/perl/ch-2.pl @@ -0,0 +1,17 @@ +#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+use List::Util qw ( any ) ;
+
+say "Enter some integers, separated by blanks!" ;
+my $line = <STDIN> ;
+chomp $line ;
+my @numbers = split( /\s+/ , $line ) ;
+say "Enter a start number!" ;
+my $start = <STDIN> ;
+chomp $start ;
+while ( any { $_ == $start } @numbers ) {
+ $start *= 2 ;
+}
+say $start ;
diff --git a/challenge-261/ulrich-rieke/raku/ch-1.raku b/challenge-261/ulrich-rieke/raku/ch-1.raku new file mode 100755 index 0000000000..9ee268c6a8 --- /dev/null +++ b/challenge-261/ulrich-rieke/raku/ch-1.raku @@ -0,0 +1,8 @@ +use v6 ;
+
+say "Enter some integers, separated by blanks!" ;
+my $line = $*IN.get ;
+my @numbers = $line.words.map( {.Int} ) ;
+my $element_sum = [+] @numbers ;
+my $digit_sum = [+] @numbers.map( {[+] $_.Str.comb.map( {.Int} )} ) ;
+say abs( $element_sum - $digit_sum ) ;
diff --git a/challenge-261/ulrich-rieke/raku/ch-2.raku b/challenge-261/ulrich-rieke/raku/ch-2.raku new file mode 100755 index 0000000000..fda637bc4d --- /dev/null +++ b/challenge-261/ulrich-rieke/raku/ch-2.raku @@ -0,0 +1,13 @@ +use v6 ;
+
+say "Enter some integers, separated by blanks!" ;
+my $line = $*IN.get ;
+my @numbers = $line.words.map( {.Int} ) ;
+say "Enter a start number!" ;
+my $startn = $*IN.get ;
+my $start = +$startn ;
+my $found = $start ;
+while ( so $found == @numbers.any ) {
+ $found *= 2 ;
+}
+say $found ;
diff --git a/challenge-261/ulrich-rieke/rust/ch-1.rs b/challenge-261/ulrich-rieke/rust/ch-1.rs new file mode 100755 index 0000000000..aca36f9ab7 --- /dev/null +++ b/challenge-261/ulrich-rieke/rust/ch-1.rs @@ -0,0 +1,27 @@ +use std::io ; + +fn digitsum( num : i32 ) -> i32 { + let mut sum : i32 = 0 ; + let mut n : i32 = num ; + while n != 0 { + sum = sum + n % 10 ; + n = n / 10 ; + } + sum +} + +fn main() { + println!("Enter some integers, separated by blanks!"); + let mut inline : String = String::new( ) ; + io::stdin( ).read_line( &mut inline ).unwrap( ) ; + let entered_line : &str = &*inline ; + let numbers : Vec<i32> = entered_line.split_whitespace( ).map( | s | + s.trim( ).parse::<i32>( ).unwrap( )).collect( ) ; + let element_sum : i32 = numbers.iter( ).sum( ) ; + let mut digit_sum : i32 = 0 ; + numbers.iter( ).map( | d | { + let ds : i32 = digitsum( *d ) ; + ds + }).for_each( | n | digit_sum += n ) ; + println!("{}" , (element_sum - digit_sum).abs( ) ) ; +} diff --git a/challenge-261/ulrich-rieke/rust/ch-2.rs b/challenge-261/ulrich-rieke/rust/ch-2.rs new file mode 100755 index 0000000000..f5edd77a6d --- /dev/null +++ b/challenge-261/ulrich-rieke/rust/ch-2.rs @@ -0,0 +1,22 @@ +use std::io ; + +fn main() { + println!("Enter some integers, separated by blanks!"); + let mut inline : String = String::new( ) ; + io::stdin( ).read_line( &mut inline ).unwrap( ) ; + let entered_line : &str = &*inline ; + let numbers : Vec<i32> = entered_line.split_whitespace( ).map( | s | + s.trim( ).parse::<i32>( ).unwrap( )).collect( ) ; + println!("Enter a start number!") ; + let mut numline : String = String::new( ) ; + io::stdin( ).read_line( &mut numline ).unwrap( ) ; + let nline : &str = &*numline ; + let start : i32 = nline.trim( ).parse::<i32>( ).unwrap( ) ; + let mut found : i32 = start ; + let mut f = numbers.iter( ).find( | &d | *d == found ) ; + while f.is_some( ) { + found = found * 2 ; + f = numbers.iter( ).find( | &d | *d == found ) ; + } + println!("{}" , found ) ; +} diff --git a/stats/pwc-challenge-236.json b/stats/pwc-challenge-236.json index 29545b1188..296c35b4e3 100644 --- a/stats/pwc-challenge-236.json +++ b/stats/pwc-challenge-236.json @@ -1,17 +1,226 @@ { + "xAxis" : { + "type" : "category" + }, + "subtitle" : { + "text" : "[Champions: 36] Last updated at 2024-03-18 17:09:01 GMT" + }, + "title" : { + "text" : "The Weekly Challenge - 236" + }, "plotOptions" : { "series" : { + "borderWidth" : 0, "dataLabels" : { "format" : "{point.y}", "enabled" : 1 - }, - "borderWidth" : 0 + } } }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "tooltip" : { + "followPointer" : 1, + "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/>" + }, + "chart" : { + "type" : "column" + }, + "series" : [ + { + "data" : [ + { + "drilldown" : "Adam Russell", + "name" : "Adam Russell", + "y" : 3 + }, + { + "name" : "Ali Moradi", + "drilldown" : "Ali Moradi", + "y" : 5 + }, + { + "drilldown" : "Arne Sommer", + "name" : "Arne Sommer", + "y" : 3 + }, + { + "name" : "Athanasius", + "drilldown" : "Athanasius", + "y" : 4 + }, + { + "y" : 3, + "drilldown" : "Avery Adams", + "name" : "Avery Adams" + }, + { + "y" : 4, + "drilldown" : "Bob Lied", + "name" : "Bob Lied" + }, + { + "y" : 2, + "name" : "Bruce Gray", + "drilldown" : "Bruce Gray" + }, + { + "y" : 2, + "name" : "Cheok-Yin Fung", + "drilldown" : "Cheok-Yin Fung" + }, + { + "y" : 2, + "name" : "Dave Jacoby", + "drilldown" : "Dave Jacoby" + }, + { + "y" : 2, + "drilldown" : "David Ferrone", + "name" : "David Ferrone" + }, + { + "y" : 2, + "drilldown" : "E. Choroba", + "name" : "E. Choroba" + }, + { + "name" : "Feng Chang", + "drilldown" : "Feng Chang", + "y" : 2 + }, + { + "name" : "Flavio Poletti", + "drilldown" : "Flavio Poletti", + "y" : 6 + }, + { + "drilldown" : "Jaldhar H. Vyas", + "name" : "Jaldhar H. Vyas", + "y" : 5 + }, + { + "y" : 2, + "name" : "Jan Krnavek", + "drilldown" : "Jan Krnavek" + }, + { + "name" : "Jorg Sommrey", + "drilldown" : "Jorg Sommrey", + "y" : 2 + }, + { + "drilldown" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld", + "y" : 6 + }, + { + "y" : 5, + "name" : "Lubos Kolouch", + "drilldown" : "Lubos Kolouch" + }, + { + "y" : 8, + "name" : "Luca Ferrari", + "drilldown" : "Luca Ferrari" + }, + { + "name" : "Mark Anderson", + "drilldown" : "Mark Anderson", + "y" : 2 + }, + { + "name" : "Matthew Neleigh", + "drilldown" : "Matthew Neleigh", + "y" : 2 + }, + { + "drilldown" : "Matthias Muth", + "name" : "Matthias Muth", + "y" : 3 + }, + { + "y" : 2, + "drilldown" : "Niels van Dijke", + "name" : "Niels van Dijke" + }, + { + "name" : "Packy Anderson", + "drilldown" : "Packy Anderson", + "y" : 5 + }, + { + "drilldown" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith", + "y" : 3 + }, + { + "y" : 2, + "name" : "Peter Meszaros", + "drilldown" : "Peter Meszaros" + }, + { + "drilldown" : "rcmlz", + "name" : "rcmlz", + "y" : 2 + }, + { + "drilldown" : "Robert DiCicco", + "name" : "Robert DiCicco", + "y" : 4 + }, + { + "y" : 2, + "drilldown" : "Robert Ransbottom", + "name" : "Robert Ransbottom" + }, + { + "name" : "Roger Bell_West", + "drilldown" : "Roger Bell_West", + "y" : 5 + }, + { + "y" : 4, + "name" : "Shimon Bollinger", + "drilldown" : "Shimon Bollinger" + }, + { + "y" : 3, + "name" : "Simon Green", + "drilldown" : "Simon Green" + }, + { + "y" : 4, + "drilldown" : "Thomas Kohler", + "name" : "Thomas Kohler" + }, + { + "y" : 3, + "name" : "W. Luis Mochan", + "drilldown" : "W. Luis Mochan" + }, + { + "y" : 2, + "drilldown" : "Wanderdoc", + "name" : "Wanderdoc" + }, + { + "drilldown" : "Yves Orton", + "name" : "Yves Orton", + "y" : 2 + } + ], + "colorByPoint" : 1, + "name" : "The Weekly Challenge - 236" + } + ], "drilldown" : { "series" : [ { - "name" : "Adam Russell", "data" : [ [ "Perl", @@ -22,10 +231,11 @@ 1 ] ], - "id" : "Adam Russell" + "id" : "Adam Russell", + "name" : "Adam Russell" }, { - "name" : "Ali Moradi", + "id" : "Ali Moradi", "data" : [ [ "Perl", @@ -40,9 +250,10 @@ 1 ] ], - "id" : "Ali Moradi" + "name" : "Ali Moradi" }, { + "id" : "Arne Sommer", "data" : [ [ "Raku", @@ -53,11 +264,11 @@ 1 ] ], - "id" : "Arne Sommer", "name" : "Arne Sommer" }, { "name" : "Athanasius", + "id" : "Athanasius", "data" : [ [ "Perl", @@ -67,10 +278,10 @@ "Raku", 2 ] - ], - "id" : "Athanasius" + ] }, { + "name" : "Avery Adams", "id" : "Avery Adams", "data" : [ [ @@ -81,11 +292,9 @@ "Blog", 2 ] - ], - "name" : "Avery Adams" + ] }, { - "name" : "Bob Lied", "id" : "Bob Lied", "data" : [ [ @@ -96,27 +305,28 @@ "Blog", 2 ] - ] + ], + "name" : "Bob Lied" }, { - "name" : "Bruce Gray", "id" : "Bruce Gray", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Bruce Gray" }, { - "name" : "Cheok-Yin Fung", "data" : [ [ "Perl", 2 ] ], - "id" : "Cheok-Yin Fung" + "id" : "Cheok-Yin Fung", + "name" : "Cheok-Yin Fung" }, { "name" : "Dave Jacoby", @@ -129,34 +339,34 @@ ] }, { - "id" : "David Ferrone", + "name" : "David Ferrone", "data" : [ [ "Perl", 2 ] ], - "name" : "David Ferrone" + "id" : "David Ferrone" }, { - "name" : "E. Choroba", - "id" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "E. Choroba", + "name" : "E. Choroba" }, { "name" : "Feng Chang", + "id" : "Feng Chang", "data" : [ [ "Raku", 2 ] - ], - "id" : "Feng Chang" + ] }, { "name" : "Flavio Poletti", @@ -177,6 +387,7 @@ "id" : "Flavio Poletti" }, { + "name" : "Jaldhar H. Vyas", "id" : "Jaldhar H. Vyas", "data" : [ [ @@ -191,18 +402,17 @@ "Blog", 1 ] - ], - "name" : "Jaldhar H. Vyas" + ] }, { - "name" : "Jan Krnavek", - "id" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] - ] + ], + "id" : "Jan Krnavek", + "name" : "Jan Krnavek" }, { "id" : "Jorg Sommrey", @@ -215,7 +425,7 @@ "name" : "Jorg Sommrey" }, { - "name" : "Laurent Rosenfeld", + "id" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -230,10 +440,9 @@ 2 ] ], - "id" : "Laurent Rosenfeld" + "name" : "Laurent Rosenfeld" }, { - "name" : "Lubos Kolouch", "id" : "Lubos Kolouch", "data" : [ [ @@ -248,9 +457,11 @@ "Blog", 1 ] - ] + ], + "name" : "Lubos Kolouch" }, { + "id" : "Luca Ferrari", "data" : [ [ "Raku", @@ -261,7 +472,6 @@ 6 ] ], - "id" : "Luca Ferrari", "name" : "Luca Ferrari" }, { @@ -275,18 +485,17 @@ ] }, { + "name" : "Matthew Neleigh", + "id" : "Matthew Neleigh", "data" : [ [ "Perl", 2 ] - ], - "id" : "Matthew Neleigh", - "name" : "Matthew Neleigh" + ] }, { "name" : "Matthias Muth", - "id" : "Matthias Muth", "data" : [ [ "Perl", @@ -296,7 +505,8 @@ "Blog", 1 ] - ] + ], + "id" : "Matthias Muth" }, { "id" : "Niels van Dijke", @@ -309,7 +519,6 @@ "name" : "Niels van Dijke" }, { - "name" : "Packy Anderson", "data" : [ [ "Perl", @@ -324,7 +533,8 @@ 1 ] ], - "id" : "Packy Anderson" + "id" : "Packy Anderson", + "name" : "Packy Anderson" }, { "name" : "Peter Campbell Smith", @@ -341,17 +551,26 @@ "id" : "Peter Campbell Smith" }, { - "name" : "rcmlz", + "name" : "Peter Meszaros", + "id" : "Peter Meszaros", + "data" : [ + [ + "Perl", + 2 + ] + ] + }, + { "data" : [ [ "Raku", 2 ] ], - "id" : "rcmlz" + "id" : "rcmlz", + "name" : "rcmlz" }, { - "name" : "Robert DiCicco", "id" : "Robert DiCicco", "data" : [ [ @@ -362,19 +581,21 @@ "Raku", 2 ] - ] + ], + "name" : "Robert DiCicco" }, { + "id" : "Robert Ransbottom", "data" : [ [ "Raku", 2 ] ], - "id" : "Robert Ransbottom", "name" : "Robert Ransbottom" }, { + "id" : "Roger Bell_West", "data" : [ [ "Perl", @@ -389,7 +610,6 @@ 1 ] ], - "id" : "Roger Bell_West", "name" : "Roger Bell_West" }, { @@ -407,6 +627,8 @@ "name" : "Shimon Bollinger" }, { + "name" : "Simon Green", + "id" : "Simon Green", "data" : [ [ "Perl", @@ -416,11 +638,10 @@ "Blog", 1 ] - ], - "id" : "Simon Green", - "name" : "Simon Green" + ] }, { + "id" : "Thomas Kohler", "data" : [ [ "Perl", @@ -431,7 +652,6 @@ 2 ] ], - "id" : "Thomas Kohler", "name" : "Thomas Kohler" }, { @@ -450,13 +670,13 @@ }, { |