diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-02-21 19:05:28 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-02-21 19:05:28 +0000 |
| commit | c7e1bf5a03c760718ef3a91890cf04f7e3fec76d (patch) | |
| tree | 6dfbbdbfe486bf2ab0ea2e8c063ef57cb5e22919 | |
| parent | 4f4cd1d1b9b00faa9f721ffc7df27027cdaf9dd8 (diff) | |
| download | perlweeklychallenge-club-c7e1bf5a03c760718ef3a91890cf04f7e3fec76d.tar.gz perlweeklychallenge-club-c7e1bf5a03c760718ef3a91890cf04f7e3fec76d.tar.bz2 perlweeklychallenge-club-c7e1bf5a03c760718ef3a91890cf04f7e3fec76d.zip | |
- Added APL solutions by Richard Park.
| -rw-r--r-- | challenge-100/richard-park/apl/ch-1.aplf | 8 | ||||
| -rw-r--r-- | challenge-100/richard-park/apl/ch-2.aplf | 10 |
2 files changed, 18 insertions, 0 deletions
diff --git a/challenge-100/richard-park/apl/ch-1.aplf b/challenge-100/richard-park/apl/ch-1.aplf new file mode 100644 index 0000000000..9f866cd7cd --- /dev/null +++ b/challenge-100/richard-park/apl/ch-1.aplf @@ -0,0 +1,8 @@ + FunTime←{ + ⎕IO←1 + 'ap'∨/⍤∊⍵:' ?am' ' ?pm'⎕R''⊢'\d+:'⎕R{':',⍨'0'@(' '∘=)¯2↑⍕12+⍣('p'∊⍵.Block)⊢⍎¯1↓⍵.Match}⊢⍵ + num←⍎¨':'(≠⊆⊢)⍵ + suffix←' am' ' pm'⊃⍨1+~12 60∧.>num + time←⊃(⊣,':',⊢)/'0'@(' '∘=)¨¯2↑∘⍕¨12 60|num + time,suffix + } diff --git a/challenge-100/richard-park/apl/ch-2.aplf b/challenge-100/richard-park/apl/ch-2.aplf new file mode 100644 index 0000000000..df0ec84357 --- /dev/null +++ b/challenge-100/richard-park/apl/ch-2.aplf @@ -0,0 +1,10 @@ + TriangleSum←{ + ⍺←0 + row←⊃⍵ + 2≥≢row:(⍺+row)∇ 1↓⍵ + 0∊⍴⍵:⍺ + coeffs←1,1,⍨2⍴⍨¯2+≢row + k←coeffs/⍳≢row + sums←+⌿↑(⍺⌿⍨2⍴⍨≢⍺)(coeffs/row) + ⌊/(k{⌊/⍵}⌸sums)∇ 1↓⍵ + } |