# TestPage3

This code was copied from a session window of MicroAPL's APLX:

```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,-/(+\0,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.

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