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