diff options
Diffstat (limited to 'challenge-079')
| -rw-r--r-- | challenge-079/richard-park/apl/CountSetBits.aplf | 1 | ||||
| -rw-r--r-- | challenge-079/richard-park/apl/TrappedRainWater.aplf | 8 | ||||
| -rw-r--r-- | challenge-079/richard-park/apl/ch-1.aplf | 1 | ||||
| -rw-r--r-- | challenge-079/richard-park/apl/ch-2.aplf | 8 | ||||
| -rw-r--r-- | challenge-079/richard-park/blog.txt | 1 |
5 files changed, 19 insertions, 0 deletions
diff --git a/challenge-079/richard-park/apl/CountSetBits.aplf b/challenge-079/richard-park/apl/CountSetBits.aplf new file mode 100644 index 0000000000..09255d1fb1 --- /dev/null +++ b/challenge-079/richard-park/apl/CountSetBits.aplf @@ -0,0 +1 @@ + CountSetBits ← {+/,2⊥⍣¯1⍳⍵}
\ No newline at end of file diff --git a/challenge-079/richard-park/apl/TrappedRainWater.aplf b/challenge-079/richard-park/apl/TrappedRainWater.aplf new file mode 100644 index 0000000000..33400056fc --- /dev/null +++ b/challenge-079/richard-park/apl/TrappedRainWater.aplf @@ -0,0 +1,8 @@ + TrappedRainWater←{ + +/⌈\-⊢ ⍝ Elegant train +⍝ +/⍵-⍨+/∨⍀⍵∘.≥⍳⌈/⍵ ⍝ From the video +⍝ +/ Sum of +⍝ ⍵-⍨ bottom of buckets +⍝ +/∨⍀ to top of buckets +⍝ ⍵∘.≥⍳⌈/⍵ in a histogram rep. of ⍵ + } diff --git a/challenge-079/richard-park/apl/ch-1.aplf b/challenge-079/richard-park/apl/ch-1.aplf new file mode 100644 index 0000000000..09255d1fb1 --- /dev/null +++ b/challenge-079/richard-park/apl/ch-1.aplf @@ -0,0 +1 @@ + CountSetBits ← {+/,2⊥⍣¯1⍳⍵}
\ No newline at end of file diff --git a/challenge-079/richard-park/apl/ch-2.aplf b/challenge-079/richard-park/apl/ch-2.aplf new file mode 100644 index 0000000000..33400056fc --- /dev/null +++ b/challenge-079/richard-park/apl/ch-2.aplf @@ -0,0 +1,8 @@ + TrappedRainWater←{ + +/⌈\-⊢ ⍝ Elegant train +⍝ +/⍵-⍨+/∨⍀⍵∘.≥⍳⌈/⍵ ⍝ From the video +⍝ +/ Sum of +⍝ ⍵-⍨ bottom of buckets +⍝ +/∨⍀ to top of buckets +⍝ ⍵∘.≥⍳⌈/⍵ in a histogram rep. of ⍵ + } diff --git a/challenge-079/richard-park/blog.txt b/challenge-079/richard-park/blog.txt new file mode 100644 index 0000000000..8a7c423823 --- /dev/null +++ b/challenge-079/richard-park/blog.txt @@ -0,0 +1 @@ +https://www.youtube.com/watch?v=EcIOvs_YMJA |