ПРИМЕЧАНИЕ: я не программист Mathematica, но для класса мне нужно написать в нем выражения. Я понимаю, что это функциональный язык в отличие от C или Java.
Я пытаюсь «сравнить» (я использую это из-за отсутствия лучшего термина) индексы или два иррациональных числа. Затем я пытаюсь сохранить, равны ли они 1 и 0 соответственно, в списке. Хотя список сравнения не заполнен (OUTPUT = "{}")
Что не так с моей логикой в цикле for (кроме того, что она не функционально запрограммирована и неэффективна)
piDigits = RealDigits[N[Pi, 15000000]]
rootDigits = RealDigits[N[Sqrt[2],15000000]]
comparisonList = List[]
For[i = 1, i < Length[Part[piDigits, 0]], i++,
If[Part[piDigits, i] == Part[rootDigits, i] ,
Append[comparisonList, 1], Append[comparisonList, 0]]]
comparisonList