path: root/challenge-026/arne-sommer/perl6/stringcounter-subset

#! /usr/bin/env perl6

subset AtoZ of Str where /^ <[A .. Z a .. z]>+ $/;

unit sub MAIN (AtoZ $alphabet, AtoZ $string);

say $alphabet.comb.unique.map( { $string.comb.grep(* eq $_ ) } ).sum;