t=Table[RandomImage[1,{224,224},ColorSpace"RGB"],100];net=NetModel["Wolfram ImageIdentify Net V1"];prob[img_]:=net[img,{"Probability",Entity["FictionalCharacter","Yoda"]},TargetDevice->"GPU"];count=0;While[True,If[Mod[count,100]0,Print[prob[parents[[1]]]];Print[parents[[1]]];];parents=Take[Reverse[SortBy[t,prob]],50];children=Table[ImageAdd[ImageCompose[RandomChoice[parents],{RandomChoice[parents],0.5}],RandomImage[{-.5,.5},{224,224},ColorSpace"RGB"]],50];t=Join[parents,children];count=count+1;];
0.0000398772
0.000263551
0.246694
0.997088
0.999977
Out[]=
$Aborted
In[]:=
ImageIdentify
Out[]=