say my $candidates = all
  (‘Alphabet’, ‘subdermatoglyphic’,
  ‘Emily Jung Schwartzkopf’).pick: 2;

say “All isograms? {$_ ?? ‘✔’ !! ‘❌’}”
  given is-isogram($candidates).so;

sub is-isogram (Str $_ --> Bool) {
  .uc.comb(/<:L>/).Bag ⊆ 'A'..'Z';
}

say my $candidates = all
  «Alphabet subdermatoglyphic
  ‘Emily Jung Schwartzkopf’».pick: 2;

say “All isograms? {$_ ?? ‘✔’ !! ‘❌’}”
  given is-isogram($candidates).so;

sub is-isogram (Str $_ --> Bool) {
  .uc.comb(/<:L>/).Bag ⊆ 'A'..'Z';
}

Make snippet slightly more Perl 6-y
Make snippet slightly more Perl 6-y
