在Mathematica中從文本文件中獲取矩陣

Question

將this文本文件轉換爲矩陣的最簡單方法是什麼？它具有每行一列，其中O意味着0和X意味着1

Answer 1

我先保存在一個文件tmp.txt的文本。

In[180]:= words = ReadList["~danl/tmp.txt", Word]; 
vals = Map[Characters, words] /. {"O" -> 0, "X" -> 1}; 

In[182]:= vals[[1]] 
Out[182]= {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} 

丹尼爾Lichtblau 沃爾夫勒姆研究

Answer 2

$url = "http://hyperpublic.com/challenge2input.txt"; 
StringCases[Import[$url, "Lines"], {"O" -> 0, "X" -> 1}]