wolfram-mathematica - Mathematica 中的交 fork 列表

Question

我有以下两个列表

l1 = {{{2011, 3, 13}, 1}, {{2011, 3, 14}, 1}, {{2011, 3, 15},
1}, {{2011, 3, 16}, 2}, {{2011, 3, 17}, 3}};
l2 = {{{2011, 3, 13}, 40}, {{2011, 3, 16}, 50}, {{2011, 3, 17}, 60}};

我需要从 l2 中提取项目，其日期(每个 l2 元素的第一个元素)与 l1 中的日期匹配(以便生成两个长度完全相同的列表)

我不明白为什么会这样:

Select[l1, MemberQ[Transpose[l2][[1]], #[[1]]]]

应该产生一个空列表。我错过了一些微不足道的东西吗？

Answer 1

你忘记了＆符号。它应该是

Select[l1, MemberQ[Transpose[l2][[1]], #[[1]]]&]