diff options
author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
---|---|---|
committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/test.apl | |
parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
download | pygments-master.tar.gz |
Diffstat (limited to 'tests/examplefiles/test.apl')
-rw-r--r-- | tests/examplefiles/test.apl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/tests/examplefiles/test.apl b/tests/examplefiles/test.apl deleted file mode 100644 index 26ecf971..00000000 --- a/tests/examplefiles/test.apl +++ /dev/null @@ -1,26 +0,0 @@ -∇ 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 -∇ |