\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\