From c845e581c4b4bf54f3e0ef06604cd494d50cb859 Mon Sep 17 00:00:00 2001
From: HVukman <peterslopp@googlemail.com>
Date: Sun, 15 Jun 2025 09:35:05 +0200
Subject: Add files via upload

---
 challenge-325/hvukman/k/325_p1.k | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 challenge-325/hvukman/k/325_p1.k

diff --git a/challenge-325/hvukman/k/325_p1.k b/challenge-325/hvukman/k/325_p1.k
new file mode 100644
index 0000000000..b1895868ac
--- /dev/null
+++ b/challenge-325/hvukman/k/325_p1.k
@@ -0,0 +1,21 @@
+split: {(&~=':x)_x}
+containsone: {(+/&"1"=x)>0}
+
+bin: 0 1 1 0 1 1 1
+strbin: ,//$'bin
+newbin: split strbin
+sol:$[(+/(containsone'newbin))=0N;0N; (|<newbin@&(containsone'newbin))[0]]
+$[sol=0N;0N;#(newbin@&(containsone'newbin))[sol]]
+
+
+bin: 0 0 0 0
+strbin: ,//$'bin
+newbin: split strbin
+sol:$[(+/(containsone'newbin))=0N;0N; (|<newbin@&(containsone'newbin))[0]]
+$[sol=0N;0N;#(newbin@&(containsone'newbin))[sol]]
+
+bin: 1 0 1 0 1 1
+strbin: ,//$'bin
+newbin: split strbin
+sol:$[(+/(containsone'newbin))=0N;0N; (|<newbin@&(containsone'newbin))[0]]
+$[sol=0N;0N;#(newbin@&(containsone'newbin))[sol]]
-- 
cgit