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