Barista

Coding for fun not profit.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/d/perl/bin/perl.exe# (void*)# If I ever own a cafe it will be called# 0xBADDECAF or just 0xCAFE, but what else could it be?while(<>){my@words=split;foreachmy$word(@words){nextif$word=~/[^a-fA-F]/;nextif$seen{$word};$seen{$word}=1;}}foreachmy$word(sort(keys%seen)){print$word," ";}

#!/d/perl/bin/perl.exe
# (void*)
# If I ever own a cafe it will be called
# 0xBADDECAF or just 0xCAFE, but what else could it be?
while (<>) {
my @words = split;
foreach my $word (@words) {
next if $word =~ /[^a-fA-F]/;
next if $seen{$word};
$seen{$word} = 1;
}
}
foreach my $word (sort (keys %seen)) {
print $word, " ";
}