level 11
试一下这个。
w[f_, M_ /;
MatrixQ[M] && Dimensions[M][[2]] == 2 &&
OrderedQ[M[[2]], OrderedQ[{
#1, #
2}] && UnsameQ[
#1, #
2] &]] :=
M[[Length[Select[M[[All, 2]], # <= f &]], 1]] /; f >= M[[1, 2]];
这里要求了矩阵的列数为2,然后f不小于第一行第二列的元素。
2018年06月06日 11点06分
3
谢谢,不过还是不是我想要的。我在下面再写一下。
2018年06月06日 12点06分