day4/parse.TXT


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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\