blob: 4f4432538b997aa91ff28dc87a2fd17621221768 (plain)

ofs	hex dump	ascii
0000	2a 2a 54 49 39 32 2a 2a 01 00 64 61 79 34 00 00 00 00 53 69 6e 67 6c 65 20 66 69 6c 65 20 64 61	**TI92**..day4....Single.file.da
0020	74 65 64 20 4d 6f 6e 20 44 65 63 20 31 35 20 32 31 3a 30 34 3a 30 32 20 32 30 01 00 52 00 00 00	ted.Mon.Dec.15.21:04:02.20..R...
0040	70 32 69 74 00 00 00 00 13 00 00 00 ff 02 00 00 a5 5a 00 00 00 00 02 a5 28 73 2c 77 29 0d 46 75	p2it.............Z......(s,w).Fu
0060	6e 63 0d 4c 6f 63 61 6c 20 68 2c 69 2c 6a 2c 63 75 72 72 2c 70 72 65 76 73 2c 70 63 2c 72 65 73	nc.Local.h,i,j,curr,prevs,pc,res
0080	75 6c 74 0d 0d 61 75 67 6d 65 6e 74 28 73 2c 7b 30 7d 29 16 72 65 73 75 6c 74 0d 0d 64 69 6d 28	ult..augment(s,{0}).result..dim(
00a0	73 29 16 68 0d 49 66 20 68 3c 31 20 54 68 65 6e 0d 20 52 65 74 75 72 6e 20 72 65 73 75 6c 74 0d	s).h.If.h<1.Then..Return.result.
00c0	45 6c 73 65 49 66 20 68 3d 31 20 54 68 65 6e 0d 20 63 6e 74 62 69 74 73 28 73 5b 31 5d 29 16 72	ElseIf.h=1.Then..cntbits(s[1]).r
00e0	65 73 75 6c 74 5b 64 69 6d 28 72 65 73 75 6c 74 29 5d 0d 20 52 65 74 75 72 6e 20 72 65 73 75 6c	esult[dim(result)]..Return.resul
0100	74 0d 45 6e 64 49 66 0d 0d 46 6f 72 20 69 2c 31 2c 77 0d 20 6e 65 77 4c 69 73 74 28 33 29 16 70	t.EndIf..For.i,1,w..newList(3).p
0120	72 65 76 73 0d 20 66 61 6c 73 65 16 70 63 0d 20 46 6f 72 20 6a 2c 31 2c 68 0d 20 20 67 65 74 62	revs..false.pc..For.j,1,h...getb
0140	69 74 73 28 73 5b 6a 5d 2c 69 2d 31 2c 33 29 16 63 75 72 72 0d 20 20 63 6e 74 33 62 69 74 73 28	its(s[j],i-1,3).curr...cnt3bits(
0160	63 75 72 72 29 16 70 72 65 76 73 5b 6d 6f 64 28 6a 2c 33 29 2b 31 5d 0d 20 20 a9 27 61 6e 64 27	curr).prevs[mod(j,3)+1]....'and'
0180	20 69 73 20 6e 6f 74 20 73 68 6f 72 74 20 63 69 72 63 75 69 74 69 6e 67 0d 20 20 49 66 20 70 63	.is.not.short.circuiting...If.pc
01a0	20 54 68 65 6e 0d 20 20 20 49 66 20 73 75 6d 28 70 72 65 76 73 29 3c 35 20 54 68 65 6e 0d 20 20	.Then....If.sum(prevs)<5.Then...
01c0	20 20 72 65 73 75 6c 74 5b 68 2b 31 5d 2b 31 16 72 65 73 75 6c 74 5b 68 2b 31 5d 0d 20 20 20 20	..result[h+1]+1.result[h+1].....
01e0	7a 65 72 6f 62 69 74 28 72 65 73 75 6c 74 5b 6a 2d 31 5d 2c 69 29 16 72 65 73 75 6c 74 5b 6a 2d	zerobit(result[j-1],i).result[j-
0200	31 5d 0d 20 20 20 45 6e 64 49 66 0d 20 20 45 6e 64 49 66 0d 20 20 63 75 72 72 3d 32 20 6f 72 20	1]....EndIf...EndIf...curr=2.or.
0220	63 75 72 72 3d 33 20 6f 72 20 63 75 72 72 3d 36 20 6f 72 20 63 75 72 72 3d 37 16 70 63 0d 20 45	curr=3.or.curr=6.or.curr=7.pc..E
0240	6e 64 46 6f 72 0d 20 a9 20 6c 61 73 74 20 6c 69 6e 65 0d 20 49 66 20 70 63 20 54 68 65 6e 0d 20	ndFor....last.line..If.pc.Then..
0260	20 30 16 70 72 65 76 73 5b 6d 6f 64 28 68 2b 31 2c 33 29 2b 31 5d 0d 20 20 49 66 20 73 75 6d 28	.0.prevs[mod(h+1,3)+1]...If.sum(
0280	70 72 65 76 73 29 3c 35 20 54 68 65 6e 0d 20 20 20 72 65 73 75 6c 74 5b 68 2b 31 5d 2b 31 16 72	prevs)<5.Then....result[h+1]+1.r
02a0	65 73 75 6c 74 5b 68 2b 31 5d 0d 20 20 20 7a 65 72 6f 62 69 74 28 72 65 73 75 6c 74 5b 68 5d 2c	esult[h+1]....zerobit(result[h],
02c0	69 29 16 72 65 73 75 6c 74 5b 68 5d 0d 20 20 45 6e 64 49 66 0d 20 45 6e 64 49 66 0d 45 6e 64 46	i).result[h]...EndIf..EndIf.EndF
02e0	6f 72 0d 0d 72 65 73 75 6c 74 0d 0d 45 6e 64 46 75 6e 63 00 00 b0 17 e4 e5 00 00 08 dc 56 d7	or..result..EndFunc..........V.