diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2021-11-13 23:26:13 -0500 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2021-11-13 23:26:13 -0500 |
| commit | 9ae97232fb1dd431be80be14f00060badb2f8643 (patch) | |
| tree | c596a24985ff4bbc48329a0f2b8c1076ae8b8f63 | |
| parent | 901897526036bcf8cf8c270cd624c20a5df5bf9c (diff) | |
| download | perlweeklychallenge-club-9ae97232fb1dd431be80be14f00060badb2f8643.tar.gz perlweeklychallenge-club-9ae97232fb1dd431be80be14f00060badb2f8643.tar.bz2 perlweeklychallenge-club-9ae97232fb1dd431be80be14f00060badb2f8643.zip | |
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 |