diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-26 23:21:51 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-26 23:21:51 +0100 |
| commit | 24e6f7b3ade3b679189518f3152a5e0a08fdd6d0 (patch) | |
| tree | 3c5350531204d285f84fe470338b723fd94b235f /challenge-070 | |
| parent | 0243c7a7716aed7f066935f09a74f2987ced2c26 (diff) | |
| download | perlweeklychallenge-club-24e6f7b3ade3b679189518f3152a5e0a08fdd6d0.tar.gz perlweeklychallenge-club-24e6f7b3ade3b679189518f3152a5e0a08fdd6d0.tar.bz2 perlweeklychallenge-club-24e6f7b3ade3b679189518f3152a5e0a08fdd6d0.zip | |
- Added APL solutions by Richard Park.
Diffstat (limited to 'challenge-070')
| -rw-r--r-- | challenge-070/richard-park/apl/CharacterSwapping.aplf | 10 | ||||
| -rw-r--r-- | challenge-070/richard-park/apl/GrayCodeSequence.aplf | 6 | ||||
| -rw-r--r-- | challenge-070/richard-park/apl/ch-1.aplf | 10 | ||||
| -rw-r--r-- | challenge-070/richard-park/apl/ch-2.aplf | 6 | ||||
| -rw-r--r-- | challenge-070/richard-park/blog.txt | 1 |
5 files changed, 33 insertions, 0 deletions
diff --git a/challenge-070/richard-park/apl/CharacterSwapping.aplf b/challenge-070/richard-park/apl/CharacterSwapping.aplf new file mode 100644 index 0000000000..359f6a52c8 --- /dev/null +++ b/challenge-070/richard-park/apl/CharacterSwapping.aplf @@ -0,0 +1,10 @@ + CharacterSwapping←{ +⍝ Swap elements of ⍺ from (1 to c) and (o+1 to o+c) + ⍺←'PerlWeeklyChallenge' + ⎕IO←0 + n←≢⍺ + (c o)←⍵ + si←n|1+⍳c + ri←n|1+o+⍳c + s[ri]@si⊢s[si]@ri⊢⍺ + } diff --git a/challenge-070/richard-park/apl/GrayCodeSequence.aplf b/challenge-070/richard-park/apl/GrayCodeSequence.aplf new file mode 100644 index 0000000000..54e9b87e0e --- /dev/null +++ b/challenge-070/richard-park/apl/GrayCodeSequence.aplf @@ -0,0 +1,6 @@ + GrayCodeSequence←{ +⍝ Generate ⍵-bit Gray Code Sequence +⍝ ⍵ ≥ 2 + ⍺←0 1 3 2 + {2⊥(0∘⍪,1⍪⌽⍤⊢)2⊥⍣¯1⊢⍵}⍣(⍵-2)⊢⍺ + } diff --git a/challenge-070/richard-park/apl/ch-1.aplf b/challenge-070/richard-park/apl/ch-1.aplf new file mode 100644 index 0000000000..359f6a52c8 --- /dev/null +++ b/challenge-070/richard-park/apl/ch-1.aplf @@ -0,0 +1,10 @@ + CharacterSwapping←{ +⍝ Swap elements of ⍺ from (1 to c) and (o+1 to o+c) + ⍺←'PerlWeeklyChallenge' + ⎕IO←0 + n←≢⍺ + (c o)←⍵ + si←n|1+⍳c + ri←n|1+o+⍳c + s[ri]@si⊢s[si]@ri⊢⍺ + } diff --git a/challenge-070/richard-park/apl/ch-2.aplf b/challenge-070/richard-park/apl/ch-2.aplf new file mode 100644 index 0000000000..54e9b87e0e --- /dev/null +++ b/challenge-070/richard-park/apl/ch-2.aplf @@ -0,0 +1,6 @@ + GrayCodeSequence←{ +⍝ Generate ⍵-bit Gray Code Sequence +⍝ ⍵ ≥ 2 + ⍺←0 1 3 2 + {2⊥(0∘⍪,1⍪⌽⍤⊢)2⊥⍣¯1⊢⍵}⍣(⍵-2)⊢⍺ + } diff --git a/challenge-070/richard-park/blog.txt b/challenge-070/richard-park/blog.txt new file mode 100644 index 0000000000..63f45213fe --- /dev/null +++ b/challenge-070/richard-park/blog.txt @@ -0,0 +1 @@ +https://www.youtube.com/watch?v=TNBQYxtVnx4 |