November 24th, 2010, 9:02 pm
12population = Range[12]{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}friends = Join[{Range[2, 7]}, ConstantArray[Prepend[Range[8, 12], 1], 6], ConstantArray[Range[2, 7], 5]]{{2, 3, 4, 5, 6, 7}, {1, 8, 9, 10, 11, 12}, {1, 8, 9, 10, 11, 12}, {1, 8, 9, 10, 11, 12}, {1, 8, 9, 10, 11, 12}, {1, 8, 9, 10, 11, 12}, {1, 8, 9, 10, 11, 12}, {2, 3, 4, 5, 6, 7}, {2, 3, 4, 5, 6, 7}, {2, 3, 4, 5, 6, 7}, {2, 3, 4, 5, 6, 7}, {2, 3, 4, 5, 6, 7}}friendships = Union[Map[Sort, Flatten[Table[Table[{j, friends[[j, k]]}, {k, 1, Length[friends[[j]]]}], {j, 1, Length[friends]}], 1]]]{{1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {2, 8}, {2, 9}, {2, 10}, {2, 11}, {2, 12}, {3, 8}, {3, 9}, {3, 10}, {3, 11}, {3,12}, {4, 8}, {4, 9}, {4, 10}, {4, 11}, {4, 12}, {5, 8}, {5, 9}, {5, 10}, {5, 11}, {5, 12}, {6, 8}, {6, 9}, {6, 10}, {6, 11}, {6, 12}, {7, 8}, {7, 9}, {7, 10}, {7, 11}, {7, 12}}Map[Count[friendships, #, {2}] &, population]{6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6}forbiddenfriendships = Union[Join[Union[Map[Sort, Permutations[Range[2, 7], {2}]]], Union[Map[Sort, Permutations[Prepend[Range[8, 12], 1], {2}]]]]]{{1, 8}, {1, 9}, {1, 10}, {1, 11}, {1, 12}, {2, 3}, {2, 4}, {2, 5}, {2, 6}, {2, 7}, {3, 4}, {3, 5}, {3, 6}, {3, 7}, {4, 5}, {4, 6}, {4, 7}, {5, 6}, {5, 7}, {6, 7}, {8, 9}, {8, 10}, {8, 11}, {8, 12}, {9, 10}, {9, 11}, {9, 12}, {10, 11}, {10, 12}, {11, 12}}Intersection[friendships, forbiddenfriendships]{}