diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-12 20:51:19 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-12 20:51:19 +0100 |
| commit | e854f55a8f0b8d9a117e33b6dba46c85308bd3c9 (patch) | |
| tree | 20bd03d2319643a59dc160ff044e5ac2ce0e4e27 | |
| parent | 9d811dabfaea4dfd49aa872e7643509575fd8c27 (diff) | |
| download | perlweeklychallenge-club-e854f55a8f0b8d9a117e33b6dba46c85308bd3c9.tar.gz perlweeklychallenge-club-e854f55a8f0b8d9a117e33b6dba46c85308bd3c9.tar.bz2 perlweeklychallenge-club-e854f55a8f0b8d9a117e33b6dba46c85308bd3c9.zip | |
- Added APL solutions by Richard Park.
| -rw-r--r-- | challenge-068/richard-park/apl/ReorderArray.aplf | 6 | ||||
| -rw-r--r-- | challenge-068/richard-park/apl/ZeroMatrix.aplf | 1 | ||||
| -rw-r--r-- | challenge-068/richard-park/apl/ch-1.aplf | 1 | ||||
| -rw-r--r-- | challenge-068/richard-park/apl/ch-2.aplf | 6 |
4 files changed, 14 insertions, 0 deletions
diff --git a/challenge-068/richard-park/apl/ReorderArray.aplf b/challenge-068/richard-park/apl/ReorderArray.aplf new file mode 100644 index 0000000000..b4778a17c1 --- /dev/null +++ b/challenge-068/richard-park/apl/ReorderArray.aplf @@ -0,0 +1,6 @@ + ReorderArray←{ +⍝ ←: Major cells of ⍵ reordered +⍝ from a0,a1, ... ,a(n-1),an +⍝ to a0,an,a1,a(n-1),... + ⍵⌷⍨⊂∪,(⌈2÷⍨≢⍵)↑(⊢,⊖)⍪⍳≢⍵ + } diff --git a/challenge-068/richard-park/apl/ZeroMatrix.aplf b/challenge-068/richard-park/apl/ZeroMatrix.aplf new file mode 100644 index 0000000000..d1e3082aab --- /dev/null +++ b/challenge-068/richard-park/apl/ZeroMatrix.aplf @@ -0,0 +1 @@ + ZeroMatrix←{∧.∧⍨⍵} diff --git a/challenge-068/richard-park/apl/ch-1.aplf b/challenge-068/richard-park/apl/ch-1.aplf new file mode 100644 index 0000000000..d1e3082aab --- /dev/null +++ b/challenge-068/richard-park/apl/ch-1.aplf @@ -0,0 +1 @@ + ZeroMatrix←{∧.∧⍨⍵} diff --git a/challenge-068/richard-park/apl/ch-2.aplf b/challenge-068/richard-park/apl/ch-2.aplf new file mode 100644 index 0000000000..b4778a17c1 --- /dev/null +++ b/challenge-068/richard-park/apl/ch-2.aplf @@ -0,0 +1,6 @@ + ReorderArray←{ +⍝ ←: Major cells of ⍵ reordered +⍝ from a0,a1, ... ,a(n-1),an +⍝ to a0,an,a1,a(n-1),... + ⍵⌷⍨⊂∪,(⌈2÷⍨≢⍵)↑(⊢,⊖)⍪⍳≢⍵ + } |