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

#! /usr/bin/env perl6

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

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