3273
Comment:

← Revision 3 as of 20160920 15:31:25 ⇥
2611

Deletions are marked like this.  Additions are marked like this. 
Line 3:  Line 3: 
This code was copied from a session window of MicroAPL's APLX:  
Line 5:  Line 4: 
{{{ r←p subtotal m;⎕IO ⍝compute and merge subtotals of <m> determined by positions <p> ⍝.e (7 2⍴1 2 1 2 2 4 10 20 10 20 20 40 22 44) = (3 2⍴1 2 3 4 1 4) subtotal 4 2⍴1 2 1 2 10 20 10 20 ⍝.k computation ⍝.t 1989.7.23.23.49.42 ⍝.v 1.0 jan82 ⍝<p> is n×2 matrix ⍝ n is number of subtotal rows ⍝ p[;1] is subtotal row start positions, p[;2] is end positions ⎕IO←1 r←(m,[1]/[2](+\[1]0,[1]m)[⌽p+(⍴p)⍴0 1;])[⍋(⍳1↑⍴m),p[;2];] This is normal text with APL: `inLineApl←{{2=+⌿0=⍵∘.⍵)/⍵}⍳⍵}` as part of a normal paragraph. This is normal text with APL: {{{inLineApl←{{2=+⌿0=⍵∘.⍵)/⍵}⍳⍵} }}} inserted as code into a normal paragraph. 
This is normal text with APL: `inLineApl←{{2=+⌿0=⍵∘.⍵)/⍵}⍳⍵}` inserted as code into a normal paragraph. 
TestPage3
This is normal text with APL: inLineApl←{{2=+⌿0=⍵∘.⍵)/⍵}⍳⍵} inserted as code into a normal paragraph.
Trying to figure out attachments... This should be a jpeg:
Any good?
Experimenting with formatting Finn APL Idiom Library
1. 
Progressive index of (without replacement) 
X←A1; Y←A1 
((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X 

2. 
Ascending cardinal numbers (ranking, shareable) 
X←D1 
⌊.5×(⍋⍋X)+⌽⍋⍋⌽X 

3. 
Cumulative maxima (⌈\) of subvectors of Y indicated by X 
X←B1; Y←D1 
Y[A⍳⌈\A←⍋A[⍋(+\X)[A←⍋Y]]] 

2. 
Ascending cardinal numbers (ranking, shareable) 
X←D1 
⌊.5×(⍋⍋X)+⌽⍋⍋⌽X 

3. 
Cumulative maxima (⌈\) of subvectors of Y indicated by X 
X←B1; Y←D1 
Y[A⍳⌈\A←⍋A[⍋(+\X)[A←⍋Y]]] 

2. 
Ascending cardinal numbers (ranking, shareable) 
X←D1 
⌊.5×(⍋⍋X)+⌽⍋⍋⌽X 

3. 
Cumulative maxima (⌈\) of subvectors of Y indicated by X 
X←B1; Y←D1 
Y[A⍳⌈\A←⍋A[⍋(+\X)[A←⍋Y]]] 

2. 
Ascending cardinal numbers (ranking, shareable) 
X←D1 
⌊.5×(⍋⍋X)+⌽⍋⍋⌽X 

3. 
Cumulative maxima (⌈\) of subvectors of Y indicated by X 
X←B1; Y←D1 
Y[A⍳⌈\A←⍋A[⍋(+\X)[A←⍋Y]]] 

2. 
Ascending cardinal numbers (ranking, shareable) 
X←D1 
⌊.5×(⍋⍋X)+⌽⍋⍋⌽X 