diff options
| -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 ; |