Text processing/1: Difference between revisions
→{{header|J}}: break up code and usage
No edit summary |
(→{{header|J}}: break up code and usage) |
||
Line 511:
=={{header|J}}==
<lang j>▼
NB. Compares all-at-once and block processing methods▼
require 'files' NB. for fapplylines adverb▼
First load <tt>files</tt> library and define some utility verbs for use in all examples.
▲<lang j>
NB. Utility verbs
Line 525 ⟶ 527:
badflags=. , 0 >: y
NB. define
getrunlengths=. [: #(;.1) 0 , }. *. }:
getidxmax=. >:@I.@e. >./
Line 548 ⟶ 550:
out=. out,LF,'Maximum run(s) of ',(": maxrun),' consecutive false readings ends at line(s) starting with date(s): ',dates
)
</lang>
<lang j>
load 'tables/dsv' NB. use tables/dsv addon
dat=: TAB readdsv jpath '~temp/readings.txt'
Line 561 ⟶ 565:
MaxRuns=: findLongestRuns flags
(_4{.Dates) formatDailySumry _4{. DailySumry
NB. add output
MaxRuns formatFileSumry DailySumry
NB. add output
</lang>
<lang j>
NB. Processing verbs
parseLine=: 10&({. ,&< (_99&".;._1)@:}.)
Line 577 ⟶ 584:
dates;sumry;flags NB. return block of dates and summaries
)
</lang>
<lang j>
'Dates DailySumry'=: processBlock fread jpath '~temp/readings.txt'
(_4{.Dates) formatDailySumry _4{. DailySumry
NB. add output
formatFileSumry DailySumry
NB. add output
</lang>
<lang j>
mungeDataBlocks=: monad define
sz=. fsize y
Line 608 ⟶ 620:
Dates;DailySumry;Flags
)
</lang>
<lang j>
'Dates DailySumry Flags'=: mungeDataBlocks jpath '~temp/readings.txt'
NB. add output
$ each Dates;DailySumry;Flags
NB. add output
</lang>
<lang j>
processLine=: monad define
'dates dat'=. parseLine y
Line 641 ⟶ 657:
smoutput MaxRuns formatFileSumry DailySumry
)
</lang>
<lang j>
mungeDataLines jpath '~temp/readings.txt'
NB. add output
$ each Dates;DailySumry
NB. add output
</lang>
| |||