ch-2a.raku « raku « feng-chang « challenge-276 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-276/feng-chang/raku/ch-2a.raku

blob: fd80e958877e4492a598df8d1dcb02b2dd453d3d (plain)

#!/bin/env raku

unit sub MAIN(*@ints);

my %b = @ints.Bag;
my %s = (+«%b.max(:by({.value}), :k)).Set;
put +@ints.grep(%s);