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,[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.

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`