diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-23 23:46:27 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-23 23:46:27 +0100 |
| commit | d7ebe96c3f4bb452673078739f108305d5f952e7 (patch) | |
| tree | cb85de042d3a8923dba794fb5a6297f8d8d16d09 | |
| parent | b92779c202905498ef04170741bc31f0cf442e65 (diff) | |
| download | perlweeklychallenge-club-d7ebe96c3f4bb452673078739f108305d5f952e7.tar.gz perlweeklychallenge-club-d7ebe96c3f4bb452673078739f108305d5f952e7.tar.bz2 perlweeklychallenge-club-d7ebe96c3f4bb452673078739f108305d5f952e7.zip | |
- Updated solution by Colin Crain.
| -rw-r--r-- | challenge-074/colin-crain/raku/ch-1.raku | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/challenge-074/colin-crain/raku/ch-1.raku b/challenge-074/colin-crain/raku/ch-1.raku index b1d9cc78f3..f0f7d00059 100644 --- a/challenge-074/colin-crain/raku/ch-1.raku +++ b/challenge-074/colin-crain/raku/ch-1.raku @@ -23,7 +23,9 @@ # 2020 colin crain ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## - +sub circumfix:<⎣ ⎦>( Numeric $n ) { + $n.floor ; +} unit sub MAIN (*@A); @@ -32,7 +34,7 @@ my %count; %count{$_}++ for @A; # is count of first elem count larger than half list size? -my $max = @A.max({%count{$_}}); -say %count{$max} > (@A.elems/2).Int ?? $max !! -1 ; +my $max = @A.max:{ %count{$_} }; +say %count{$max} > ⎣@A.elems/2⎦ ?? $max !! -1 ; |