मैथमैटिका

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 Wolfram अनुसंधान

Answer 2

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