array<String^>^ inbeans = {"broad", "mung", "black", "red", "white"};
Generic::ICollection<String^>^ beans = makeSET<String^>(gcnew Generic::List<String^>((Generic::IEnumerable<String^>^) inbeans));

array<String^>^ incolors = {"black", "red", "blue", "green"};
Generic::ICollection<String^>^ colors = makeSET<String^>(gcnew Generic::List<String^>((Generic::IEnumerable<String^>^) incolors));

Generic::ICollection<String^>^ result = intersectSET<String^>(beans, colors);

using namespace System;
using namespace System::Collections;

generic <typename T>
Generic::ICollection<T>^ makeSET(Generic::ICollection<T>^ items)
{
Generic::Dictionary<T, int>^ set = gcnew Generic::Dictionary<T, int>();
for each(T item in items) if (!set->ContainsKey(item)) set->Add(item, 0);
return set->Keys;
}

generic <typename T>
Generic::ICollection<T>^ intersectSET(Generic::ICollection<T>^ set1, Generic::ICollection<T>^ set2)
{
Generic::Dictionary<T, int>^ d1 = gcnew Generic::Dictionary<T, int>();
Generic::Dictionary<T, int>^ d2 = gcnew Generic::Dictionary<T, int>();
Generic::Dictionary<T, int>^ common = gcnew Generic::Dictionary<T, int>();

for each(T s1 in set1) if (!d1->ContainsKey(s1)) d1->Add(s1, 0);
for each(T s2 in set2) if (!d2->ContainsKey(s2)) d2->Add(s2, 0);

for each(T s1 in set1) if (d2->ContainsKey(s1)) if (!common->ContainsKey(s1)) common->Add(s1, 0);
for each(T s2 in set2) if (d1->ContainsKey(s2)) if (!common->ContainsKey(s2)) common->Add(s2, 0);

return common->Keys;
}

int main()
{
array<String^>^ inbeans = {"broad", "mung", "black", "red", "white"};
Generic::ICollection<String^>^ beans = makeSET<String^>(gcnew Generic::List<String^>((Generic::IEnumerable<String^>^) inbeans));

array<String^>^ incolors = {"black", "red", "blue", "green"};
Generic::ICollection<String^>^ colors = makeSET<String^>(gcnew Generic::List<String^>((Generic::IEnumerable<String^>^) incolors));

Generic::ICollection<String^>^ result = intersectSET<String^>(beans, colors);

for each(String^ item in result) Console::Write("{0}, ", item);
}