2011-02-24 15 views

Respuesta

9

primera vez salvado ese texto en un archivo de 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} 

Daniel Lichtblau Wolfram Research

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

Espera, puede utilizar las URL como argumentos para 'Importar'? ¿Cuan genial es eso? – Pillsy

+0

¡Felicidades por tus 10k! Tenía que encontrar una respuesta que no hubiera votado anteriormente para darle un golpe :) – abcd

+0

@Yoda ¡Gracias! :) – WReach

Cuestiones relacionadas