Differences between revisions 2 and 3
Revision 2 as of 2016-09-20 15:12:15
Size: 3273
Editor: KaiJaeger
Comment:
Revision 3 as of 2016-09-20 15:31:25
Size: 2611
Editor: KaiJaeger
Comment:
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

TestPage3 (last edited 2016-09-20 15:31:25 by KaiJaeger)