In[]:=
Function[net,With[{width=10,col=<|0->colorFun[-1],1->colorFun[1]|>},​​Graph[Flatten@Join[​​Table[i->(width+j),{i,width},{j,width}],​​Table[(width+i)->(1+2width+j),{i,width},{j,width}]​​]​​,GraphLayout->"LayeredDigraphEmbedding",EdgeStyle->Flatten@Join[​​Table[(i->(width+j))->Directive[col[net[[1,"Weights",i,j]]],Thick],{i,width},{j,width}],​​Table[((width+i)->(1+2width+j))->Directive[col[net[[2,"Weights",i,j]]],Thick],{i,width},{j,width}]​​],VertexStyle->LightGray​​]​​]]/@First/@First/@SplitBy[res,Last]
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,

In[]:=
res[[50]]
Out[]=
{{Weights{{0,1,0,1,0,0,0,0,0,1},{0,1,1,0,1,1,0,0,1,0},{1,1,1,0,1,1,1,0,0,0},{0,1,1,1,1,0,1,0,0,1},{0,1,0,1,1,1,1,0,0,1},{0,1,0,0,1,1,1,0,1,1},{0,0,1,1,1,1,0,0,1,1},{1,0,0,1,0,1,1,1,1,1},{0,0,1,0,0,1,1,1,0,1},{0,1,1,1,0,1,0,1,0,0}},Biases{0,1,1,1,1,1,0,0,0,1},Weights{{0,1,1,0,0,0,0,1,1,0},{0,0,1,1,0,0,1,0,1,1},{1,0,1,0,1,0,1,1,0,1},{0,0,1,1,1,1,0,1,0,1},{1,1,0,1,1,1,1,1,0,0},{1,0,1,1,0,0,0,0,1,0},{0,1,0,0,0,0,0,1,1,1},{1,1,1,1,1,1,0,1,1,0},{0,0,0,0,1,1,1,1,0,1},{1,1,1,1,0,0,0,0,0,1}},Biases{0,1,0,0,1,0,0,1,0,0}},26}
In[]:=
First[%]
Out[]=
{Weights{{0,1,0,1,0,0,0,0,0,1},{0,1,1,0,1,1,0,0,1,0},{1,1,1,0,1,1,1,0,0,0},{0,1,1,1,1,0,1,0,0,1},{0,1,0,1,1,1,1,0,0,1},{0,1,0,0,1,1,1,0,1,1},{0,0,1,1,1,1,0,0,1,1},{1,0,0,1,0,1,1,1,1,1},{0,0,1,0,0,1,1,1,0,1},{0,1,1,1,0,1,0,1,0,0}},Biases{0,1,1,1,1,1,0,0,0,1},Weights{{0,1,1,0,0,0,0,1,1,0},{0,0,1,1,0,0,1,0,1,1},{1,0,1,0,1,0,1,1,0,1},{0,0,1,1,1,1,0,1,0,1},{1,1,0,1,1,1,1,1,0,0},{1,0,1,1,0,0,0,0,1,0},{0,1,0,0,0,0,0,1,1,1},{1,1,1,1,1,1,0,1,1,0},{0,0,0,0,1,1,1,1,0,1},{1,1,1,1,0,0,0,0,0,1}},Biases{0,1,0,0,1,0,0,1,0,0}}
In[]:=
ArrayPlotTranspose[Flatten[#Weights&/@First[#]]&/@res],AspectRatio->14,Frame->None,ColorRules->0->
,1->

Out[]=
In[]:=
ArrayPlotTranspose[Flatten[#Weights&/@First[#]]&/@res],AspectRatio->14,Frame->None,ColorRules->0->Lighter
,1->Darker
,Frame->True,FrameTicks->{Range[0,1000,100],Range[0,200,10]}
Out[]=
In[]:=
{{0,1,0,1,0,0,0,0,0,1},{0,1,1,0,1,1,0,0,1,0},{1,1,1,0,1,1,1,0,0,0},{0,1,1,1,1,0,1,0,0,1},{0,1,0,1,1,1,1,0,0,1},{0,1,0,0,1,1,1,0,1,1},{0,0,1,1,1,1,0,0,1,1},{1,0,0,1,0,1,1,1,1,1},{0,0,1,0,0,1,1,1,0,1},{0,1,1,1,0,1,0,1,0,0}}//Length
Out[]=
10
In[]:=
Length[res]
Out[]=
1001
In[]:=
Length[{0,1,0,1,0,0,0,0,0,1}]
Out[]=
10
ListStepPlot[]
In[]:=
Catenate[%]
Out[]=
{{0,1,0,1,0,0,0,0,0,1},{0,1,1,0,1,1,0,0,1,0},{1,1,1,0,1,1,1,0,0,0},{0,1,1,1,1,0,1,0,0,1},{0,1,0,1,1,1,1,0,0,1},{0,1,0,0,1,1,1,0,1,1},{0,0,1,1,1,1,0,0,1,1},{1,0,0,1,0,1,1,1,1,1},{0,0,1,0,0,1,1,1,0,1},{0,1,1,1,0,1,0,1,0,0},{0,1,1,0,0,0,0,1,1,0},{0,0,1,1,0,0,1,0,1,1},{1,0,1,0,1,0,1,1,0,1},{0,0,1,1,1,1,0,1,0,1},{1,1,0,1,1,1,1,1,0,0},{1,0,1,1,0,0,0,0,1,0},{0,1,0,0,0,0,0,1,1,1},{1,1,1,1,1,1,0,1,1,0},{0,0,0,0,1,1,1,1,0,1},{1,1,1,1,0,0,0,0,0,1}}