diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-10-22 23:37:32 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-10-22 23:37:32 +0100 |
| commit | 0d3a5b1cedaa532b32c5eb45b1a1fbd216c396c0 (patch) | |
| tree | bbe9ecb4e8fa569fd22436dc9502e70bc12cf6b2 /challenge-343 | |
| parent | d3952bf1019d753ab045d0f01273dfc68884a106 (diff) | |
| parent | d9f27956285dc90732a992f53d4d3d563846f000 (diff) | |
| download | perlweeklychallenge-club-0d3a5b1cedaa532b32c5eb45b1a1fbd216c396c0.tar.gz perlweeklychallenge-club-0d3a5b1cedaa532b32c5eb45b1a1fbd216c396c0.tar.bz2 perlweeklychallenge-club-0d3a5b1cedaa532b32c5eb45b1a1fbd216c396c0.zip | |
Merge pull request #12899 from rikedyp/week-343
week 343 APL
Diffstat (limited to 'challenge-343')
| -rw-r--r-- | challenge-343/richard-park/apl/ChampionTeam.aplf | 37 | ||||
| -rw-r--r-- | challenge-343/richard-park/apl/ZeroFriend.aplf | 13 |
2 files changed, 50 insertions, 0 deletions
diff --git a/challenge-343/richard-park/apl/ChampionTeam.aplf b/challenge-343/richard-park/apl/ChampionTeam.aplf new file mode 100644 index 0000000000..5a940e8a54 --- /dev/null +++ b/challenge-343/richard-park/apl/ChampionTeam.aplf @@ -0,0 +1,37 @@ + ChampionTeam←{ + ⎕IO←0 + CT←{ + r←'Team' + w←⍕¨⍸s=⌈/s←+/⍵ + 'Team',('s'⌿⍨1<≢w),' ',⊃(⊣,' and ',⊢)/w + } + + ⍝ Tests + 'Team 0'≢CT[0 1 1 + 0 0 1 + 0 0 0]:∘∘∘ + 'Team 3'≢CT[0 1 0 0 + 0 0 0 0 + 1 1 0 0 + 1 1 1 0]:∘∘∘ + 'Team 0'≢CT[0 1 0 1 + 0 0 1 1 + 1 0 0 0 + 0 0 1 0]:∘∘∘ + 'Team 0'≢CT[0 1 1 + 0 0 0 + 0 1 0]:∘∘∘ + 'Team 2'≢CT[0 0 0 0 0 + 1 0 0 0 0 + 1 1 0 1 1 + 1 1 0 0 0 + 1 1 0 1 0]:∘∘∘ +⍝ Bonus: draws allowed + 'Teams 1 and 3'≢CT[0 0 0 1 + 0 1 1 1 + 0 1 0 1 + 1 0 1 1 + 0 1 0 0]:∘∘∘ + + 'All tests passed.' + } diff --git a/challenge-343/richard-park/apl/ZeroFriend.aplf b/challenge-343/richard-park/apl/ZeroFriend.aplf new file mode 100644 index 0000000000..79f07adbb6 --- /dev/null +++ b/challenge-343/richard-park/apl/ZeroFriend.aplf @@ -0,0 +1,13 @@ + ZeroFriend←{ + + ZF←⌊/| + +⍝ Tests + 1≢ZF 4 2 ¯1 3 ¯2:∘∘∘ + 1≢ZF ¯5 5 ¯3 3 ¯1 1:∘∘∘ + 0≢ZF 7 ¯3 0 2 ¯8:∘∘∘ + 1≢ZF ¯2 ¯5 ¯1 ¯8:∘∘∘ + 1≢ZF ¯2 2 ¯4 4 ¯1 1:∘∘∘ + + 'All tests passed.' + } |