Text processing/1: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 2,468:
Maximum 589 consecutive false readings starting at 1993-02-09.</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>FileName = "Readings.txt"; data = Import[FileName,"TSV"];
Scan[(a=Position[#[[3;;All;;2]],1];
Print["Line:",#[[1]] ,"\tReject:", 24 - Length[a], "\t Accept:", Length[a], "\tLine_tot:",
| |||