From d9f27956285dc90732a992f53d4d3d563846f000 Mon Sep 17 00:00:00 2001
From: RikedyP <rikedyp@gmail.com>
Date: Wed, 22 Oct 2025 16:03:34 +0100
Subject: week 343 APL

---
 challenge-343/richard-park/apl/ChampionTeam.aplf | 37 ++++++++++++++++++++++++
 challenge-343/richard-park/apl/ZeroFriend.aplf   | 13 +++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 challenge-343/richard-park/apl/ChampionTeam.aplf
 create mode 100644 challenge-343/richard-park/apl/ZeroFriend.aplf

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.'
+ }
-- 
cgit