diff options
Diffstat (limited to 'challenge-266/deadmarshal/perl/ch-1.pl')
| -rw-r--r-- | challenge-266/deadmarshal/perl/ch-1.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/challenge-266/deadmarshal/perl/ch-1.pl b/challenge-266/deadmarshal/perl/ch-1.pl new file mode 100644 index 0000000000..f26f52e9cf --- /dev/null +++ b/challenge-266/deadmarshal/perl/ch-1.pl @@ -0,0 +1,15 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Data::Show; + +sub uncommon_words{ + my %h; + $h{lc $_}++ foreach split /\W+/, $_[0] . ' ' . $_[1]; + sort grep{$h{$_} == 1} keys %h; +} + +print show uncommon_words('Mango is sweet','Mango is sour'); +print show uncommon_words('Mango Mango','Orange'); +print show uncommon_words('Mango is Mango','Orange is Orange'); + |