Mathematica列表将不会填充

Question

注意：我不是Mathematica程序员，但是对于一个类，我需要在其中编写表达式。我了解它是一种不同于C或Java的功能语言。

我正在尝试“比较”索引或两个无理数（我用它来表示一个更好的术语）。然后，我尝试将它们是否等于1（分别为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