Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- mids[c_] := Table[Total[Take[c, i - 1]] + (c[[i]] + 1)/2, {i, Length[c]}]
- midgoodQ[p_] := [Not] IntersectingQ @@ Map[mids, p]
- midgoodQ[{{4}, {1, 3}}]
- During evaluation of In[56]:= Part::take: Cannot take positions 1 through 3 in {4}. >>
- Out[56]= True
- [Not] IntersectingQ @@ Map[mids, {{4}, {1, 3}}]
- Out[57]= True
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement