diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2024-03-11 19:15:51 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2024-03-11 19:15:51 +0000 |
| commit | dfe459e065d51e41d8cc7feb00a5f53b5080d79e (patch) | |
| tree | f48f9ce587f341608185577f8d7232418e3a14f8 | |
| parent | 9ab95dda4f101c63ac38b810849665103b75f983 (diff) | |
| download | perlweeklychallenge-club-dfe459e065d51e41d8cc7feb00a5f53b5080d79e.tar.gz perlweeklychallenge-club-dfe459e065d51e41d8cc7feb00a5f53b5080d79e.tar.bz2 perlweeklychallenge-club-dfe459e065d51e41d8cc7feb00a5f53b5080d79e.zip | |
- Added solutions by Peter Meszaros.
- Added solutions by Thomas Kohler.
- Added solutions by Dave Jacoby.
- Added solutions by Steven Wilson.
- Added solutions by Ulrich Rieke.
25 files changed, 2956 insertions, 2683 deletions
diff --git a/challenge-260/ulrich-rieke/cpp/ch-1.cpp b/challenge-260/ulrich-rieke/cpp/ch-1.cpp new file mode 100755 index 0000000000..f9f90ce296 --- /dev/null +++ b/challenge-260/ulrich-rieke/cpp/ch-1.cpp @@ -0,0 +1,26 @@ +#include <iostream>
+#include <vector>
+#include <set>
+#include <iterator>
+#include <algorithm>
+
+int main( ) {
+ std::cout << "Enter some integers, separated by blanks, e to end!\n" ;
+ std::vector<int> numbers {std::istream_iterator<int>{std::cin} ,
+ std::istream_iterator<int>{}} ;
+ std::set<int> uniques( numbers.begin( ) , numbers.end( ) );
+ std::vector<int> frequencies ;
+ for ( auto i : uniques ) {
+ frequencies.push_back( std::count( numbers.begin( ) ,
+ numbers.end( ) , i ) ) ;
+ }
+ std::set<int> allFreq ( frequencies.begin( ) , frequencies.end( ) ) ;
+ if ( uniques.size( ) == allFreq.size( ) ) {
+ std::cout << 1 << '\n' ;
+ }
+ else {
+ std::cout << 0 << '\n' ;
+ }
+ return 0 ;
+}
+
diff --git a/challenge-260/ulrich-rieke/haskell/ch-1.hs b/challenge-260/ulrich-rieke/haskell/ch-1.hs new file mode 100755 index 0000000000..f490c07cb0 --- /dev/null +++ b/challenge-260/ulrich-rieke/haskell/ch-1.hs @@ -0,0 +1,28 @@ +module Challenge260
+ where
+import qualified Data.Set as S
+
+count :: Eq a => a -> [a] -> Int
+count _ [] = 0
+count d (x:xs)
+ |d == x = 1 + count d xs
+ |otherwise = count d xs
+
+solution :: [Int] -> Int
+solution list = if l1 == l2 then 1 else 0
+ where
+ uniques :: S.Set Int
+ uniques = S.fromList list
+ frequencies :: S.Set Int
+ frequencies = S.fromList $ map (\i -> count i list ) $ S.toList uniques
+ l1 :: Int
+ l1 = S.size uniques
+ l2 :: Int
+ l2 = S.size frequencies
+
+main :: IO ( )
+main = do
+ putStrLn "Enter some integers, separated by blanks!"
+ numberline <- getLine
+ print $ solution $ map read $ words numberline
+
diff --git a/challenge-260/ulrich-rieke/haskell/ch-2.hs b/challenge-260/ulrich-rieke/haskell/ch-2.hs new file mode 100755 index 0000000000..62ef50a3ce --- /dev/null +++ b/challenge-260/ulrich-rieke/haskell/ch-2.hs @@ -0,0 +1,9 @@ +module Challenge260_2
+ where
+import Data.List ( sort , findIndex , permutations )
+import qualified Data.Set as S
+import Data.Maybe ( fromJust )
+
+solution :: String -> Int
+solution word = (fromJust $ findIndex ( == word ) $ sort $ S.toList $
+ S.fromList $ permutations word) + 1
diff --git a/challenge-260/ulrich-rieke/perl/ch-1.pl b/challenge-260/ulrich-rieke/perl/ch-1.pl new file mode 100755 index 0000000000..5c7c8dba06 --- /dev/null +++ b/challenge-260/ulrich-rieke/perl/ch-1.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+
+say "Enter some integers, separated by blanks!" ;
+my $line = <STDIN> ;
+chomp $line ;
+my %uniques ;
+my %frequencies ;
+my @numbers = split( /\s+/ , $line ) ;
+for my $num ( @numbers ) {
+ $uniques{ $num }++ ;
+}
+for my $num ( keys %uniques ) {
+ $frequencies{ scalar( grep { $_ eq $num } @numbers ) }++ ;
+}
+if ( scalar( keys %frequencies ) == scalar( keys %uniques ) ) {
+ say 1 ;
+}
+else {
+ say 0 ;
+}
diff --git a/challenge-260/ulrich-rieke/perl/ch-2.pl b/challenge-260/ulrich-rieke/perl/ch-2.pl new file mode 100755 index 0000000000..cb2c5bccfe --- /dev/null +++ b/challenge-260/ulrich-rieke/perl/ch-2.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl ;
+use strict ;
+use warnings ;
+use feature 'say' ;
+use Algorithm::Combinatorics qw ( permutations ) ;
+
+say "Enter a word, preferably in capital letters only!" ;
+my $word = <STDIN> ;
+chomp $word ;
+my %permuHash ;
+my @letters = split( // , $word ) ;
+my $iter = permutations( \@letters ) ;
+while ( my $p = $iter->next ) {
+ $permuHash{ join( '' , @$p ) }++ ;
+}
+my @sorted = sort keys %permuHash ;
+my $pos = 0 ;
+do {
+ $pos++ ;
+} while ( $sorted[ $pos - 1] ne $word ) ;
+say $pos ;
diff --git a/challenge-260/ulrich-rieke/raku/ch-1.raku b/challenge-260/ulrich-rieke/raku/ch-1.raku new file mode 100755 index 0000000000..3d4ec6c41e --- /dev/null +++ b/challenge-260/ulrich-rieke/raku/ch-1.raku @@ -0,0 +1,19 @@ +use v6 ;
+
+say "Enter some integers, separated by blanks!" ;
+my $line = $*IN.get ;
+my @numbers = $line.words.map( {.Int} ) ;
+my %uniques ;
+my %frequencies ;
+for @numbers -> $num {
+ %uniques{ $num }++ ;
+}
+for %uniques.keys -> $num {
+ %frequencies{ @numbers.grep( {$_ == $num} ).elems }++ ;
+}
+if ( %uniques.keys.elems == %frequencies.keys.elems) {
+ say 1 ;
+}
+else {
+ say 0 ;
+}
diff --git a/challenge-260/ulrich-rieke/raku/ch-2.raku b/challenge-260/ulrich-rieke/raku/ch-2.raku new file mode 100755 index 0000000000..2add9c778b --- /dev/null +++ b/challenge-260/ulrich-rieke/raku/ch-2.raku @@ -0,0 +1,14 @@ +use v6 ;
+
+say "Enter a word, preferably in capital letters only!" ;
+my $word = $*IN.get ;
+my %permuHash ;
+for $word.comb.permutations -> $permu {
+ %permuHash{ $permu.join( '' )}++ ;
+}
+my @sorted = %permuHash.keys.sort ;
+my $pos = 0 ;
+repeat {
+ $pos++ ;
+} until ( @sorted[ $pos - 1] eq $word ) ;
+say $pos ;
diff --git a/challenge-260/ulrich-rieke/rust/ch-1.rs b/challenge-260/ulrich-rieke/rust/ch-1.rs new file mode 100755 index 0000000000..54766093cf --- /dev/null +++ b/challenge-260/ulrich-rieke/rust/ch-1.rs @@ -0,0 +1,26 @@ +use std::io ; +use std::collections::HashSet ; + +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 mut uniques : HashSet<i32> = HashSet::new( ) ; + for n in &numbers { + uniques.insert( *n ) ; + } + let mut frequencies : HashSet<usize> = HashSet::new( ) ; + uniques.iter( ).map( | n | { + let fr = numbers.iter( ).filter( | &d | *d == *n ).count( ) ; + fr + }).for_each( |f| {frequencies.insert( f ) ;} ) ; + if uniques.len( ) == frequencies.len( ) { + println!("1") ; + } + else { + println!("0") ; + } +} diff --git a/challenge-260/ulrich-rieke/rust/ch-2.rs b/challenge-260/ulrich-rieke/rust/ch-2.rs new file mode 100755 index 0000000000..e12e8b5fd6 --- /dev/null +++ b/challenge-260/ulrich-rieke/rust/ch-2.rs @@ -0,0 +1,35 @@ +use std::io ; +use itertools::Itertools ; + +fn to_string( all_chars : &Vec<char> ) -> String { + let mut output : String = String::new( ) ; + for c in all_chars { + output.push( *c ) ; + } + output +} + +fn main() { + println!("Enter a word, preferably in capital letters only!"); + let mut inline : String = String::new( ) ; + io::stdin( ).read_line( &mut inline ).unwrap( ) ; + let entered_line : &str = &*inline ; + let mut letters : Vec<char> = Vec::new( ) ; + let changed = entered_line.trim( ) ; + let compared_to = changed.to_string( ) ; + for c in changed.chars( ) { + letters.push( c ) ; + } + let len : usize = letters.len( ) ; + let mut all_permu : Vec<String> = Vec::new( ) ; + for ve in letters.into_iter().permutations( len ) { + let word : String = to_string( &ve ) ; + let found = all_permu.iter( ).find( | &st | *st == word ) ; + if found.is_none( ) { + all_permu.push( word ) ; + } + } + all_permu.sort( ) ; + println!("{}" , all_permu.iter( ).position( | w | *w == + compared_to ).unwrap( ) + 1) ; +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 01740b6b1f..a5ac704057 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,10 +1,27 @@ { - "subtitle" : { - "text" : "[Champions: 3] Last updated at 2024-03-11 11:17:47 GMT" + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "The Weekly Challenge - 260" }, "drilldown" : { "series" : [ { + "name" : "Dave Jacoby", + "id" : "Dave Jacoby", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ] + }, + { "data" : [ [ "Perl", @@ -15,17 +32,54 @@ "name" : "E. Choroba" }, { + "name" : "Mark Anderson", + "id" : "Mark Anderson", "data" : [ [ "Raku", 2 ] + ] + }, + { + "id" : "Peter Meszaros", + "data" : [ + [ + "Perl", + 2 + ] ], - "name" : "Mark Anderson", - "id" : "Mark Anderson" + "name" : "Peter Meszaros" + }, + { + "name" : "Thomas Kohler", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 2 + ] + ], + "id" : "Thomas Kohler" + }, + { + "data" : [ + [ + "Perl", + 2 + ], + [ + "Raku", + 2 + ] + ], + "id" : "Ulrich Rieke", + "name" : "Ulrich Rieke" }, { - "name" : "W. Luis Mochan", "id" : "W. Luis Mochan", "data" : [ [ @@ -36,62 +90,80 @@ "Blog", 1 ] - ] + ], + "name" : "W. Luis Mochan" } ] }, - "title" : { - "text" : "The Weekly Challenge - 260" - }, "plotOptions" : { "series" : { "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" + "format" : "{point.y}", + "enabled" : 1 }, "borderWidth" : 0 } }, - "legend" : { - "enabled" : 0 - }, - "chart" : { - "type" : "column" - }, - "xAxis" : { - "type" : "category" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, "series" : [ { + "colorByPoint" : 1, "data" : [ { + "drilldown" : "Dave Jacoby", + "name" : "Dave Jacoby", + "y" : 3 + }, + { + "name" : "E. Choroba", "y" : 2, - "drilldown" : "E. Choroba", - "name" : "E. Choroba" + "drilldown" : "E. Choroba" }, { "name" : "Mark Anderson", - "drilldown" : "Mark Anderson", - "y" : 2 + "y" : 2, + "drilldown" : "Mark Anderson" + }, + { + "drilldown" : "Peter Meszaros", + "y" : 2, + "name" : "Peter Meszaros" }, { - "y" : 3, + "name" : "Thomas Kohler", + "y" : 4, + "drilldown" : "Thomas Kohler" + }, + { + "drilldown" : "Ulrich Rieke", + "y" : 4, + "name" : "Ulrich Rieke" + }, + { + "drilldown" : "W. Luis Mochan", "name" : "W. Luis Mochan", - "drilldown" : "W. Luis Mochan" + "y" : 3 } ], - "name" : "The Weekly Challenge - 260", - "colorByPoint" : 1 + "name" : "The Weekly Challenge - 260" } ], + "legend" : { + "enabled" : 0 + }, + "subtitle" : { + "text" : "[Champions: 7] Last updated at 2024-03-11 19:13:07 GMT" + }, + "xAxis" : { + "type" : "category" + }, "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 + "followPointer" : 1, + "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 7efadb1193..2eab62b0c1 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,63 +1,63 @@ { + "title" : { + "text" : "The Weekly Challenge Contributions [2019 - 2024]" + }, "chart" : { "type" : "column" }, - "legend" : { - "enabled" : "false" - }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } - }, - "xAxis" : { - "type" : "category", - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - } - }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, "series" : [ { + "name" : "Contributions", + "dataLabels" : { + "align" : "right", + "color" : "#FFFFFF", + "enabled" : "true", + "y" : 10, + "format" : "{point.y:.0f}", + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + }, + "rotation" : -90 + }, "data" : [ [ "Blog", - 4612 + 4615 ], [ "Perl", - 13392 + 13400 ], [ "Raku", - 7782 + 7784 ] - ], - "name" : "Contributions", - "dataLabels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "rotation" : -90, - "enabled" : "true", - "y" : 10, - "format" : "{point.y:.0f}", - "align" : "right", - "color" : "#FFFFFF" - } + ] } ], + "legend" : { + "enabled" : "false" + }, "subtitle" : { - "text" : "Last updated at 2024-03-11 11:17:47 GMT" + "text" : "Last updated at 2024-03-11 19:13:07 GMT" }, - "title" : { - "text" : "The Weekly Challenge Contributions [2019 - 2024]" + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + } + } + }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "yAxis" : { + "title" : { + "text" : null + }, + "min" : 0 } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index eadfdc41b5..4883b807d5 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,1336 +1,7 @@ { - "chart" : { - "type" : "column" - }, - "legend" : { - "enabled" : "false" - }, - "xAxis" : { - "type" : "category" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "tooltip" : { - "followPointer" : "true", - "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>", - "headerFormat" : "<span style=\"font-size:11px\"></span>" - }, - "series" : [ - { - "name" : "The Weekly Challenge Languages", - "colorByPoint" : "true", - "data" : [ - { - "y" : 164, - "drilldown" : "001", - "name" : "#001" - }, - { - "name" : "#002", - "drilldown" : "002", - "y" : 129 - }, - { - "name" : "#003", - "drilldown" : "003", - "y" : 87 - }, - { - "drilldown" : "004", - "name" : "#004", - "y" : 103 - }, - { - "name" : "#005", - "drilldown" : "005", - "y" : 80 - }, - { - "y" : 61, - "drilldown" : "006", - "name" : "#006" - }, - { - "name" : "#007", - "drilldown" : "007", - "y" : 69 - }, - { - "y" : 82, - "drilldown" : "008", - "name" : "#008" - }, - { - "name" : "#009", - "drilldown" : "009", - "y" : 80 - }, - { - "name" : "#010", - "drilldown" : "010", - "y" : 69 - }, - { - "drilldown" : "011", - "name" : "#011", - "y" : 89 - }, - { - "y" : 92, - "drilldown" : "012", - "name" : "#012" - }, - { - "y" : 87, - "name" : "#013", - "drilldown" : "013" - }, - { - "y" : 102, - "drilldown" : "014", - "name" : "#014" - }, - { - "y" : 101, - "drilldown" : "015", - "name" : "#015" - }, - { - "y" : 75, - "name" : "#016", - "drilldown" : "016" - }, - { - "drilldown" : "017", - "name" : "#017", - "y" : 86 - }, - { - "name" : "#018", - "drilldown" : "018", - "y" : 83 - }, - { - "name" : "#019", - "drilldown" : "019", - "y" : 105 - }, - { - "name" : "#020", - "drilldown" : "020", - "y" : 103 - }, - { - "y" : 74, - "drilldown" : "021", - "name" : "#021" - }, - { - "drilldown" : "022", - "name" : "#022", - "y" : 72 - }, - { - "drilldown" : "023", - "name" : "#023", - "y" : 101 - }, - { - "drilldown" : "024", - "name" : "#024", - "y" : 77 - }, - { - "name" : "#025", - "drilldown" : "025", - "y" : 62 - }, - { - "y" : 76, - "name" : "#026", - "drilldown" : "026" - }, - { - "y" : 64, - "name" : "#027", - "drilldown" : "027" - }, - { - "drilldown" : "028", - "name" : "#028", - "y" : 82 - }, - { - "y" : 83, - "name" : "#029", - "drilldown" : "029" - }, - { - "y" : 121, - "name" : "#030", - "drilldown" : "030" - }, - { - "y" : 93, - "name" : "#031", - "drilldown" : "031" - }, - { - "y" : 98, - "name" : "#032", - "drilldown" : "032" - }, - { - "name" : "#033", - "drilldown" : "033", - "y" : 114 - }, - { - "y" : 70, - "name" : "#034", - "drilldown" : "034" - }, - { - "name" : "#035", - "drilldown" : "035", - "y" : 68 - }, - { - "y" : 70, - "drilldown" : "036", - "name" : "#036" - }, - { - "drilldown" : "037", - "name" : "#037", - "y" : 70 - }, - { - "drilldown" : "038", - "name" : "#038", - "y" : 74 - }, - { - "y" : 68, - "drilldown" : "039", - "name" : "#039" - }, - { - "drilldown" : "040", - "name" : "#040", - "y" : 77 - }, - { - "y" : 80, - "name" : "#041", - "drilldown" : "041" - }, - { - "y" : 98, - "name" : "#042", - "drilldown" : "042" - }, - { - "drilldown" : "043", - "name" : "#043", - "y" : 72 - }, - { - "drilldown" : "044", - "name" : "#044", - "y" : 90 - }, - { - "y" : 102, - "name" : "#045", - "drilldown" : "045" - }, - { - "name" : "#046", - "drilldown" : "046", - "y" : 93 - }, - { - "name" : "#047", - "drilldown" : "047", - "y" : 88 - }, - { - "y" : 112, - "name" : "#048", - "drilldown" : "048" - }, - { - "name" : "#049", - "drilldown" : "049", - "y" : 93 - }, - { - "y" : 104, - "drilldown" : "050", - "name" : "#050" - }, - { - "drilldown" : "051", - "name" : "#051", - "y" : 95 - }, - { - "name" : "#052", - "drilldown" : "052", - "y" : 93 - }, - { - "y" : 105, - "drilldown" : "053", - "name" : "#053" - }, - { - "drilldown" : "054", - "name" : "#054", - "y" : 107 - }, - { - "name" : "#055", - "drilldown" : "055", - "y" : 92 - }, - { - "y" : 104, - "drilldown" : "056", - "name" : "#056" - }, - { - "name" : "#057", - "drilldown" : "057", - "y" : 86 - }, - { - "name" : "#058", - "drilldown" : "058", - "y" : 71 - }, - { - "y" : 93, - "name" : "#059", - "drilldown" : "059" - }, - { - "name" : "#060", - "drilldown" : "060", - "y" : 89 - }, - { - "drilldown" : "061", - "name" : "#061", - "y" : 85 - }, - { - "name" : "#062", - "drilldown" : "062", - "y" : 62 - }, - { - "name" : "#063", - "drilldown" : "063", - "y" : 93 - }, - { - "y" : 84, - "drilldown" : "064", - "name" : "#064" - }, - { - "name" : "#065", - "drilldown" : "065", - "y" : 77 - }, - { - "y" : 88, - "drilldown" : "066", - "name" : "#066" - }, - { - "y" : 94, - "name" : "#067", - "drilldown" : "067" - }, - { - "y" : 79, - "drilldown" : "068", - "name" : "#068" - }, - { - "y" : 87, - "name" : "#069", - "drilldown" : "069" - }, - { - "name" : "#070", - "drilldown" : "070", - "y" : 98 - }, - { - "y" : 82, - "name" : "#071", - "drilldown" : "071" - }, - { - "name" : "#072", - |
