diff options
| -rw-r--r-- | challenge-322/hvukman/k/322_p1.k | 27 | ||||
| -rw-r--r-- | challenge-322/hvukman/k/322_p2.k | 11 |
2 files changed, 38 insertions, 0 deletions
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 |