Day 5 new array solution is much faster than old iterative one.

jayfoad · Dec 5, 2018 · 1a7fafa · 1a7fafa
1 parent 9b3b265
commit 1a7fafa
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 10 deletions.
diff --git a/p5faster.dyalog b/p5faster.dyalog
@@ -1,7 +1,5 @@
-p←⊃⊃⎕NGET'p5.txt'1
-lcase←819⌶
-b←⌽¨a←⎕A,¨lcase ⎕A
-f←{⍵/⍨(⊢⍱¯1⌽⊢)⊃∨/⍺⍷¨⊂⍵}
-g←(a∘f b∘f)⍣≡
+p←⎕UCS⊃⊃⎕NGET'p5.txt'1
+f←{⍵/⍨{(⍵,0)⍱0,⍵}⍺=2-/⍵}
+g←(32∘f ¯32∘f)⍣≡
 ≢q←g p ⍝ part 1
-⌊/{≢g q~⍵,lcase ⍵}¨⎕A ⍝ part 2
+⌊/{≢g q~⍵,32+⍵}¨⎕UCS ⎕A ⍝ part 2
diff --git a/p5iterative.dyalog b/p5iterative.dyalog