diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-06-15 09:35:05 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-06-15 09:35:05 +0200 |
| commit | c845e581c4b4bf54f3e0ef06604cd494d50cb859 (patch) | |
| tree | 115bf2878f633c3834fcd92d2c216c5b1f0db8d7 | |
| parent | 524816db225e920442b51674f7c622314892ddc0 (diff) | |
| download | perlweeklychallenge-club-c845e581c4b4bf54f3e0ef06604cd494d50cb859.tar.gz perlweeklychallenge-club-c845e581c4b4bf54f3e0ef06604cd494d50cb859.tar.bz2 perlweeklychallenge-club-c845e581c4b4bf54f3e0ef06604cd494d50cb859.zip | |
Add files via upload
| -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]] |