Задачки

Забавно, Мишустин задал задачу, которую я когда-то упоминал в моём блоге. Задача слишком хорошая для импровизации --- думаю не обошлось без предварительной подготовки.

Услышал вчера неплохую задачу на логику.

Есть три друга: Илья, Лёша и Стас. Илья всегда говорит правду, Лёша всегда врёт, а Стас выбирает ответ случайно.

Повстречав эту троицу и задав три вопроса типа да-нет (каждый вопрос задаётся одному человеку), как определить кто из них кто?

Задача простая, конечно.

Mathematica 12.2

В новом релизе Mathematica (12.2)  наконец-то перестал работать мой пакет LiteRed разлива 2015г. Суматошное разбирательство показало, что причина в измененной процедуре ValueQ. Выяснилось, что код

f[x]^=1;ValueQ[g[x]]

теперь даёт при вычислении True (и код x=x;ValueQ[x] тоже даёт True). В ярости написал вопрос в Mathematica Stack Exchange, и да, таки, всё правильно, как в том анекдоте.

Из любопытства прошёлся по списку багов, который я когда-то составлял. Баги №№5,8,9 всё ещё живы. Девятый я тоже запостил в Mathematica.SE. Самое смешное --- что случилось с багом №2: до версии 12.2 DiscreteRatio[Sin[Pi x], x] вычислялось в 1, а в 12.2 этот баг "исправили": теперь DiscreteRatio[Sin[Pi x], x] остаётся невычисленным. Прогресс!