File: test.apl

package info (click to toggle)
ruby-pygments.rb 0.6.3-2%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 8,628 kB
  • sloc: python: 46,993; ansic: 8,115; lisp: 3,703; cobol: 2,961; pascal: 2,750; ruby: 2,700; sh: 2,362; java: 1,755; cpp: 1,549; haskell: 926; ml: 831; csh: 681; f90: 459; php: 260; cs: 258; perl: 177; makefile: 174; ada: 161; objc: 145; erlang: 104; awk: 94; asm: 68; jsp: 21
file content (26 lines) | stat: -rw-r--r-- 587 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
∇ R←M COMBIN N;D;E;F;G;P
  ⍝ Returns a matrix of every possible
  ⍝ combination of M elements from the
  ⍝ vector ⍳N.  That is, returns a
  ⍝ matrix with M!N rows and N columns.
  E←(⍳P←N-R←M-1)-⎕IO
  D←R+⍳P
  R←(P,1)⍴D
  P←P⍴1
 L1:→(⎕IO>1↑D←D-1)⍴0
  P←+\P
  G←+\¯1↓0,F←⌽P
  E←F/E-G
  R←(F/D),R[E+⍳⍴E;]
  E←G
  →L1

∇ R←M QUICKEXP N
  ⍝ Matrix exponentiation
  B ← ⌊ 1 + 2 ⍟ N
  V ← (B ⍴ 2) ⊤ N
  L ← ⊂ M
  R ← ⊃ +.× / V / L ⊣ { L ← (⊂ A +.× A ← ↑L) , L }¨ ⍳ B-1