Я хотел бы извлечь аргументы из случаев неравенства.Следующее не работает, есть идеи, как и как это исправить?
Inequality[1, Less, x, Less, 2] /. Inequality[a_, _, c_, _, e_] -> {a, c, e}
Inequality[1,Less,x,Less,2] /. HoldPattern[Inequality[a_,_,b_,_,c_]] -> {a, b, c} Out: {1, x, 2}
Также вы можете сделать это:
Неравенство [1, Меньше, Х, Меньше, 2] /. Литерал @ Неравенство [a_, _, c_, _, e_] -> {a, c, e}
ADL
Почему вы не используете стандартный доступ к подвыражению?
expr = Неравенство [1, Меньше, Х, Меньше, 2]; {a, c, e} = {expr [[1]], expr [[3]], expr [[5]]};