diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-11-14 10:53:41 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-11-14 10:53:41 +0000 |
| commit | 561f7730d87c1bac533f51a0cefc5d0885a51707 (patch) | |
| tree | 4b9d783825da8f0d5e4b1a4848621a00828489b2 | |
| parent | 9d5ef46913c19ae03ee6dbf6c2562a3db3ce0cf6 (diff) | |
| parent | 9ae97232fb1dd431be80be14f00060badb2f8643 (diff) | |
| download | perlweeklychallenge-club-561f7730d87c1bac533f51a0cefc5d0885a51707.tar.gz perlweeklychallenge-club-561f7730d87c1bac533f51a0cefc5d0885a51707.tar.bz2 perlweeklychallenge-club-561f7730d87c1bac533f51a0cefc5d0885a51707.zip | |
Merge pull request #5209 from codereport/master
Week 138
| -rw-r--r-- | challenge-138/conor-hoekstra/ch-01.apl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-138/conor-hoekstra/ch-01.apl b/challenge-138/conor-hoekstra/ch-01.apl new file mode 100644 index 0000000000..a78b3324c0 --- /dev/null +++ b/challenge-138/conor-hoekstra/ch-01.apl @@ -0,0 +1,8 @@ +splitNumber ← { + n ← ≢⍕⍵ ⍝ # of digits + m ← 2(⊥⍣¯1)(¯1∘++⍳)2*¯1+n ⍝ masks + p ← (↓⍉m)⊂¨⊂⍕⍵ ⍝ partitions + ∨/(⍵*0.5)={+/⍎¨⍵}¨p +} + +splitNumber ¨ 81 9801 36 ⍝ 1 1 0 |