#!/usr/bin/perl

use strict;

use Digest::SHA1 qw(sha1);
use Bloom::Filter;

my $filter = Bloom::Filter->new(error_rate => 0.0001, capacity => 100);

my @salts;

# None of these work
#  Option 1:
#   push @salts, "msis";
#  Option 2:
#   for my $salt (0..3) {
#       push @salts, sub { sha1($salt,$_[0]) };
#   }
#  Option 3:
#   for my $salt (0..3) {
#       push @salts, sha1($salt,$_[0]);
#   }

$filter->set_salts(@salts);

$filter->add("Foo");
$filter->add("Bar");
$filter->add("Baz");

print STDOUT ($filter->check("Bar") ? "Found" : "Not Found"), "\n";
print STDOUT ($filter->check("Bim") ? "Found" : "Not Found"), "\n";

exit;