diff options
| author | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-07-22 13:50:28 +0100 |
|---|---|---|
| committer | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-07-22 13:50:28 +0100 |
| commit | 274bf4a39a2a89b95ebbc89cea4d775f2c8eaead (patch) | |
| tree | 1e8169c57fcd742a6f6d337300182ec6772b9a2a | |
| parent | 68787dcb78ada3349ae5f986f2cc39f33a665029 (diff) | |
| download | perlweeklychallenge-club-274bf4a39a2a89b95ebbc89cea4d775f2c8eaead.tar.gz perlweeklychallenge-club-274bf4a39a2a89b95ebbc89cea4d775f2c8eaead.tar.bz2 perlweeklychallenge-club-274bf4a39a2a89b95ebbc89cea4d775f2c8eaead.zip | |
- Added solutions by Ulrich Rieke.
26 files changed, 2844 insertions, 2642 deletions
diff --git a/challenge-279/ulrich-rieke/cpp/ch-1.cpp b/challenge-279/ulrich-rieke/cpp/ch-1.cpp new file mode 100755 index 0000000000..8d6d6444c8 --- /dev/null +++ b/challenge-279/ulrich-rieke/cpp/ch-1.cpp @@ -0,0 +1,38 @@ +#include <iostream>
+#include <string>
+#include <algorithm>
+#include <utility>
+#include <sstream>
+#include <vector>
+
+std::vector<std::string> tokenize( const std::string & text , char delimiter ) {
+ std::istringstream allTokens { text } ;
+ std::vector<std::string> tokens ;
+ std::string tok ;
+ while ( std::getline( allTokens , tok , delimiter ) ) {
+ tokens.push_back( tok ) ;
+ }
+ return tokens ;
+}
+
+int main( ) {
+ std::cout << "Enter some letters, separated by blanks!\n" ;
+ std::string line ;
+ std::getline( std::cin , line ) ;
+ std::vector<std::string> letterstrings { tokenize( line , ' ' ) } ;
+ std::cout << "Enter some weights, separated by blanks!\n" ;
+ std::getline( std::cin , line ) ;
+ std::vector<std::string> weightstrings { tokenize( line , ' ' ) } ;
+ std::vector<std::pair<char , int>> allPairs ;
+ for ( int i = 0 ; i < letterstrings.size( ) ; i++ ) {
+ allPairs.push_back( std::make_pair( letterstrings[i].front( ) , std::stoi(
+ weightstrings[i].substr( 0 , 1 ) ) ) ) ;
+ }
+ std::sort( allPairs.begin( ) , allPairs.end( ) , []( const auto & p1 , const auto & p2) {
+ return p1.second < p2.second ; } ) ;
+ for ( auto p : allPairs )
+ std::cout << p.first ;
+ std::cout << '\n' ;
+ return 0 ;
+}
+
diff --git a/challenge-279/ulrich-rieke/cpp/ch-2.cpp b/challenge-279/ulrich-rieke/cpp/ch-2.cpp new file mode 100755 index 0000000000..84455bf78a --- /dev/null +++ b/challenge-279/ulrich-rieke/cpp/ch-2.cpp @@ -0,0 +1,14 @@ +#include <string>
+#include <algorithm>
+#include <iostream>
+
+int main( ) {
+ std::cout << "Enter a string!\n" ;
+ std::string line ;
+ std::getline( std::cin , line ) ;
+ std::string vowels {"aeiouAEIOU"} ;
+ std::cout << std::boolalpha << (std::count_if( line.begin( ) , line.end( ),
+ [vowels]( char c ) { return vowels.find( c ) != std::string::npos ;
+ } ) % 2 == 0 ) << '\n' ;
+ return 0 ;
+}
diff --git a/challenge-279/ulrich-rieke/haskell/ch-1.hs b/challenge-279/ulrich-rieke/haskell/ch-1.hs new file mode 100755 index 0000000000..eab77a6aa0 --- /dev/null +++ b/challenge-279/ulrich-rieke/haskell/ch-1.hs @@ -0,0 +1,16 @@ +module Challenge279
+ where
+import Data.Char ( digitToInt )
+import Data.List ( sortOn )
+
+solution :: String -> String -> String
+solution letters weights = filter (\c -> c /= ' ' ) $ unwords $ map fst $ sortOn snd $ zip
+ ( words letters ) ( map (\w -> digitToInt $ head w ) $ words weights )
+
+main :: IO ( )
+main = do
+ putStrLn "Enter some letters separated by blanks!"
+ letterline <- getLine
+ putStrLn "Enter some weights separated by blanks!"
+ weightline <- getLine
+ print $ solution letterline weightline
diff --git a/challenge-279/ulrich-rieke/haskell/ch-2.hs b/challenge-279/ulrich-rieke/haskell/ch-2.hs new file mode 100755 index 0000000000..8f04f999fe --- /dev/null +++ b/challenge-279/ulrich-rieke/haskell/ch-2.hs @@ -0,0 +1,12 @@ +module Challenge279_2
+ where
+
+solution :: String -> Bool
+solution str = ( length $ filter (\c -> elem c "aeiouAEIOU" ) str ) `mod` 2
+ == 0
+
+main :: IO ( )
+main = do
+ putStrLn "Enter a string!"
+ line <- getLine
+ print $ solution line
diff --git a/challenge-279/ulrich-rieke/perl/ch-1.pl b/challenge-279/ulrich-rieke/perl/ch-1.pl new file mode 100755 index 0000000000..6c55640fec --- /dev/null +++ b/challenge-279/ulrich-rieke/perl/ch-1.pl @@ -0,0 +1,17 @@ +#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+use List::Util qw ( zip ) ;
+
+say "Enter some letters , separated by blanks!" ;
+my $letters = <STDIN> ;
+chomp $letters ;
+my @letters = split( /\s+/ , $letters ) ;
+say "Enter some weights , separated by blanks!" ;
+my $weights = <STDIN> ;
+chomp $weights ;
+my @weights = split( /\s+/ , $weights ) ;
+my @zipped = zip( \@letters , \@weights ) ;
+my @sorted = sort { $a->[1] <=> $b->[1] } @zipped ;
+say join( '' , map { $_->[0] } @sorted ) ;
diff --git a/challenge-279/ulrich-rieke/perl/ch-2.pl b/challenge-279/ulrich-rieke/perl/ch-2.pl new file mode 100755 index 0000000000..0d0cfa31b4 --- /dev/null +++ b/challenge-279/ulrich-rieke/perl/ch-2.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+
+#the task amounts to verifying whether the number of vowels in the string
+#is even or odd
+say "Enter a string!" ;
+my $line = <STDIN> ;
+chomp $line ;
+my $vowels = "aeiouAEIOU" ;
+if ( scalar( grep { index( $vowels , $_ ) != -1 } split( // , $line ) )
+ % 2 == 0 ) {
+ say "true" ;
+}
+else {
+ say "false" ;
+}
diff --git a/challenge-279/ulrich-rieke/raku/ch-1.raku b/challenge-279/ulrich-rieke/raku/ch-1.raku new file mode 100755 index 0000000000..99104226cd --- /dev/null +++ b/challenge-279/ulrich-rieke/raku/ch-1.raku @@ -0,0 +1,11 @@ +use v6 ;
+
+say "Enter some letters , separated by blanks!" ;
+my $letters = $*IN.get ;
+say "Enter some weights, separated by blanks!" ;
+my $weights = $*IN.get ;
+my @letters_in = $letters.words ;
+my @weights_in = $weights.words.map( {.Int} ) ;
+my @pairs = @letters_in Z, @weights_in ;
+my @sorted = @pairs.sort( *.[1] ).map( {$_[0]} ) ;
+say @sorted.join ;
diff --git a/challenge-279/ulrich-rieke/raku/ch-2.raku b/challenge-279/ulrich-rieke/raku/ch-2.raku new file mode 100755 index 0000000000..e7df535f8f --- /dev/null +++ b/challenge-279/ulrich-rieke/raku/ch-2.raku @@ -0,0 +1,6 @@ +use v6 ;
+
+say "Enter a string!" ;
+my $line = $*IN.get ;
+my @vowels = "aeiouAEIOU".comb ;
+say $line.comb.grep( {$_ (elem) @vowels} ).elems %% 2 ;
diff --git a/challenge-279/ulrich-rieke/rust/ch-1.rs b/challenge-279/ulrich-rieke/rust/ch-1.rs new file mode 100755 index 0000000000..d0e0429eea --- /dev/null +++ b/challenge-279/ulrich-rieke/rust/ch-1.rs @@ -0,0 +1,33 @@ +use std::io ; + +fn main() { + println!("Enter some letters!"); + let mut letterline : String = String::new( ) ; + io::stdin( ).read_line( &mut letterline ).unwrap( ) ; + let letterstr : &str = letterline.as_str( ).trim( ) ; + println!("Enter some weights!") ; + let mut weightline : String = String::new( ) ; + io::stdin( ).read_line( &mut weightline ).unwrap( ) ; + let weightstr : &str = weightline.as_str( ).trim( ) ; + let weights : Vec<usize> = weightstr.split_whitespace( ).map( | s | + s.parse::<usize>( ).unwrap( )).collect( ) ; + let mut letters_entered : String = String::new( ) ; + for c in letterstr.chars( ) { + if c != ' ' { + letters_entered.push( c ) ; + } + } + let single_letters = letters_entered.as_str( ) ; + let mut pairs : Vec<(char,usize)> = single_letters.chars( ).zip( weights.into_iter( )). + collect( ) ; + let pair_slice = pairs.as_mut_slice( ) ; + pair_slice.sort_by( | a , b | a.1.cmp( &b.1 )) ; + let sorted_pairs : Vec<(char, usize)> = pair_slice.to_vec( ) ; + let final_chars : Vec<char> = sorted_pairs.into_iter( ).map( | p | p.0 ). + collect( ) ; + let mut solution : String = String::new( ) ; + for c in final_chars { + solution.push( c ) ; + } + println!("{:?}" , solution ) ; +} diff --git a/challenge-279/ulrich-rieke/rust/ch-2.rs b/challenge-279/ulrich-rieke/rust/ch-2.rs new file mode 100755 index 0000000000..92dcc015f4 --- /dev/null +++ b/challenge-279/ulrich-rieke/rust/ch-2.rs @@ -0,0 +1,18 @@ +use std::io ; + +fn is_vowel( c : char ) -> bool { + let vowels : &str = "aeiouAEIOU" ; + vowels.find( c ).is_some( ) +} + +//the task amounts to verifying whether the number of vowels in the string +//is even or odd +fn main() { + println!("Enter a string!"); + let mut inline : String = String::new( ) ; + io::stdin( ).read_line( &mut inline ).unwrap( ) ; + let entered_line : &str = inline.as_str( ).trim( ) ; + let result : bool = entered_line.chars( ).filter( | &c | is_vowel( c )) + .count( ) % 2 == 0 ; + println!("{}" , result ) ; +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index a1628d0ada..0d81ebc1f5 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -2,51 +2,63 @@ "xAxis" : { "type" : "category" }, + "chart" : { + "type" : "column" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 + } + }, "drilldown" : { "series" : [ { - "name" : "Andrezgz", "data" : [ [ "Perl", 2 ] ], - "id" : "Andrezgz" + "id" : "Andrezgz", + "name" : "Andrezgz" }, { - "id" : "E. Choroba", - "name" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "E. Choroba", + "name" : "E. Choroba" }, { + "name" : "Feng Chang", "id" : "Feng Chang", "data" : [ [ "Raku", 2 ] - ], - "name" : "Feng Chang" + ] }, { - "id" : "Mark Anderson", - "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ] + ], + "id" : "Mark Anderson", + "name" : "Mark Anderson" }, { - "id" : "Matthew Neleigh", "name" : "Matthew Neleigh", + "id" : "Matthew Neleigh", "data" : [ [ "Perl", @@ -55,16 +67,18 @@ ] }, { - "id" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] ], + "id" : "Niels van Dijke", "name" : "Niels van Dijke" }, { + "name" : "Packy Anderson", + "id" : "Packy Anderson", "data" : [ [ "Perl", @@ -78,95 +92,100 @@ "Blog", 1 ] - ], - "name" : "Packy Anderson", - "id" : "Packy Anderson" + ] }, { - "id" : "Peter Meszaros", + "data" : [ + [ + "Perl", + 2 + ] + ], "name" : "Peter Meszaros", + "id" : "Peter Meszaros" + }, + { "data" : [ [ "Perl", 2 + ], + [ + "Raku", + 2 ] - ] + ], + "name" : "Ulrich Rieke", + "id" : "Ulrich Rieke" } ] }, - "title" : { - "text" : "The Weekly Challenge - 279" - }, - "subtitle" : { - "text" : "[Champions: 8] Last updated at 2024-07-22 10:39:26 GMT" - }, - "chart" : { - "type" : "column" - }, "series" : [ { "name" : "The Weekly Challenge - 279", + "colorByPoint" : 1, "data" : [ { - "y" : 2, "drilldown" : "Andrezgz", + "y" : 2, "name" : "Andrezgz" }, { - "drilldown" : "E. Choroba", "name" : "E. Choroba", + "drilldown" : "E. Choroba", "y" : 2 }, { - "name" : "Feng Chang", "drilldown" : "Feng Chang", - "y" : 2 + "y" : 2, + "name" : "Feng Chang" }, { - "drilldown" : "Mark Anderson", "name" : "Mark Anderson", - "y" : 2 + "y" : 2, + "drilldown" : "Mark Anderson" }, { + "name" : "Matthew Neleigh", "y" : 2, - "drilldown" : "Matthew Neleigh", - "name" : "Matthew Neleigh" + "drilldown" : "Matthew Neleigh" }, { "y" : 2, - "name" : "Niels van Dijke", - "drilldown" : "Niels van Dijke" + "drilldown" : "Niels van Dijke", + "name" : "Niels van Dijke" }, { - "y" : 5, "name" : "Packy Anderson", - "drilldown" : "Packy Anderson" + "drilldown" : "Packy Anderson", + "y" : 5 }, { - "y" : 2, + "name" : "Peter Meszaros", "drilldown" : "Peter Meszaros", - "name" : "Peter Meszaros" + "y" : 2 + }, + { + "y" : 4, + "drilldown" : "Ulrich Rieke", + "name" : "Ulrich Rieke" } - ], - "colorByPoint" : 1 + ] } ], - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } - } + "title" : { + "text" : "The Weekly Challenge - 279" + }, + "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/>" }, "legend" : { "enabled" : 0 }, - "tooltip" : { - "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", - "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>", - "followPointer" : 1 + "subtitle" : { + "text" : "[Champions: 9] Last updated at 2024-07-22 12:49:23 GMT" }, "yAxis" : { "title" : { diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index b3e8668cfb..4690055fa5 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,22 +1,6 @@ { - "legend" : { - "enabled" : "false" - }, "series" : [ { - "dataLabels" : { - "y" : 10, - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - }, - "color" : "#FFFFFF", - "format" : "{point.y:.0f}", - "enabled" : "true", - "align" : "right", - "rotation" : -90 - }, - "name" : "Contributions", "data" : [ [ "Blog", @@ -24,40 +8,56 @@ ], [ "Perl", - 14411 + 14413 ], [ "Raku", - 8338 + 8340 ] - ] + ], + "name" : "Contributions", + "dataLabels" : { + "rotation" : -90, + "format" : "{point.y:.0f}", + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "enabled" : "true", + "y" : 10, + "color" : "#FFFFFF", + "align" : "right" + } } ], "chart" : { "type" : "column" }, + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + } + }, "yAxis" : { "min" : 0, "title" : { "text" : null } }, + "subtitle" : { + "text" : "Last updated at 2024-07-22 12:49:23 GMT" + }, "tooltip" : { "pointFormat" : "<b>{point.y:.0f}</b>" }, - "xAxis" : { - "labels" : { - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } - }, - "type" : "category" + "legend" : { + "enabled" : "false" }, "title" : { "text" : "The Weekly Challenge Contributions [2019 - 2024]" - }, - "subtitle" : { - "text" : "Last updated at 2024-07-22 10:39:26 GMT" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 3209deaa29..f5d6575d24 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,1430 +1,27 @@ { - "series" : [ - { - "colorByPoint" : "true", - "name" : "The Weekly Challenge Languages", - "data" : [ - { - "y" : 165, - "drilldown" : "001", - "name" : "#001" - }, - { - "name" : "#002", - "drilldown" : "002", - "y" : 133 - }, - { - "name" : "#003", - "drilldown" : "003", - "y" : 91 - }, - { - "drilldown" : "004", - "name" : "#004", - "y" : 106 - }, - { - "drilldown" : "005", - "name" : "#005", - "y" : 82 - }, - { - "name" : "#006", - "drilldown" : "006", - "y" : 63 - }, - { - "drilldown" : "007", - "name" : "#007", - "y" : 71 - }, - { - "y" : 82, - "drilldown" : "008", - "name" : "#008" - }, - { - "drilldown" : "009", - "name" : "#009", - "y" : 79 - }, - { - "drilldown" : "010", - "name" : "#010", - "y" : 69 - }, - { - "y" : 86, - "drilldown" : "011", - "name" : "#011" - }, - { - "name" : "#012", - "drilldown" : "012", - "y" : 90 - }, - { - "name" : "#013", - "drilldown" : "013", - "y" : 85 - }, - { - "name" : "#014", - "drilldown" : "014", - "y" : 98 - }, - { - "drilldown" : "015", - "name" : "#015", - "y" : 95 - }, - { - "drilldown" : "016", - "name" : "#016", - "y" : 75 - }, - { - "drilldown" : "017", - "name" : "#017", - "y" : 83 - }, - { - "name" : "#018", - "drilldown" : "018", - "y" : 82 - }, - { - "drilldown" : "019", - "name" : "#019", - "y" : 101 - }, - { - "drilldown" : "020", - "name" : "#020", - "y" : 100 - }, - { - "y" : 72, - "name" : "#021", - "drilldown" : "021" - }, - { - "name" : "#022", - "drilldown" : "022", - "y" : 72 - }, - { - "name" : "#023", - "drilldown" : "023", - "y" : 88 - }, - { - "name" : "#024", - "drilldown" : "024", - "y" : 77 - }, - { - "drilldown" : "025", - "name" : "#025", - "y" : 62 - }, - { - "name" : "#026", - "drilldown" : "026", - "y" : 75 - }, - { - "name" : "#027", - "drilldown" : "027", - "y" : 64 - }, - { - "y" : 82, - "drilldown" : "028", - "name" : "#028" - }, - { - "drilldown" : "029", - "name" : "#029", - "y" : 83 - }, - { - "drilldown" : "030", - "name" : "#030", - "y" : 120 - }, - { - "y" : 93, - "name" : "#031", - "drilldown" : "031" - }, - { - "y" : 97, - "drilldown" : "032", - "name" : "#032" - }, - { - "name" : "#033", - "drilldown" : "033", - "y" : 113 - }, - { - "name" : "#034", - "drilldown" : "034", - "y" : 70 - }, - { - "drilldown" : "035", - "name" : "#035", - "y" : 68 - }, - { - "drilldown" : "036", - "name" : "#036", - "y" : 70 - }, - { - "drilldown" : "037", - "name" : "#037", - "y" : 70 - }, - { - "y" : 74, - "name" : "#038", - "drilldown" : "038" - }, - { - "name" : "#039", - "drilldown" : "039", - "y" : 68 - }, - { - "y" : 77, - "name" : "#040", - "drilldown" : "040" - }, - { - "y" : 80, - "drilldown" : "041", - "name" : "#041" - }, - { - "y" : 98, - "drilldown" : "042", - "name" : "#042" - }, - { - "name" : "#043", - "drilldown" : "043", - "y" : 72 - }, - { - "y" : 90, - "name" : "#044", - "drilldown" : "044" - }, - { - "name" : "#045", - "drilldown" : "045", - "y" : 102 - }, - { - "drilldown" : "046", - "name" : "#046", - "y" : 93 - }, - { - "y" : 88, - "name" : "#047", - "drilldown" : "047" - }, - { - "drilldown" : "048", - "name" : "#048", - "y" : 112 - }, - { - "name" : "#049", - "drilldown" : "049", - "y" : 93 - }, - { - "y" : 104, - "name" : "#050", - "drilldown" : "050" - }, - { - "y" : 95, - "name" : "#051", - "drilldown" : "051" - }, - { - "name" : "#052", - "drilldown" : "052", - "y" : 93 - }, - { - "y" : 105, - "name" : "#053", - "drilldown" : "053" - }, - { - "y" : 107, - "drilldown" : "054", - "name" : "#054" - }, - { - "drilldown" : "055", - "name" : "#055", - "y" : 92 - }, - { - "name" : "#056", - "drilldown" : "056", - "y" : 104 - }, - { - "drilldown" : "057", - "name" : "#057", - "y" : 86 - }, - { - "drilldown" : "058", - "name" : "#058", - "y" : 71 - }, - { - "drilldown" : "059", - "name" : "#059", - "y" : 93 - }, - { - "y" : 89, - "name" : "#060", - "drilldown" : "060" - }, - { - "drilldown" : "061", - "name" : "#061", - "y" : 85 - }, - { - "drilldown" : "062", - "name" : "#062", - "y" : 62 - }, - { - "y" : 93, - "drilldown" : "063", - "name" : "#063" - }, - { - "y" : 84, - "drilldown" : "064", - "name" : "#064" - }, - { - "drilldown" : "065", - "name" : "#065", - "y" : 77 |
