Day4: Comment programs and export text version.HEADmain

16 files changed, 226 insertions, 0 deletions

diff --git a/day4/cnt3bits.TXT b/day4/cnt3bits.TXT
new file mode 100644
index 0000000..3301495
--- /dev/null
+++ b/day4/cnt3bits.TXT
@@ -0,0 +1,18 @@
+\START92\

+\COMMENT=Optimized version of cntbits for v < 8

+\NAME=cnt3bits

+\FILE=day4.cnt3bits.92f

+(v)

+Func

+If v=0 Then

+ Return 0

+ElseIf v=7 Then

+ Return 3

+ElseIf v=1 or v=2 or v=4 Then

+ Return 1

+Else

+ Return 2

+EndIf

+EndFunc

+

+\STOP92\

diff --git a/day4/cntbits.TXT b/day4/cntbits.TXT
new file mode 100644
index 0000000..4360326
--- /dev/null
+++ b/day4/cntbits.TXT
@@ -0,0 +1,18 @@
+\START92\

+\COMMENT=Counts the bits set to 1 in v

+\NAME=cntbits

+\FILE=day4.cntbits.92f

+(v)

+Func

+Local r,t

+0\->\r

+While v>0

+ v/2\->\t

+ floor(t)\->\v

+ If t\!=\v Then

+  r+1\->\r

+ EndIf

+EndWhile

+EndFunc

+

+\STOP92\

diff --git a/day4/day4.cnt3bits.92f b/day4/day4.cnt3bits.92f
index ec83b1f..50eb1d1 100644
--- a/day4/day4.cnt3bits.92f
+++ b/day4/day4.cnt3bits.92f
diff --git a/day4/day4.cntbits.92f b/day4/day4.cntbits.92f
index 8aceb5a..fa75ec4 100644
--- a/day4/day4.cntbits.92f
+++ b/day4/day4.cntbits.92f
diff --git a/day4/day4.getbits.92f b/day4/day4.getbits.92f
index 708905e..917b3f8 100644
--- a/day4/day4.getbits.92f
+++ b/day4/day4.getbits.92f
diff --git a/day4/day4.parse.92f b/day4/day4.parse.92f
index 9fd74ff..8e80fb5 100644
--- a/day4/day4.parse.92f
+++ b/day4/day4.parse.92f
diff --git a/day4/day4.parseln.92f b/day4/day4.parseln.92f
index 743b439..f92f2a1 100644
--- a/day4/day4.parseln.92f
+++ b/day4/day4.parseln.92f
diff --git a/day4/day4.part1.92f b/day4/day4.part1.92f
index 00ca6c9..26f290b 100644
--- a/day4/day4.part1.92f
+++ b/day4/day4.part1.92f
diff --git a/day4/day4.part2.92f b/day4/day4.part2.92f
index be9c8dd..9aaaaf0 100644
--- a/day4/day4.part2.92f
+++ b/day4/day4.part2.92f
diff --git a/day4/day4.zerobit.92f b/day4/day4.zerobit.92f
index 217272f..91e0a08 100644
--- a/day4/day4.zerobit.92f
+++ b/day4/day4.zerobit.92f
diff --git a/day4/getbits.TXT b/day4/getbits.TXT
new file mode 100644
index 0000000..54e483d
--- /dev/null
+++ b/day4/getbits.TXT
@@ -0,0 +1,11 @@
+\START92\

+\COMMENT=Gets l bits starting at p from i

+\NAME=getbits

+\FILE=day4.getbits.92f

+(i,p,l)

+Func

+\(C)\subtract 1 of p, so index starts at 1

+mod(floor(i/2^(p-1)),2^l)

+EndFunc

+

+\STOP92\

diff --git a/day4/parse.TXT b/day4/parse.TXT
new file mode 100644
index 0000000..f496de4
--- /dev/null
+++ b/day4/parse.TXT
@@ -0,0 +1,16 @@
+\START92\

+\COMMENT=Parses input to a list of binary numbers

+\NAME=parse

+\FILE=day4.parse.92f

+(numipts,patt)

+Func

+Local result,i

+

+newList(numipts)\->\result

+For i,1,numipts

+ parseln(expr(patt&string(i)))\->\result[i]

+EndFor

+result

+EndFunc

+

+\STOP92\

diff --git a/day4/parseln.TXT b/day4/parseln.TXT
new file mode 100644
index 0000000..10e6e3b
--- /dev/null
+++ b/day4/parseln.TXT
@@ -0,0 +1,20 @@
+\START92\

+\COMMENT=Converts an input line to a binary number

+\NAME=parseln

+\FILE=day4.parseln.92f

+(s)

+Func

+Local l,i,c,result

+0\->\result

+dim(s)\->\l

+For i,1,l

+ mid(s,l-i+1,1)\->\c

+ result*2\->\result

+ If c="@" Then

+  1+result\->\result

+ EndIf

+EndFor

+result

+EndFunc

+

+\STOP92\

diff --git a/day4/part1.TXT b/day4/part1.TXT
new file mode 100644
index 0000000..31cdfdf
--- /dev/null
+++ b/day4/part1.TXT
@@ -0,0 +1,44 @@
+\START92\

+\COMMENT=Part1 Day4 s: parsed input, w: input width

+\NAME=part1

+\FILE=day4.part1.92f

+(s,w)

+Func

+Local h,i,j,curr,prevs,pc,result

+

+dim(s)\->\h

+If h<1 Then

+ Return 0

+ElseIf h=1 Then

+ Return cntbits(s[1])

+EndIf

+

+0\->\result

+For i,1,w

+ newList(3)\->\prevs

+ false\->\pc

+ For j,1,h

+  getbits(s[j],i-1,3)\->\curr

+  cnt3bits(curr)\->\prevs[mod(j,3)+1]

+  \(C)\'and' is not short circuiting

+  If pc Then

+   If sum(prevs)<5 Then

+    result+1\->\result

+   EndIf

+  EndIf

+  curr=2 or curr=3 or curr=6 or curr=7\->\pc

+ EndFor

+ \(C)\ last line

+ If pc Then

+  0\->\prevs[mod(h+1,3)+1]

+  If sum(prevs)<5 Then

+   result+1\->\result

+  EndIf

+ EndIf

+EndFor

+

+result

+

+EndFunc

+

+\STOP92\

diff --git a/day4/part2.TXT b/day4/part2.TXT
new file mode 100644
index 0000000..33779c5
--- /dev/null
+++ b/day4/part2.TXT
@@ -0,0 +1,89 @@
+\START92\

+\COMMENT=Part2 Day4 s: parsed input, w: input width

+\NAME=part2

+\FILE=day4.part2.92f

+(s,w)

+Func

+Local h,i,j,k,l,curr,prevs,pc,result,stack,stnum

+

+newMat(2,2500)\->\stack

+0\->\stnum

+0\->\result

+dim(s)\->\h

+If h<1 Then

+ Return result

+ElseIf h=1 Then

+ cntbits(s[1])\->\result[dim(result)]

+ Return result

+EndIf

+

+For i,1,w

+ newList(3)\->\prevs

+ false\->\pc

+ For j,1,h

+  getbits(s[j],i-1,3)\->\curr

+  cnt3bits(curr)\->\prevs[mod(j,3)+1]

+  \(C)\'and' is not short circuiting

+  If pc Then

+   If sum(prevs)<5 Then

+    result+1\->\result

+    zerobit(s[j-1],i)\->\s[j-1]

+    stnum+1\->\stnum

+    j-1\->\stack[1,stnum]

+    i\->\stack[2,stnum]

+   EndIf

+  EndIf

+  curr=2 or curr=3 or curr=6 or curr=7\->\pc

+ EndFor

+ \(C)\ last line

+ If pc Then

+  0\->\prevs[mod(h+1,3)+1]

+  If sum(prevs)<5 Then

+   result+1\->\result

+   zerobit(s[h],i)\->\s[h]

+   stnum+1\->\stnum

+   h\->\stack[1,stnum]

+   i\->\stack[2,stnum]

+  EndIf

+ EndIf

+EndFor

+

+

+While stnum>0

+ stack[1,stnum]\->\l

+ stack[2,stnum]\->\k

+ stnum-1\->\stnum

+ For j,max(1,l-1),min(h,l+1)

+  For i,max(1,k-1),min(w,k+1)

+   If i\!=\k or j\!=\l Then

+    getbits(s[j],i-1,3)\->\curr

+    If curr=2 or curr=3 or curr\>=\6 Then

+     cnt3bits(curr)\->\prevs[1]

+     If j>1 Then

+      cnt3bits(getbits(s[j-1],i-1,3))\->\prevs[2]

+     Else

+      0\->\prevs[2]

+     EndIf

+     If j<h Then

+      cnt3bits(getbits(s[j+1],i-1,3))\->\prevs[3]

+     Else

+      0\->\prevs[3]

+     EndIf

+     If sum(prevs)<5 Then

+      result+1\->\result

+      zerobit(s[j],i)\->\s[j]

+      stnum+1\->\stnum

+      j\->\stack[1,stnum]

+      i\->\stack[2,stnum]

+     EndIf

+    EndIf

+   EndIf

+  EndFor

+ EndFor

+EndWhile

+

+result

+

+EndFunc

+

+\STOP92\

diff --git a/day4/zerobit.TXT b/day4/zerobit.TXT
new file mode 100644
index 0000000..628a2a5
--- /dev/null
+++ b/day4/zerobit.TXT
@@ -0,0 +1,10 @@
+\START92\

+\COMMENT=Zeros the pth bit in i (1-based)

+\NAME=zerobit

+\FILE=day4.zerobit.92f

+(i,p)

+Func

+i-2^(p-1)*mod(floor(i/2^(p-1)),2)

+EndFunc

+

+\STOP92\