From 6911a1f9bfd77b09eb73465f954f59481c82cc8d Mon Sep 17 00:00:00 2001
From: HVukman <peterslopp@googlemail.com>
Date: Sun, 25 May 2025 09:14:26 +0200
Subject: Added K

---
 challenge-322/hvukman/k/322_p1.k | 27 +++++++++++++++++++++++++++
 challenge-322/hvukman/k/322_p2.k | 11 +++++++++++
 2 files changed, 38 insertions(+)
 create mode 100644 challenge-322/hvukman/k/322_p1.k
 create mode 100644 challenge-322/hvukman/k/322_p2.k

diff --git a/challenge-322/hvukman/k/322_p1.k b/challenge-322/hvukman/k/322_p1.k
new file mode 100644
index 0000000000..21d7c63904
--- /dev/null
+++ b/challenge-322/hvukman/k/322_p1.k
@@ -0,0 +1,27 @@
+sol::""
+dummy::""
+inp:"ABC-D-E-F"
+i:3
+cool:(|"-"\inp)[&0<#'|"-"\inp]
+first:(|cool)[0]
+cool:1_|cool
+nooutput: {dummy::dummy,x;$[(#dummy)<i;;[sol::sol,"-",dummy;dummy::""]]}'cool
+first,sol
+
+
+sol::""
+dummy::""
+inp:"A-BC-D-E"
+i:2
+cool:(|"-"\inp)[&0<#'|"-"\inp]
+first:(|cool)[0]
+cool:1_|cool
+nooutput: {dummy::dummy,x;$[(#dummy)<i;;[sol::sol,"-",dummy;dummy::""]]}'cool
+first,sol
+
+sol::""
+dummy::""
+i:4
+cool:(|"-"\"-A-B-CD-E")[&0<#'|"-"\"-A-B-CD-E"]
+nooutput: {dummy::dummy,x;$[(#dummy)<i;;[sol::sol,|dummy;dummy::""]]}'cool
+dummy,"-",sol
diff --git a/challenge-322/hvukman/k/322_p2.k b/challenge-322/hvukman/k/322_p2.k
new file mode 100644
index 0000000000..0c73e25e7f
--- /dev/null
+++ b/challenge-322/hvukman/k/322_p2.k
@@ -0,0 +1,11 @@
+inp: 55 22 44 33
+sorted:inp[<inp]
+1+{(|x)[0]}'{&x=1}'{x=sorted}'inp
+
+inp: 10 10 10
+sorted:inp[<inp]
+1+{(x)[0]}'{&x=1}'{x=sorted}'inp
+
+inp:5 1 1 4 3
+sorted:inp[<inp]
+{(|x)[0]}'{&x=1}'{x=sorted}'inp
-- 
cgit