diff options
| -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÷⍨≢⍵)↑(⊢,⊖)⍪⍳≢⍵ + } |