diff options
| -rw-r--r-- | challenge-325/hvukman/k/325_p1.k | 21 |
1 files changed, 21 insertions, 0 deletions
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]] |