{"id":174657,"date":"2013-05-31T07:00:03","date_gmt":"2013-05-31T03:00:03","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=174657"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=174657","title":{"rendered":"Bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u044b \u0432 Cach\u00e9 \u043d\u0430 \u0433\u043b\u043e\u0431\u0430\u043b\u0430\u0445<\/span>"},"content":{"rendered":"
\t\u0412 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e\u0439 \u0421\u0423\u0411\u0414 Cach\u00e9 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u044e\u0442\u0441\u044f bitmap- \u0438 bitslice-\u0438\u043d\u0434\u0435\u043a\u0441\u044b. \u0418\u0445 \u043e\u0447\u0435\u043d\u044c \u043f\u0440\u043e\u0441\u0442\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0432 \u043a\u043b\u0430\u0441\u0441\u0430\u0445 Cach\u00e9: \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0432 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u0438\u043d\u0434\u0435\u043a\u0441\u0430 \u0443\u043a\u0430\u0437\u0430\u0442\u044c \u043f\u0440\u0438\u0437\u043d\u0430\u043a Bitmap<\/a> \u0438\u043b\u0438 Bitslice<\/a>, \u0438 \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 SQL-\u0437\u0430\u043f\u0440\u043e\u0441\u043e\u0432 \u0443\u043b\u0443\u0447\u0448\u0430\u0435\u0442\u0441\u044f \u043a\u0430\u0440\u0434\u0438\u043d\u0430\u043b\u044c\u043d\u043e. \u041d\u043e \u043a\u0430\u043a \u044d\u0442\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442?
\u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u0440\u0430\u0441\u043a\u0440\u044b\u0432\u0430\u0435\u0442\u0441\u044f, \u043a\u0430\u043a \u0443\u0441\u0442\u0440\u043e\u0435\u043d\u044b bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u044b, \u043a\u0430\u043a \u0441\u043e\u0437\u0434\u0430\u0442\u044c bitmap-\u0438\u043d\u0434\u0435\u043a\u0441 \u043d\u0430 \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u043b\u044c\u043d\u043e\u0439 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0435 \u0433\u043b\u043e\u0431\u0430\u043b\u043e\u0432, \u043a\u0430\u043a \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0431\u0438\u0442\u043e\u0432\u043e\u0439 \u043b\u043e\u0433\u0438\u043a\u0438 \u0438 \u043a\u0430\u043a \u044d\u0444\u0444\u0435\u043a\u0442\u0438\u0432\u043d\u043e \u0438\u0445 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043f\u0440\u0438 NoSQL \u0440\u0430\u0431\u043e\u0442\u0435 \u0432 Cach\u00e9.
<\/a>
\u0415\u0449\u0451 \u0441 \u0434\u043e\u043e\u0431\u044a\u0435\u043a\u0442\u043d\u044b\u0445 \u0432\u0440\u0435\u043c\u0451\u043d \u043f\u0440\u0438 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0439 \u0434\u043b\u044f \u0431\u044b\u0441\u0442\u0440\u043e\u0433\u043e \u043f\u043e\u0438\u0441\u043a\u0430 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u0443\u044e\u0449\u0438\u0445 \u0437\u0430\u043f\u0438\u0441\u0435\u0439 \u0432 \u0433\u043b\u043e\u0431\u0430\u043b\u0430\u0445 \u0447\u0430\u0449\u0435 \u0432\u0441\u0435\u0433\u043e \u0441\u0442\u0440\u043e\u0438\u043b\u0438\u0441\u044c \u0438\u043d\u0434\u0435\u043a\u0441\u044b \u0432\u0438\u0434\u0430<\/p>\n

set <\/font>^Index(<\/font>"Property"<\/font>,<\/font>value<\/font>,<\/font>id<\/font>)=<\/font>""<\/font><\/p>\n

\u0422\u0430\u043a\u0438\u0435 \u0438\u043d\u0434\u0435\u043a\u0441\u044b \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u044e\u0442 \u043b\u0435\u0433\u043a\u043e \u0438 \u0431\u044b\u0441\u0442\u0440\u043e \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c \u0437\u0430\u043f\u0438\u0441\u0438, \u0434\u043b\u044f \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u0443\u044e\u0449\u0435\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e \u0438\u043c\u0435\u0435\u0442 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435:<\/p>\n

set <\/font>id<\/font>=<\/font>"" <\/font>for  set <\/font>id<\/font>=<\/font>$order<\/font>(^Index(<\/font>"Property"<\/font>,<\/font>value<\/font>,<\/font>id<\/font>)) <\/font>quit<\/font>:<\/font>id<\/font>=<\/font>""  <\/font>write <\/font>id<\/font>,!<\/font><\/p>\n

\u0432\u044b\u0434\u0430\u0441\u0442 \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440\u044b \u0432\u0441\u0435\u0445 \u0437\u0430\u043f\u0438\u0441\u0435\u0439, \u0443 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u00abProperty\u00bb \u0440\u0430\u0432\u043d\u043e value, \u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u0438\u0435 \u0437\u0430\u043f\u0438\u0441\u0435\u0439 \u0441 \u0434\u0430\u043d\u043d\u044b\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u043c\u043e\u0436\u043d\u043e, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0442\u0430\u043a\u043e\u0433\u043e \u043a\u043e\u0434\u0430:<\/p>\n

if $data<\/font>(^Index(<\/font>"Property"<\/font>,<\/font>value<\/font>))>1 <\/font>{
<\/font>  write <\/font>"id "<\/font>_<\/font>$order<\/font>(^Index(<\/font>"Property"<\/font>,<\/font>value<\/font>,<\/font>""<\/font>))_<\/font>" with " <\/font>_<\/font>value<\/font>_<\/font>" exists" <\/font>}
<\/font>else <\/font>{
<\/font>  write <\/font>"records with "<\/font>_<\/font>value<\/font>_<\/font>" do not exist" <\/font>}<\/font><\/p>\n

\u041d\u0435\u0442\u0440\u0443\u0434\u043d\u043e \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u0442\u044c \u0438 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0434\u043b\u044f \u044d\u0444\u0444\u0435\u043a\u0442\u0438\u0432\u043d\u043e\u0433\u043e \u043f\u043e\u0438\u0441\u043a\u0430 \u0437\u0430\u043f\u0438\u0441\u0435\u0439, \u0443\u0434\u043e\u0432\u043b\u0435\u0442\u0432\u043e\u0440\u044f\u044e\u0449\u0438\u0445 \u0441\u0440\u0430\u0437\u0443 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u043c \u0443\u0441\u043b\u043e\u0432\u0438\u044f\u043c, \u043e\u0431\u044a\u0435\u0434\u0438\u043d\u0451\u043d\u043d\u044b\u043c \u043b\u043e\u0433\u0438\u043a\u043e\u0439 \u00ab\u0418\u00bb. \u041d\u043e \u0434\u043b\u044f \u0431\u043e\u043b\u0435\u0435 \u0441\u043b\u043e\u0436\u043d\u044b\u0445 \u0437\u0430\u043f\u0440\u043e\u0441\u043e\u0432 \u0442\u0440\u0435\u0431\u043e\u0432\u0430\u043b\u043e\u0441\u044c \u043b\u0438\u0431\u043e \u0440\u0430\u0437\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0442\u044c (\u0438 \u043a\u0430\u0436\u0434\u044b\u0439 \u0440\u0430\u0437 \u043e\u0442\u043b\u0430\u0436\u0438\u0432\u0430\u0442\u044c) \u0431\u043e\u043b\u0435\u0435 \u0441\u043b\u043e\u0436\u043d\u044b\u0439 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c, \u043b\u0438\u0431\u043e \u043e\u0442\u043a\u0430\u0437\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0438\u043d\u0434\u0435\u043a\u0441\u043e\u0432 \u0432 \u043f\u043e\u043b\u044c\u0437\u0443 \u043f\u0440\u044f\u043c\u043e\u0433\u043e \u043f\u0435\u0440\u0435\u0431\u043e\u0440\u0430 \u0432\u0441\u0435\u0445 \u0437\u0430\u043f\u0438\u0441\u0435\u0439 \u0432 \u0431\u0430\u0437\u0435.<\/p>\n

\u0420\u0435\u0432\u043e\u043b\u044e\u0446\u0438\u043e\u043d\u043d\u044b\u043c \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0435\u043c \u0441\u0442\u0430\u043b\u043e \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u0432 Cach\u00e9 \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u044b\u0445 \u0431\u0438\u0442\u043e\u0432\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439<\/a>: $bit<\/b>(), $bitlogic<\/b>(), $bitfind<\/b>() \u0438 $bitcount<\/b>(). \u041f\u043e\u044f\u0432\u0438\u043b\u0430\u0441\u044c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0441\u0442\u0440\u043e\u0438\u0442\u044c bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u044b, \u0432 \u043f\u0440\u043e\u0441\u0442\u0435\u0439\u0448\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u2014 \u0432\u0438\u0434\u0430<\/p>\n

set $bit<\/font>(^Index(<\/font>"Property"<\/font>,<\/font>value<\/font>),<\/font>id<\/font>)=1<\/font><\/p>\n

\u0420\u0430\u0437\u0443\u043c\u0435\u0435\u0442\u0441\u044f, \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u0434\u043b\u0438\u043d\u0430 \u0431\u0438\u0442\u043e\u0432\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u0430 256K, \u0432 \u0440\u0435\u0430\u043b\u044c\u043d\u044b\u0445 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f\u0445 bitmap-\u0438\u043d\u0434\u0435\u043a\u0441 \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0440\u0430\u0437\u043c\u0435\u0449\u0430\u0442\u044c \u043d\u0435 \u0432 \u043e\u0434\u043d\u043e\u0439 \u0431\u0438\u0442\u043e\u0432\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0435, \u0430 \u0432 \u043c\u0430\u0441\u0441\u0438\u0432\u0435.
\u0424\u0443\u043d\u043a\u0446\u0438\u0438 $bitlogic() \u0434\u0430\u044e\u0442 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u043b\u0435\u0433\u043a\u043e \u0438\u0437 \u0442\u0430\u043a\u0438\u0445 \u0438\u043d\u0434\u0435\u043a\u0441\u043e\u0432 \u0441\u0444\u043e\u0440\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0438\u0440\u0443\u044e\u0449\u0438\u0439 bitmap-\u0438\u043d\u0434\u0435\u043a\u0441, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u0432\u044b\u0431\u043e\u0440\u043a\u0435 \u0437\u0430\u043f\u0438\u0441\u0435\u0439, \u0443\u0434\u043e\u0432\u043b\u0435\u0442\u0432\u043e\u0440\u044f\u044e\u0449\u0438\u0445 \u043b\u044e\u0431\u043e\u043c\u0443, \u0441\u043a\u043e\u043b\u044c \u0443\u0433\u043e\u0434\u043d\u043e \u0437\u0430\u043a\u043e\u0432\u044b\u0440\u0438\u0441\u0442\u043e\u043c\u0443 \u0437\u0430\u043f\u0440\u043e\u0441\u0443, $bitcount() \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0437\u0430\u043f\u0438\u0441\u0435\u0439, \u0432\u043e\u0448\u0435\u0434\u0448\u0438\u0445 \u0432 \u0432\u044b\u0431\u043e\u0440\u043a\u0443, \u0430 $bitfind() \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0438\u0432\u0430\u0435\u0442 \u0443\u0434\u043e\u0431\u043d\u0443\u044e \u043d\u0430\u0432\u0438\u0433\u0430\u0446\u0438\u044e \u043f\u043e \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0439 \u0432\u044b\u0431\u043e\u0440\u043a\u0435.<\/p>\n

\u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0441\u043e\u0431\u0440\u0430\u0442\u044c \u0437\u0430\u043f\u0438\u0441\u0438, \u0434\u043b\u044f \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e \u201cPr1\u201d \u0438\u043c\u0435\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u201cA\u201d \u0438\u043b\u0438 \u201cB\u201d, \u0430 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e \u00abPr2\u00bb \u2014 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u00abC\u00bb:<\/p>\n

set <\/font>^mtemp.resbitmap=<\/font>$bitlogic<\/font>(^Index(<\/font>"Pr1"<\/font>,<\/font>"A"<\/font>)|^Index(<\/font>"Pr1"<\/font>,<\/font>"B"<\/font>))
<\/font>set <\/font>^mtemp.resbitmap=<\/font>$bitlogic<\/font>(^mtemp.resbitmap&^Index(<\/font>"Pr2"<\/font>,<\/font>"C"<\/font>))<\/font><\/p>\n

\u0438 \u0432\u044b\u0434\u0430\u0442\u044c \u0438\u0445 id:<\/p>\n

if <\/font>‘<\/font>$bitcount<\/font>(^mtemp.resbitmap) <\/font>write <\/font>"No records found"<\/font>,!
<\/font>else  set <\/font>id<\/font>=0 <\/font>for  set <\/font>id<\/font>=<\/font>$bitfind<\/font>(^mtemp.resbitmap,1,<\/font>id<\/font>) <\/font>quit<\/font>:’<\/font>id  <\/font>write <\/font>id<\/font>,!<\/font><\/p>\n

\u042d\u0442\u043e \u0434\u0430\u043b\u0435\u043a\u043e \u043d\u0435 \u0432\u0441\u0451, \u0447\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0432\u044b\u0436\u0430\u0442\u044c \u0438\u0437 \u0431\u0438\u0442\u043e\u0432\u044b\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0432 Cach\u00e9. \u0414\u043b\u044f \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0433\u0440\u0443\u043f\u043f\u0438\u0440\u0443\u044e\u0449\u0435\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 (\u0441\u0443\u043c\u043c\u044b, \u0441\u0440\u0435\u0434\u043d\u0435\u0433\u043e \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e, \u043c\u0438\u043d\u0438\u043c\u0443\u043c\u0430, \u043c\u0430\u043a\u0441\u0438\u043c\u0443\u043c\u0430) \u0432\u0441\u0451 \u0440\u0430\u0432\u043d\u043e \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u043b\u043e\u0441\u044c \u0432 \u0446\u0438\u043a\u043b\u0435 \u043f\u0435\u0440\u0435\u0431\u0438\u0440\u0430\u0442\u044c \u0432\u0441\u0435 \u0437\u0430\u043f\u0438\u0441\u0438, \u0432\u043e\u0448\u0435\u0434\u0448\u0438\u0435 \u0432 \u0432\u044b\u0431\u043e\u0440\u043a\u0443, \u0447\u0442\u043e \u043f\u0440\u0438 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e\u043c \u043e\u0431\u044a\u0451\u043c\u0435 \u0432\u044b\u0431\u043e\u0440\u043a\u0438 \u0431\u044b\u043b\u043e \u043d\u0435 \u0431\u044b\u0441\u0442\u0440\u043e. \u041d\u043e \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0430\u044f \u043c\u043e\u0434\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u044f \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u043e\u0432 \u0437\u043d\u0430\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0443\u0441\u043a\u043e\u0440\u044f\u0435\u0442 \u0438 \u044d\u0442\u0443 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u2014 \u0432 \u0441\u043b\u0443\u0447\u0430\u0435, \u0435\u0441\u043b\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0446\u0435\u043b\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u044b\u043c\u0438 \u0438\u043b\u0438 \u0441 \u0444\u0438\u043a\u0441\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0439 \u0434\u0435\u0441\u044f\u0442\u0438\u0447\u043d\u043e\u0439 \u0442\u043e\u0447\u043a\u043e\u0439.
\u0421\u0443\u0442\u044c \u044d\u0442\u043e\u0439 \u043c\u043e\u0434\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u0438 \u2014 \u043f\u043e\u0441\u0442\u0440\u043e\u0435\u043d\u0438\u0435 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0445 bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u043e\u0432 \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0431\u0438\u0442\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430. \u0422\u0430\u043a\u0438\u0435 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 \u043d\u0430\u0437\u044b\u0432\u0430\u044e\u0442\u0441\u044f \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441\u0430\u043c\u0438 (bit-slices):<\/p>\n

set $bit<\/font>(^Index(<\/font>"Property"<\/font>,<\/font>N<\/font>),<\/font>id<\/font>)=<\/font>NthBitOfValue<\/font><\/p>\n

\u0412 \u0440\u0435\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u0438, \u043e\u043f\u044f\u0442\u044c \u0436\u0435, \u0432\u043c\u0435\u0441\u0442\u043e \u0431\u0438\u0442\u043e\u0432\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043c\u0430\u0441\u0441\u0438\u0432.
\u041f\u0440\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0438 bitslices \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0443\u0441\u043b\u043e\u0436\u043d\u044f\u0435\u0442\u0441\u044f, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043f\u043e\u0438\u0441\u043a \u043f\u043e \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u0438\u044f\u043c \u00ab\u0431\u043e\u043b\u044c\u0448\u0435\u00bb \u0438\u043b\u0438 \u00ab\u043c\u0435\u043d\u044c\u0448\u0435\u00bb, \u043d\u043e \u0432\u044b\u0438\u0433\u0440\u044b\u0448 \u043f\u0440\u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0438 \u0433\u0440\u0443\u043f\u043f\u0438\u0440\u0443\u044e\u0449\u0438\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u0435\u0440\u0435\u0432\u0435\u0448\u0438\u0432\u0430\u0435\u0442 \u0434\u0430\u043d\u043d\u043e\u0435 \u043d\u0435\u0443\u0434\u043e\u0431\u0441\u0442\u0432\u043e. \u0412 \u0441\u0430\u043c\u043e\u043c \u0434\u0435\u043b\u0435, \u0434\u043b\u044f \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f \u0441\u0443\u043c\u043c\u044b \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u0443\u044e\u0449\u0435\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u0434\u043b\u044f \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u044b\u0445 \u0437\u0430\u043f\u0438\u0441\u0435\u0439 \u0443\u0436\u0435 \u043d\u0435 \u043d\u0443\u0436\u0435\u043d \u0446\u0438\u043a\u043b \u043f\u043e \u0437\u0430\u043f\u0438\u0441\u044f\u043c. \u0414\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043b\u0438\u0448\u044c \u043f\u0440\u043e\u0441\u0443\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0441 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u043c\u0438 \u0432\u0435\u0441\u0430\u043c\u0438 $bitcount() \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0438\u0440\u0443\u044e\u0449\u0435\u043c bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u0435 \u0434\u043b\u044f \u0432\u0441\u0435\u0445 \u0431\u0438\u0442\u043e\u0432 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u0443\u044e\u0449\u0435\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430. \u041f\u0440\u0438 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e\u043c \u043e\u0431\u044a\u0451\u043c\u0435 \u0432\u044b\u0431\u043e\u0440\u043a\u0438 \u0432\u044b\u0438\u0433\u0440\u044b\u0448 \u0432 \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u0438 \u043c\u043e\u0436\u043d\u043e \u0431\u0435\u0437 \u043f\u0440\u0435\u0443\u0432\u0435\u043b\u0438\u0447\u0435\u043d\u0438\u044f \u043d\u0430\u0437\u0432\u0430\u0442\u044c \u043f\u043e\u0442\u0440\u044f\u0441\u0430\u044e\u0449\u0438\u043c.<\/p>\n

\u041a\u043e\u0434 \u043a\u043b\u0430\u0441\u0441\u0430<\/b><\/p>\n
\/\/\/ \u041d\u0430\u0431\u043e\u0440 \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0438 \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0431\u0438\u0442\u043c\u0430\u043f \u0438 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430\u043c\u0438
\/\/\/ 
\/\/\/ \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u0430
\/\/\/ \u043c\u0430\u0441\u0441\u0438\u0432 \u0432\u0438\u0434\u0430 array(value), \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u044b \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e —
\/\/\/ \u0431\u0438\u0442\u043e\u0432\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 \u0441 1 \u0432 \u043f\u043e\u0437\u0438\u0446\u0438\u044f\u0445, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u043d\u043e\u043c\u0435\u0440\u0430\u043c \u0437\u0430\u043f\u0438\u0441\u0435\u0439,
\/\/\/ \u0434\u043b\u044f \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 value,
\/\/\/ \u0440\u0430\u0437\u0431\u0438\u0442\u0430\u044f \u043d\u0430 \u043c\u0430\u0441\u0441\u0438\u0432 \u0438\u0437 \u0441\u0442\u0440\u043e\u043a \u0441 \u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0439 \u0434\u043b\u0438\u043d\u043e\u0439 $$$MAXBITLENGTH
\/\/\/ \u043d\u0443\u043c\u0435\u0440\u0430\u0446\u0438\u044f \u0437\u0430\u043f\u0438\u0441\u0435\u0439 — \u0441 1, \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 — \u0441 0,
\/\/\/ (\u0434\u0430\u043b\u0435\u0435, \u0434\u043b\u044f \u043a\u0440\u0430\u0442\u043a\u043e\u0441\u0442\u0438 — \u0431\u0438\u0442\u043e\u0432\u044b\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b).
\/\/\/ \u043f\u0440\u0438\u043c\u0435\u0440 \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f
\/\/\/ \u043f\u0443\u0441\u0442\u044c \u0443 \u0437\u0430\u043f\u0438\u0441\u0438 \u043d\u043e\u043c\u0435\u0440 idfact \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 par \u0438\u043c\u0435\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 val
\/\/\/ set idf0=idfact-1\\$$$MAXBITLENGTH,idf1=idfact-1#$$$MAXBITLENGTH+1
\/\/\/ set $bit(^BM("I",par,val,idf0),idf1)=1
\/\/\/ set $bit(^BM("EXIST",idf0),idf1)=1
\/\/\/ \u0438\u043d\u0434\u0435\u043a\u0441 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u0437\u0430\u043f\u0438\u0441\u0435\u0439 \u043f\u043e\u043b\u0435\u0437\u0435\u043d, \u0432\u043e-\u043f\u0435\u0440\u0432\u044b\u0445, \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443
\/\/\/ \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043b\u0435\u0433\u043a\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0442\u044c \u043b\u043e\u0433\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435, \u0430 \u0432\u043e-\u0432\u0442\u043e\u0440\u044b\u0445,
\/\/\/ \u0434\u0430\u0451\u0442 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u043d\u0430\u0439\u0442\u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0437\u0430\u043f\u0438\u0441\u0435\u0439 \u0432 \u0445\u0440\u0430\u043d\u0438\u043b\u0438\u0449\u0435 \u0431\u0435\u0437
\/\/\/ \u043e\u0431\u0440\u0430\u0449\u0435\u043d\u0438\u044f \u043a \u0434\u0440\u0443\u0433\u0438\u043c \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430\u043c, \u0447\u0442\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0434\u043b\u044f \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0439
\/\/\/ \u0440\u0430\u0431\u043e\u0442\u044b \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b BMNot (\u0441\u043c. \u043d\u0438\u0436\u0435)
\/\/\/ \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430:
\/\/\/ \u043c\u0430\u0441\u0441\u0438\u0432 \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441\u043e\u0432. 1-\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 — \u0438\u043d\u0434\u0435\u043a\u0441 \u0437\u043d\u0430\u043a\u043e\u0432
\/\/\/ \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439, 2-\u0439 — \u0438\u043d\u0434\u0435\u043a\u0441 \u043c\u043b\u0430\u0434\u0448\u0435\u0433\u043e \u0431\u0438\u0442\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 (1\/0), 3-\u0439 —
\/\/\/ \u0438\u043d\u0434\u0435\u043a\u0441 \u043f\u0440\u0435\u0434\u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0433\u043e \u0431\u0438\u0442\u0430 (2\/0), \u0438 \u0442.\u0434.
\/\/\/ 
\/\/\/ \u043f\u0440\u0438\u043c\u0435\u0440 \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f
\/\/\/ \u043f\u0443\u0441\u0442\u044c \u0443 \u0437\u0430\u043f\u0438\u0441\u0438 \u043d\u043e\u043c\u0435\u0440 idfact \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 par \u0438\u043c\u0435\u0435\u0442 \u0446\u0435\u043b\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0435
\/\/\/ \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 val
\/\/\/ set idf0=idfact-1\\$$$MAXBITLENGTH,idf1=idfact-1#$$$MAXBITLENGTH+1
\/\/\/ set val=$$CvtToBin(val)
\/\/\/ for ix=1:1:$length(val) set:$extract(val,ix) $bit(^BM("S",par,ix,idf0),idf1)=1
\/\/\/ \u043f\u0440\u0438 \u043c\u0430\u0441\u0441\u043e\u0432\u043e\u043c \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0438, \u0432\u043e \u0438\u0437\u0431\u0435\u0436\u0430\u043d\u0438\u0435 \u043a\u0430\u0442\u0430\u0441\u0442\u0440\u043e\u0444\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u043f\u0430\u0434\u0435\u043d\u0438\u044f
\/\/\/ \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u0438, \u0440\u0435\u043a\u043e\u043c\u0435\u043d\u0434\u0443\u0435\u0442\u0441\u044f \u043e\u0431\u043b\u043e\u0436\u0438\u0442\u044c \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u0444\u0440\u0430\u0433\u043c\u0435\u043d\u0442
\/\/\/ \u043a\u043e\u0434\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u044f\u043c\u0438 $sortbegin(^BM) \u0438 $sortend(^BM)
\/\/\/ \u0434\u043b\u044f \u0432\u044b\u0431\u043e\u0440\u043a\u0438 \u0444\u0430\u043a\u0442\u043e\u0432 \u043f\u043e \u0437\u0430\u0434\u0430\u043d\u043d\u044b\u043c \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u0438\u044f\u043c \u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f \u043f\u043e \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u043c
\/\/\/ \u0432\u044b\u0431\u043e\u0440\u043a\u0430\u043c \u0433\u0440\u0443\u043f\u043f\u0438\u0440\u0443\u044e\u0449\u0438\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 "\u0441\u0443\u043c\u043c\u0430", "\u043c\u0430\u043a\u0441\u0438\u043c\u0443\u043c" \u0438 "\u043c\u0438\u043d\u0438\u043c\u0443\u043c"
\/\/\/ \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u044b \u0444\u0443\u043d\u043a\u0446\u0438\u0438 BSSum(), BSMax() \u0438 BSMin()
Class User.BitMapSlice Extends %RegisteredObject <\/font>[ <\/font>ProcedureBlock <\/font>]
{<\/p>\n

<\/font>\/\/\/ Name ($na) of global where to store bitmaps and bitslices
\/\/\/ Default value is "^BM"
Property <\/font>BMGLOB <\/font>As %String<\/font>(<\/font>TRUNCATE <\/font>= <\/font>1<\/font>) [ <\/font>InitialExpression <\/font>= <\/font>"^BM" <\/font>];<\/p>\n

<\/font>\/\/\/ Maximal length of $bit string to use
Parameter <\/font>MAXBITLENGTH = <\/font>64000<\/font>;<\/p>\n

<\/font>\/\/\/ \u0421\u043e\u0437\u0434\u0430\u0451\u0442 \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0438\u043c\u044f ($na()) \u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0433\u043e \u043f\u043e\u0434\u0443\u0437\u043b\u0430 \u0433\u043b\u043e\u0431\u0430\u043b\u0430
\/\/\/ \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u043c\u0435\u0436\u0443\u0442\u043e\u0447\u043d\u044b\u0445 \u0431\u0438\u0442\u043c\u0430\u043f\u043e\u0432
ClassMethod <\/font>GetNewTMP() <\/font>As %String
<\/font>{
 <\/font>quit $name<\/font>(^CacheTemp(<\/font>"BM"<\/font>,<\/font>$job<\/font>_<\/font>$zutil<\/font>(110),<\/font>$increment<\/font>(^CacheTemp(<\/font>"BM"<\/font>,<\/font>$job<\/font>_<\/font>$zutil<\/font>(110)))))
}<\/p>\n

<\/font>\/\/\/ \u0423\u0434\u0430\u043b\u044f\u0435\u0442 \u0432\u0441\u0435 \u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u043f\u043e\u0434\u0443\u0437\u043b\u044b, \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u043c \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u043c
ClassMethod <\/font>KillAllTMP()
{
 <\/font>kill <\/font>^CacheTemp(<\/font>"BM"<\/font>,<\/font>$job<\/font>_<\/font>$zutil<\/font>(110)) <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u041e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u043d\u0430\u0434 \u0431\u0438\u0442\u043e\u0432\u044b\u043c\u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430\u043c\u0438
\/\/\/ \u0437\u0434\u0435\u0441\u044c \u0438 \u0434\u0430\u043b\u0435\u0435, \u0432 \u0446\u0435\u043b\u044f\u0445 \u0433\u0438\u0431\u043a\u043e\u0441\u0442\u0438, \u0431\u0438\u0442\u043e\u0432\u044b\u0435 \u0438\u043d\u0434\u0435\u043a\u0441\u044b,
\/\/\/ \u043c\u0430\u0441\u0441\u0438\u0432\u044b \u0438 \u0441\u043b\u0430\u0439\u0441\u044b \u043f\u0435\u0440\u0435\u0434\u0430\u044e\u0442\u0441\u044f \u043f\u043e \u0438\u043c\u0435\u043d\u0438 ($na())
\/\/\/ 
\/\/\/ \u043d\u0430\u0445\u043e\u0434\u0438\u0442 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0443\u044e \u0437\u0430 pos \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u0441 \u0435\u0434\u0438\u043d\u0438\u0447\u043d\u044b\u043c \u0431\u0438\u0442\u043e\u043c
\/\/\/ \u0432 bm — \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0435\u043c\u043e\u043c \u043f\u043e \u0438\u043c\u0435\u043d\u0438 \u0431\u0438\u0442\u043e\u0432\u043e\u043c \u043c\u0430\u0441\u0441\u0438\u0432\u0435
Method <\/font>BMOrder(<\/font>bm <\/font>As %String<\/font>, <\/font>pos <\/font>As %String<\/font>) <\/font>As %String
<\/font>{
 <\/font>set <\/font>sub<\/font>=<\/font>pos<\/font>\\..<\/font>#MAXBITLENGTH<\/font>,<\/font>ix<\/font>=<\/font>$bitfind<\/font>(<\/font>$get<\/font>(@<\/font>bm<\/font>@(<\/font>sub<\/font>)),1,<\/font>pos<\/font>#..<\/font>#MAXBITLENGTH<\/font>+1)
 <\/font>quit<\/font>:<\/font>ix sub<\/font>*..<\/font>#MAXBITLENGTH<\/font>+<\/font>ix
 <\/font>for  set <\/font>sub<\/font>=<\/font>$order<\/font>(@<\/font>bm<\/font>@(<\/font>sub<\/font>)) <\/font>quit<\/font>:’<\/font>sub  <\/font>set <\/font>ix<\/font>=<\/font>$bitfind<\/font>(<\/font>$get<\/font>(@<\/font>bm<\/font>@(<\/font>sub<\/font>)),1) <\/font>quit<\/font>:<\/font>ix
 <\/font>quit<\/font>:<\/font>ix sub<\/font>*..<\/font>#MAXBITLENGTH<\/font>+<\/font>ix
 <\/font>quit <\/font>""
<\/font>}<\/p>\n

<\/font>\/\/\/ bmdest=bmdest & bmsrc
Method <\/font>BMAnd(<\/font>bmdest <\/font>As %String<\/font>, <\/font>bmsrc <\/font>As %String<\/font>)
{
 <\/font>set <\/font>sub1<\/font>=<\/font>$order<\/font>(@<\/font>bmdest<\/font>@(<\/font>$char<\/font>(0)),-1),<\/font>sub<\/font>=<\/font>$order<\/font>(@<\/font>bmsrc<\/font>@(<\/font>$char<\/font>(0)),-1)
 <\/font>set<\/font>:<\/font>sub<\/font><<\/font>sub1 sub<\/font>=<\/font>sub1
 <\/font>for <\/font>ix<\/font>=0:1:<\/font>sub <\/font>set<\/font>:<\/font>$data<\/font>(@<\/font>bmdest<\/font>@(<\/font>ix<\/font>))&<\/font>$data<\/font>(@<\/font>bmsrc<\/font>@(<\/font>ix<\/font>)) @<\/font>bmdest<\/font>@(<\/font>ix<\/font>)=<\/font>$bitlogic<\/font>(@<\/font>bmdest<\/font>@(<\/font>ix<\/font>)&@<\/font>bmsrc<\/font>@(<\/font>ix<\/font>)) <\/font>kill<\/font>:’<\/font>$data<\/font>(@<\/font>bmsrc<\/font>@(<\/font>ix<\/font>)) @<\/font>bmdest<\/font>@(<\/font>ix<\/font>)
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ bmdest=bmdest | bmsrc
Method <\/font>BMOr(<\/font>bmdest <\/font>As %String<\/font>, <\/font>bmsrc <\/font>As %String<\/font>)
{
 <\/font>set <\/font>sub1<\/font>=<\/font>$order<\/font>(@<\/font>bmdest<\/font>@(<\/font>$char<\/font>(0)),-1),<\/font>sub<\/font>=<\/font>$order<\/font>(@<\/font>bmsrc<\/font>@(<\/font>$char<\/font>(0)),-1)
 <\/font>set<\/font>:<\/font>sub<\/font><<\/font>sub1 sub<\/font>=<\/font>sub1
 <\/font>for <\/font>ix<\/font>=0:1:<\/font>sub <\/font>set<\/font>:<\/font>$data<\/font>(@<\/font>bmsrc<\/font>@(<\/font>ix<\/font>)) @<\/font>bmdest<\/font>@(<\/font>ix<\/font>)=<\/font>$select<\/font>(<\/font>$data<\/font>(@<\/font>bmdest<\/font>@(<\/font>ix<\/font>)):<\/font>$bitlogic<\/font>(@<\/font>bmdest<\/font>@(<\/font>ix<\/font>)|@<\/font>bmsrc<\/font>@(<\/font>ix<\/font>)),1:@<\/font>bmsrc<\/font>@(<\/font>ix<\/font>))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>Method <\/font>BMNot(<\/font>bm <\/font>As %String<\/font>)
{
 <\/font>set <\/font>maxblk<\/font>=<\/font>$order<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>,<\/font>""<\/font>),-1),<\/font>blklen<\/font>=<\/font>$bitcount<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>,<\/font>maxblk<\/font>))
 <\/font>for <\/font>ix<\/font>=<\/font>maxblk<\/font>:-1:0 <\/font>set <\/font>blk<\/font>=<\/font>$get<\/font>(@<\/font>bm<\/font>@(<\/font>ix<\/font>)) <\/font>set<\/font>:<\/font>$bitcount<\/font>(<\/font>blk<\/font>)<<\/font>blklen <\/font>$bit<\/font>(<\/font>blk<\/font>,<\/font>blklen<\/font>)=0 <\/font>set <\/font>@<\/font>bm<\/font>@(<\/font>ix<\/font>)=<\/font>$bitlogic<\/font>(~<\/font>blk<\/font>),<\/font>blklen<\/font>=..<\/font>#MAXBITLENGTH
 do <\/font>..<\/font>BMAnd<\/font>(<\/font>bm<\/font>,<\/font>$name<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0435\u0434\u0438\u043d\u0438\u0447\u043d\u044b\u0445 \u0431\u0438\u0442\u043e\u0432 \u0432 \u043c\u0430\u0441\u0441\u0438\u0432\u0435
Method <\/font>BMCount(<\/font>bm <\/font>As %String<\/font>) <\/font>As %Integer
<\/font>{
 <\/font>set <\/font>ix<\/font>=<\/font>""<\/font>,<\/font>bmcret<\/font>=0
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>bm<\/font>@(<\/font>ix<\/font>)) <\/font>quit<\/font>:<\/font>ix<\/font>‘=+<\/font>ix  <\/font>set <\/font>bmcret<\/font>=<\/font>bmcret<\/font>+<\/font>$bitcount<\/font>(@<\/font>bm<\/font>@(<\/font>ix<\/font>),1)
 <\/font>quit <\/font>bmcret
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbmsrc,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0440\u0430\u0432\u043d\u043e val
\/\/\/ 
Method <\/font>BMEq(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>val <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>merge <\/font>@<\/font>bmdest<\/font>=@<\/font>vbmsrc<\/font>@(<\/font>val<\/font>)
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbmsrc,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043d\u0435 \u0440\u0430\u0432\u043d\u043e val
Method <\/font>BMNe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>val <\/font>As %String<\/font>)
{
 <\/font>do <\/font>..<\/font>BMEq<\/font>(<\/font>bmdest<\/font>,<\/font>vbmsrc<\/font>,<\/font>val<\/font>) <\/font>do <\/font>..<\/font>BMNot<\/font>(<\/font>bmdest<\/font>)
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbmsrc,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043c\u0435\u043d\u044c\u0448\u0435 (\u0441\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u0434\u043e) val
\/\/\/ bmdest:=U(vbmsrc(v):v<val)
Method <\/font>BMLt(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>val <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>set <\/font>ix<\/font>=<\/font>val
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>),-1) <\/font>quit<\/font>:<\/font>ix<\/font>=<\/font>""  <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>$name<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e BMLt() \u043d\u043e "\u043c\u0435\u043d\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e"
Method <\/font>BMLe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>value <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>merge <\/font>@<\/font>bmdest<\/font>=@<\/font>vbmsrc<\/font>@(<\/font>val<\/font>) <\/font>set <\/font>ix<\/font>=<\/font>val
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>),-1) <\/font>quit<\/font>:<\/font>ix<\/font>=<\/font>""  <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>$name<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e BMLe, \u043d\u043e "\u0431\u043e\u043b\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e"
Method <\/font>BMGe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>val <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>merge <\/font>@<\/font>bmdest<\/font>=@<\/font>vbmsrc<\/font>@(<\/font>val<\/font>) <\/font>set <\/font>ix<\/font>=<\/font>val
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)) <\/font>quit<\/font>:<\/font>ix<\/font>=<\/font>""  <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>$name<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e, \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0431\u043e\u043b\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e min \u0438 \u043c\u0435\u043d\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e max
Method <\/font>BMGeLe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>min <\/font>As %String<\/font>, <\/font>max <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>merge <\/font>@<\/font>bmdest<\/font>=@<\/font>vbmsrc<\/font>@(<\/font>min<\/font>) <\/font>set <\/font>ix<\/font>=<\/font>min
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)) <\/font>quit<\/font>:<\/font>ix<\/font>]]<\/font>max  <\/font>quit<\/font>:<\/font>ix<\/font>=<\/font>""  <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>$name<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e BMGe(), \u043d\u043e "\u0441\u0442\u0440\u043e\u0433\u043e \u0431\u043e\u043b\u044c\u0448\u0435"
Method <\/font>BMGt(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>val <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>set <\/font>ix<\/font>=<\/font>val
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)) <\/font>quit<\/font>:<\/font>ix<\/font>=<\/font>""  <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>$name<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e, \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0431\u043e\u043b\u044c\u0448\u0435 min \u0438 \u043c\u0435\u043d\u044c\u0448\u0435 max
Method <\/font>BMGtLt(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>min <\/font>As %String<\/font>, <\/font>max <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>set <\/font>ix<\/font>=<\/font>min
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)) <\/font>quit<\/font>:<\/font>max<\/font>‘]]<\/font>ix  <\/font>quit<\/font>:<\/font>ix<\/font>=<\/font>""  <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>$name<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e, \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0431\u043e\u043b\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e min \u0438 \u043c\u0435\u043d\u044c\u0448\u0435 max
Method <\/font>BMGeLt(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>min <\/font>As %String<\/font>, <\/font>max <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>merge <\/font>@<\/font>bmdest<\/font>=@<\/font>vbmsrc<\/font>@(<\/font>min<\/font>) <\/font>set <\/font>ix<\/font>=<\/font>min
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)) <\/font>quit<\/font>:<\/font>max<\/font>‘]]<\/font>ix  <\/font>quit<\/font>:<\/font>ix<\/font>=<\/font>""  <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>$name<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e, \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0431\u043e\u043b\u044c\u0448\u0435 min \u0438 \u043c\u0435\u043d\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e max
Method <\/font>BMGtLe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbmsrc <\/font>As %String<\/font>, <\/font>min <\/font>As %String<\/font>, <\/font>max <\/font>As %String<\/font>)
{
 <\/font>kill <\/font>@<\/font>bmdest <\/font>set <\/font>ix<\/font>=<\/font>min
 <\/font>for  set <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)) <\/font>quit<\/font>:<\/font>ix<\/font>]]<\/font>max  <\/font>quit<\/font>:<\/font>ix<\/font>=<\/font>""  <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>$name<\/font>(@<\/font>vbmsrc<\/font>@(<\/font>ix<\/font>)))
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/  \u041e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u043d\u0430\u0434 Bit-Sliced \u0434\u0430\u043d\u043d\u044b\u043c\u0438
\/\/\/ \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u0443\u0435\u0442 \u0446\u0435\u043b\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u0443\u044e \u0431\u0438\u0442\u043e\u0432\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443
\/\/\/ {sign,1,2,4,…,2**N}
ClassMethod <\/font>CvtToBin(<\/font>value <\/font>As %Integer<\/font>) <\/font>As %String
<\/font>{
 <\/font>set <\/font>value<\/font>=<\/font>$fnumber<\/font>(+<\/font>value<\/font>,<\/font>""<\/font>,0),<\/font>res<\/font>=(<\/font>value<\/font><0)
 <\/font>for  quit<\/font>:’<\/font>value  <\/font>set <\/font>res<\/font>=<\/font>res<\/font>_(<\/font>value<\/font>#2),<\/font>value<\/font>=<\/font>value<\/font>\\2
 <\/font>quit <\/font>res
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043a\u043e\u043d\u0432\u0435\u0440\u0442\u0438\u0440\u0443\u0435\u0442 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u0441\u043f\u0438\u0441\u043e\u043a $lb(sign,1,2,4,…2**N) \u0432 \u0446\u0435\u043b\u043e\u0435 \u0447\u0438\u0441\u043b\u043e
ClassMethod <\/font>CvtFromSlice(<\/font>slice <\/font>As %String<\/font>) <\/font>As %Integer
<\/font>{
 <\/font>set <\/font>res<\/font>=0
 <\/font>for <\/font>i<\/font>=<\/font>$listlength<\/font>(<\/font>slice<\/font>):-1:2 <\/font>set <\/font>res<\/font>=<\/font>res<\/font>+<\/font>res <\/font>set <\/font>res<\/font>=<\/font>res<\/font>+<\/font>$listget<\/font>(<\/font>slice<\/font>,<\/font>i<\/font>,0)
 <\/font>quit $select<\/font>(<\/font>$listget<\/font>(<\/font>slice<\/font>):-<\/font>res<\/font>,1:<\/font>res<\/font>)
}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0431\u0438\u0442\u044b \u0438\u0437 \u043f\u043e\u0437\u0438\u0446\u0438\u0438 pos \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441\u0430 vbs \u0432 \u0441\u043f\u0438\u0441\u043e\u043a ($lb())
Method <\/font>GetSlice(<\/font>vbs <\/font>As %String<\/font>, <\/font>pos <\/font>As %Integer<\/font>) <\/font>As %String
<\/font>{
 <\/font>set <\/font>sub<\/font>=<\/font>pos<\/font>\\..<\/font>#MAXBITLENGTH<\/font>,<\/font>ix<\/font>=<\/font>pos<\/font>-1#..<\/font>#MAXBITLENGTH<\/font>+1
 <\/font>for <\/font>i<\/font>=1:1:<\/font>$order<\/font>(@<\/font>vbs<\/font>@(<\/font>""<\/font>),-1) <\/font>set $list<\/font>(<\/font>slice<\/font>,<\/font>i<\/font>)=<\/font>$bit<\/font>(<\/font>$get<\/font>(@<\/font>vbs<\/font>@(<\/font>i<\/font>,<\/font>sub<\/font>)),<\/font>ix<\/font>)
 <\/font>quit <\/font>slice
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0440\u0430\u0432\u043d\u043e val
Method <\/font>BSEq(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>bswork<\/font>=..<\/font>GetNewTMP<\/font>() <\/font>set <\/font>vbit<\/font>=..<\/font>CvtToBin<\/font>(<\/font>val<\/font>)
 <\/font>kill <\/font>@<\/font>bmdest <\/font>merge <\/font>@<\/font>bmdest<\/font>=@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>)
 <\/font>set <\/font>maxbit<\/font>=<\/font>$order<\/font>(@<\/font>vbs<\/font>@(<\/font>""<\/font>),-1) <\/font>set<\/font>:<\/font>maxbit<\/font><<\/font>$length<\/font>(<\/font>vbit<\/font>) <\/font>maxbit<\/font>=<\/font>$length<\/font>(<\/font>vbit<\/font>)
 <\/font>for <\/font>ix<\/font>=1:1:<\/font>maxbit <\/font>kill <\/font>@<\/font>bswork <\/font>merge <\/font>@<\/font>bswork<\/font>=@<\/font>vbs<\/font>@(<\/font>ix<\/font>) <\/font>do<\/font>:’<\/font>$extract<\/font>(<\/font>vbit<\/font>,<\/font>ix<\/font>) ..<\/font>BMNot<\/font>(<\/font>bswork<\/font>) <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>bswork<\/font>)
 <\/font>kill <\/font>@<\/font>bswork <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0431\u043e\u043b\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e val
Method <\/font>BSGe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val <\/font>As %Integer<\/font>)
{
 <\/font>do <\/font>..<\/font>BSLt<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val<\/font>),..<\/font>BMNot<\/font>(<\/font>bmdest<\/font>) <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043d\u0435 \u0440\u0430\u0432\u043d\u043e val
Method <\/font>BSNe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val <\/font>As %Integer<\/font>)
{
 <\/font>do <\/font>..<\/font>BSEq<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val<\/font>),..<\/font>BMNot<\/font>(<\/font>bmdest<\/font>)
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0431\u043e\u043b\u044c\u0448\u0435 val
\/\/\/ 
Method <\/font>BSGt(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val <\/font>As %Integer<\/font>)
{
 <\/font>do <\/font>..<\/font>BSLe<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val<\/font>),..<\/font>BMNot<\/font>(<\/font>bmdest<\/font>) <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u043a \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0440\u0430\u0432\u0435\u043d sign (\u043d\u043e\u043b\u044c \u0441\u0447\u0438\u0442\u0430\u0435\u0442\u0441\u044f \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u043c)
Method <\/font>BSSign(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>sign <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>bswork<\/font>=..<\/font>GetNewTMP<\/font>() <\/font>kill <\/font>@<\/font>bmdest
 <\/font>merge <\/font>@<\/font>bmdest<\/font>=@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>),@<\/font>bswork<\/font>=@<\/font>vbs<\/font>@(1)
 <\/font>do<\/font>:<\/font>$get<\/font>(<\/font>sign<\/font>)'<0 ..<\/font>BMNot<\/font>(<\/font>bswork<\/font>) <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>bswork<\/font>)
 <\/font>kill <\/font>@<\/font>bswork <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043c\u0435\u043d\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e val
Method <\/font>BSLe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>tmpLe<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>do <\/font>..<\/font>BSLtAbs<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val<\/font>),..<\/font>BSSign<\/font>(<\/font>tmpLe<\/font>,<\/font>vbs<\/font>,-1)
 <\/font>if <\/font>val<\/font>‘<0 <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>tmpLe<\/font>),..<\/font>BSEq<\/font>(<\/font>tmpLe<\/font>,<\/font>vbs<\/font>,<\/font>val<\/font>),..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>tmpLe<\/font>) <\/font>if <\/font>1
 <\/font>else  do <\/font>..<\/font>BMNot<\/font>(<\/font>bmdest<\/font>),..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>tmpLe<\/font>)
 <\/font>kill <\/font>@<\/font>tmpLe <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043c\u0435\u043d\u044c\u0448\u0435 val
Method <\/font>BSLt(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>tmpLt<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>do <\/font>..<\/font>BSLtAbs<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val<\/font>),..<\/font>BSSign<\/font>(<\/font>tmpLt<\/font>,<\/font>vbs<\/font>,-1)
 <\/font>if <\/font>val<\/font>‘<0 <\/font>do <\/font>..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>tmpLt<\/font>) <\/font>if <\/font>1
 <\/font>ELSE  do <\/font>..<\/font>BMNot<\/font>(<\/font>bmdest<\/font>),..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>tmpLt<\/font>),..<\/font>BSNe<\/font>(<\/font>tmpLt<\/font>,<\/font>vbs<\/font>,<\/font>val<\/font>),..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>tmpLt<\/font>)
 <\/font>kill <\/font>@<\/font>tmpLt <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0431\u043e\u043b\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e val1 \u0438 \u043c\u0435\u043d\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e val2
Method <\/font>BSGeLe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val1 <\/font>As %Integer<\/font>, <\/font>val2 <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>tmpGeLe<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>do <\/font>..<\/font>BSGe<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val1<\/font>),..<\/font>BSLe<\/font>(<\/font>tmpGeLe<\/font>,<\/font>vbs<\/font>,<\/font>val2<\/font>),..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>tmpGeLe<\/font>)
 <\/font>kill <\/font>@<\/font>tmpGeLe <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442-\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0431\u043e\u043b\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e val1 \u0438 \u043c\u0435\u043d\u044c\u0448\u0435 val2
Method <\/font>BSGeLt(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val1 <\/font>As %Integer<\/font>, <\/font>val2 <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>tmpGeLt<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>do <\/font>..<\/font>BSGe<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val1<\/font>),..<\/font>BSLt<\/font>(<\/font>tmpGeLt<\/font>,<\/font>vbs<\/font>,<\/font>val2<\/font>),..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>tmpGeLt<\/font>)
 <\/font>kill <\/font>@<\/font>tmpGeLt <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0431\u043e\u043b\u044c\u0448\u0435 val1 \u0438 \u043c\u0435\u043d\u044c\u0448\u0435 \u0438\u043b\u0438 \u0440\u0430\u0432\u043d\u043e val2
Method <\/font>BSGtLe(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val1 <\/font>As %Integer<\/font>, <\/font>val2 <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>tmpGtLe<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>do <\/font>..<\/font>BSGt<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val1<\/font>),..<\/font>BSLe<\/font>(<\/font>tmpGtLe<\/font>,<\/font>vbs<\/font>,<\/font>val2<\/font>),..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>tmpGtLe<\/font>)
 <\/font>kill <\/font>@<\/font>tmpGtLe <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442-\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u0431\u043e\u043b\u044c\u0448\u0435 val1 \u0438 \u043c\u0435\u043d\u044c\u0448\u0435 val2
Method <\/font>BSGtLt(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val1 <\/font>As %Integer<\/font>, <\/font>val2 <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>tmpGtLt<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>do <\/font>..<\/font>BSGt<\/font>(<\/font>bmdest<\/font>,<\/font>vbs<\/font>,<\/font>val1<\/font>),..<\/font>BSLt<\/font>(<\/font>tmpGtLt<\/font>,<\/font>vbs<\/font>,<\/font>val2<\/font>),..<\/font>BMAnd<\/font>(<\/font>bmdest<\/font>,<\/font>tmpGtLt<\/font>)
 <\/font>kill <\/font>@<\/font>tmpGtLt <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442 \u0432 \u0431\u0438\u0442\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 bmdest \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0438\u0437 \u0431\u0438\u0442-\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs,
\/\/\/ \u0433\u0434\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043f\u043e \u0430\u0431\u0441\u043e\u043b\u044e\u0442\u043d\u043e\u0439 \u0432\u0435\u043b\u0438\u0447\u0438\u043d\u0435 \u043c\u0435\u043d\u044c\u0448\u0435, \u0447\u0435\u043c val
Method <\/font>BSLtAbs(<\/font>bmdest <\/font>As %String<\/font>, <\/font>vbs <\/font>As %String<\/font>, <\/font>val <\/font>As %Integer<\/font>)
{
 <\/font>set <\/font>bswork<\/font>=..<\/font>GetNewTMP<\/font>(),<\/font>test<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>kill <\/font>@<\/font>bmdest <\/font>set <\/font>vbit<\/font>=..<\/font>CvtToBin<\/font>(<\/font>val<\/font>),<\/font>ixmax<\/font>=<\/font>$order<\/font>(@<\/font>vbs<\/font>@(<\/font>""<\/font>),-1)
 <\/font>kill <\/font>@<\/font>test <\/font>merge <\/font>@<\/font>test<\/font>=@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>)
 <\/font>if <\/font>ixmax<\/font><<\/font>$length<\/font>(<\/font>vbit<\/font>) <\/font>{
   <\/font>merge <\/font>@<\/font>bmdest<\/font>=@<\/font>test
 <\/font>} <\/font>else <\/font>{
   <\/font>for <\/font>ix<\/font>=<\/font>ixmax<\/font>:-1:2 <\/font>{
     <\/font>kill <\/font>@<\/font>bswork <\/font>merge <\/font>@<\/font>bswork<\/font>=@<\/font>vbs<\/font>@(<\/font>ix<\/font>)
     <\/font>do <\/font>..<\/font>BMNot<\/font>(<\/font>bswork<\/font>),..<\/font>BMAnd<\/font>(<\/font>bswork<\/font>,<\/font>test<\/font>)
     <\/font>do<\/font>:<\/font>$extract<\/font>(<\/font>vbit<\/font>,<\/font>ix<\/font>) ..<\/font>BMOr<\/font>(<\/font>bmdest<\/font>,<\/font>bswork<\/font>),..<\/font>BMNot<\/font>(<\/font>bswork<\/font>)
     <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>test<\/font>,<\/font>bswork<\/font>)
   <\/font>}
 }
 <\/font>kill <\/font>@<\/font>test<\/font>,@<\/font>bswork <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/  \u0433\u0440\u0443\u043f\u043f\u0438\u0440\u0443\u044e\u0449\u0438\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0434\u043b\u044f \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u043e\u0432
\/\/\/ \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 (\u043f\u0440\u0438 \u043d\u0435\u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0435
\/\/\/ bsmin’=0 — \u043c\u0438\u043d\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0435) \u0434\u043b\u044f \u0432\u044b\u0431\u043e\u0440\u043a\u0438 bitmap \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs
Method <\/font>BSMax(<\/font>vbs <\/font>As %String<\/font>, <\/font>bitmap <\/font>As %String<\/font>, <\/font>bsmin <\/font>As %String<\/font>) <\/font>As %Integer
<\/font>{
 <\/font>set <\/font>bsmin<\/font>=»<\/font>$get<\/font>(<\/font>bsmin<\/font>),<\/font>bswork<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>set <\/font>resBSM<\/font>=..<\/font>GetNewTMP<\/font>(),<\/font>tmpBSM<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>merge <\/font>@<\/font>resBSM<\/font>=@<\/font>vbs<\/font>@(1) <\/font>do<\/font>:’<\/font>bsmin <\/font>..<\/font>BMNot<\/font>(<\/font>resBSM<\/font>) <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>resBSM<\/font>,<\/font>bitmap<\/font>)
 <\/font>if <\/font>..<\/font>BMCount<\/font>(<\/font>resBSM<\/font>) <\/font>set <\/font>min<\/font>=0
 <\/font>ELSE  set <\/font>min<\/font>=1 <\/font>kill <\/font>@<\/font>resBSM <\/font>merge <\/font>@<\/font>resBSM<\/font>=@<\/font>vbs<\/font>@(1) <\/font>do<\/font>:<\/font>bsmin <\/font>..<\/font>BMNot<\/font>(<\/font>resBSM<\/font>) <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>resBSM<\/font>,<\/font>bitmap<\/font>)
 <\/font>for <\/font>ix<\/font>=<\/font>$order<\/font>(@<\/font>vbs<\/font>@(<\/font>""<\/font>),-1):-1:2 <\/font>{
   <\/font>kill <\/font>@<\/font>tmpBSM<\/font>,@<\/font>bswork <\/font>merge <\/font>@<\/font>tmpBSM<\/font>=@<\/font>resBSM<\/font>,@<\/font>bswork<\/font>=@<\/font>vbs<\/font>@(<\/font>ix<\/font>)
   <\/font>do<\/font>:<\/font>min <\/font>..<\/font>BMNot<\/font>(<\/font>bswork<\/font>) <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>tmpBSM<\/font>,<\/font>bswork<\/font>)
   <\/font>if <\/font>..<\/font>BMCount<\/font>(<\/font>tmpBSM<\/font>) <\/font>kill <\/font>@<\/font>resBSM <\/font>merge <\/font>@<\/font>resBSM<\/font>=@<\/font>tmpBSM
 <\/font>}
 <\/font>set <\/font>pos<\/font>=..<\/font>BMOrder<\/font>(<\/font>resBSM<\/font>,0) <\/font>quit<\/font>:’<\/font>pos <\/font>0
 <\/font>set <\/font>val<\/font>=..<\/font>CvtFromSlice<\/font>(..<\/font>GetSlice<\/font>(<\/font>vbs<\/font>,<\/font>pos<\/font>))
 <\/font>kill <\/font>@<\/font>bswork<\/font>,@<\/font>resBSM<\/font>,@<\/font>tmpBSM <\/font>quit <\/font>val
<\/font>}<\/p>\n

<\/font>Method <\/font>BSMin(<\/font>vbs <\/font>As %String<\/font>, <\/font>bitmap <\/font>As %String<\/font>) <\/font>As %Integer
<\/font>{
 <\/font>quit <\/font>..<\/font>BSMax<\/font>(<\/font>vbs<\/font>,<\/font>bitmap<\/font>,1)
}<\/p>\n

<\/font>\/\/\/ \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0441\u0443\u043c\u043c\u0443 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0434\u043b\u044f \u0432\u044b\u0431\u043e\u0440\u043a\u0438 bitmap \u0438\u0437 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0430 vbs
Method <\/font>BSSum(<\/font>vbs <\/font>As %String<\/font>, <\/font>bitmap <\/font>As %String<\/font>) <\/font>As %Integer
<\/font>{
 <\/font>set <\/font>bswork<\/font>=..<\/font>GetNewTMP<\/font>(),<\/font>resBSSum<\/font>=..<\/font>GetNewTMP<\/font>(),<\/font>tmpBSSum<\/font>=..<\/font>GetNewTMP<\/font>()
 <\/font>merge <\/font>@<\/font>resBSSum<\/font>=@<\/font>vbs<\/font>@(1) <\/font>do <\/font>..<\/font>BMNot<\/font>(<\/font>resBSSum<\/font>),..<\/font>BMAnd<\/font>(<\/font>resBSSum<\/font>,<\/font>bitmap<\/font>) <\/font>set <\/font>slice<\/font>=<\/font>""
 <\/font>for <\/font>ix<\/font>=2:1:<\/font>$order<\/font>(@<\/font>vbs<\/font>@(<\/font>""<\/font>),-1) <\/font>kill <\/font>@<\/font>tmpBSSum <\/font>merge <\/font>@<\/font>tmpBSSum<\/font>=@<\/font>vbs<\/font>@(<\/font>ix<\/font>) <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>tmpBSSum<\/font>,<\/font>resBSSum<\/font>) <\/font>set $list<\/font>(<\/font>slice<\/font>,<\/font>ix<\/font>)=..<\/font>BMCount<\/font>(<\/font>tmpBSSum<\/font>)
 <\/font>set <\/font>val<\/font>=..<\/font>CvtFromSlice<\/font>(<\/font>slice<\/font>)
 <\/font>kill <\/font>@<\/font>resBSSum <\/font>merge <\/font>@<\/font>resBSSum<\/font>=@<\/font>vbs<\/font>@(1) <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>resBSSum<\/font>,<\/font>bitmap<\/font>) <\/font>set <\/font>slice<\/font>=<\/font>""
 <\/font>for <\/font>ix<\/font>=2:1:<\/font>$order<\/font>(@<\/font>vbs<\/font>@(<\/font>""<\/font>),-1) <\/font>kill <\/font>@<\/font>tmpBSSum <\/font>merge <\/font>@<\/font>tmpBSSum<\/font>=@<\/font>vbs<\/font>@(<\/font>ix<\/font>) <\/font>do <\/font>..<\/font>BMAnd<\/font>(<\/font>tmpBSSum<\/font>,<\/font>resBSSum<\/font>) <\/font>set $list<\/font>(<\/font>slice<\/font>,<\/font>ix<\/font>)=..<\/font>BMCount<\/font>(<\/font>tmpBSSum<\/font>)
 <\/font>set <\/font>val<\/font>=<\/font>val<\/font>-..<\/font>CvtFromSlice<\/font>(<\/font>slice<\/font>)
 <\/font>kill <\/font>@<\/font>bswork<\/font>,@<\/font>resBSSum<\/font>,@<\/font>tmpBSSum <\/font>quit <\/font>val
<\/font>}<\/p>\n

<\/font>\/\/\/ \u043c\u0435\u0442\u043e\u0434\u044b \u0434\u043b\u044f \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0431\u0438\u0442\u043c\u0430\u043f \u0438 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u043e\u0432
\/\/\/ 
\/\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u0431\u0438\u0442 \u0432 \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441\u0435
\/\/\/ \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430
\/\/\/ \u043f\u0440\u0438 \u043d\u0435\u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0435 setexist=1 \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442 \u0442\u0430\u043a\u0436\u0435 \u0431\u0438\u0442 \u0432
\/\/\/ \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441\u0435 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u0437\u0430\u043f\u0438\u0441\u0435\u0439 (\u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0434\u043b\u044f \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0439
\/\/\/ \u0440\u0430\u0431\u043e\u0442\u044b \u043c\u0435\u0442\u043e\u0434\u0430 BMNot())
Method <\/font>SetBitMap(<\/font>idfact <\/font>As %Integer<\/font>, <\/font>property <\/font>As %String<\/font>, <\/font>value <\/font>As %String<\/font>, <\/font>setexist <\/font>As %String<\/font>)
{
 <\/font>set <\/font>idf0<\/font>=<\/font>idfact<\/font>-1\\..<\/font>#MAXBITLENGTH<\/font>,<\/font>idf1<\/font>=<\/font>idfact<\/font>-1#..<\/font>#MAXBITLENGTH<\/font>+1
 <\/font>set<\/font>:<\/font>$get<\/font>(<\/font>setexist<\/font>) <\/font>$bit<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>,<\/font>idf0<\/font>),<\/font>idf1<\/font>)=1
 <\/font>set $bit<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>"I"<\/font>,<\/font>property<\/font>,<\/font>value<\/font>,<\/font>idf0<\/font>),<\/font>idf1<\/font>)=1
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u0431\u0438\u0442 \u0432 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u0435
\/\/\/ \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430.
\/\/\/ \u041d\u0435\u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0440\u0442 setexist — \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e \u043c\u0435\u0442\u043e\u0434\u0443 SetBitMap()
Method <\/font>SetBitSlice(<\/font>idfact <\/font>As %Integer<\/font>, <\/font>property <\/font>As %String<\/font>, <\/font>value <\/font>As %Integer<\/font>, <\/font>setexist <\/font>As %String<\/font>)
{
 <\/font>set <\/font>idf0<\/font>=<\/font>idfact<\/font>-1\\..<\/font>#MAXBITLENGTH<\/font>,<\/font>idf1<\/font>=<\/font>idfact<\/font>-1#..<\/font>#MAXBITLENGTH<\/font>+1
 <\/font>set<\/font>:<\/font>$get<\/font>(<\/font>setexist<\/font>) <\/font>$bit<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>,<\/font>idf0<\/font>),<\/font>idf1<\/font>)=1
 <\/font>set <\/font>v<\/font>=..<\/font>CvtToBin<\/font>(+<\/font>value<\/font>)
 <\/font>for <\/font>ix<\/font>=1:1:<\/font>$length<\/font>(<\/font>v<\/font>) <\/font>set<\/font>:<\/font>$extract<\/font>(<\/font>v<\/font>,<\/font>ix<\/font>) <\/font>$bit<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>"S"<\/font>,<\/font>property<\/font>,<\/font>ix<\/font>,<\/font>idf0<\/font>),<\/font>idf1<\/font>)=1
 <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u0438\u043c\u044f \u043f\u043e\u0434\u0443\u0437\u043b\u0430 \u0438\u043d\u0434\u0435\u043a\u0441\u043d\u043e\u0433\u043e \u0433\u043b\u043e\u0431\u0430\u043b\u0430, \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0449\u0435\u0433\u043e
\/\/\/ \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441 (\u0435\u0441\u043b\u0438 slice=0 \u0438\u043b\u0438 \u043d\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0451\u043d) \u0438\u043b\u0438 \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441 (ghb slice’=0)
\/\/\/ \u0434\u043b\u044f \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430. \u0415\u0441\u043b\u0438 property \u043f\u0443\u0441\u0442\u043e \u0438\u043b\u0438 \u043d\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043e —
\/\/\/ \u0442\u043e \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u0437\u0430\u043f\u0438\u0441\u0435\u0439
Method <\/font>GetBitMapName(<\/font>property <\/font>As %String<\/font>, <\/font>slice <\/font>As %String<\/font>) <\/font>As %String
<\/font>{
 <\/font>quit<\/font>:<\/font>$get<\/font>(<\/font>property<\/font>)=<\/font>"" <\/font>$name<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>"EXIST"<\/font>))
 <\/font>quit $name<\/font>(@(..<\/font>BMGLOB<\/font>)@(<\/font>$select<\/font>(+<\/font>$get<\/font>(<\/font>slice<\/font>):<\/font>"S"<\/font>,1:<\/font>"I"<\/font>),<\/font>property<\/font>))
}<\/p>\n

<\/font>\/\/\/  \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u043e\u0435 \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u0438 \u0432\u044b\u0431\u043e\u0440\u043a\u0430
\/\/\/  
ClassMethod <\/font>Populate(<\/font>count <\/font>As %String <\/font>= <\/font>10000<\/font>)
{
  <\/font>set <\/font>ix<\/font>=..<\/font>%New<\/font>()
  <\/font>set <\/font>ix<\/font>.<\/font>BMGLOB<\/font>=<\/font>$name<\/font>(^BMI)
  <\/font>set <\/font>count<\/font>=<\/font>$get<\/font>(<\/font>count<\/font>,10000),<\/font>m<\/font>=0
  <\/font>set <\/font>names<\/font>=<\/font>$listbuild<\/font>(<\/font>"SantaClause"<\/font>,<\/font>"Crocodile"<\/font>,<\/font>"Simba"<\/font>)
  <\/font>set <\/font>colors<\/font>=<\/font>$listbuild<\/font>(<\/font>"Cyan"<\/font>,<\/font>"Magenta"<\/font>,<\/font>"Yellow"<\/font>,<\/font>"Black"<\/font>)
  <\/font>if $sortbegin<\/font>(^BMI)
  <\/font>for <\/font>idfact<\/font>=1:1:<\/font>count <\/font>{
    <\/font>set <\/font>name<\/font>=<\/font>$list<\/font>(<\/font>names<\/font>,1+<\/font>$random<\/font>(<\/font>$listlength<\/font>(<\/font>names<\/font>)))
    <\/font>set <\/font>color<\/font>=<\/font>$list<\/font>(<\/font>colors<\/font>,1+<\/font>$random<\/font>(<\/font>$listlength<\/font>(<\/font>colors<\/font>)))
    <\/font>set <\/font>length<\/font>=10+<\/font>$random<\/font>(90)
    <\/font>set <\/font>weight<\/font>=(10+<\/font>$random<\/font>(40))*100
    <\/font>; \u0434\u043b\u044f \u0446\u0432\u0435\u0442\u0430 \u0441\u043e\u0437\u0434\u0430\u0451\u043c \u0431\u0438\u0442\u043c\u0430\u043f-\u0438\u043d\u0434\u0435\u043a\u0441
    <\/font>do <\/font>ix<\/font>.<\/font>SetBitMap<\/font>(<\/font>idfact<\/font>,<\/font>"C"<\/font>,<\/font>color<\/font>,1)
    <\/font>; \u0434\u043b\u044f \u0432\u0435\u0441\u0430 \u0438 \u0434\u043b\u0438\u043d\u044b \u0441\u043e\u0437\u0434\u0430\u0451\u043c \u0431\u0438\u0442\u0441\u043b\u0430\u0439\u0441-\u0438\u043d\u0434\u0435\u043a\u0441\u044b
    <\/font>do <\/font>ix<\/font>.<\/font>SetBitSlice<\/font>(<\/font>idfact<\/font>,<\/font>"L"<\/font>,<\/font>length<\/font>)
    <\/font>do <\/font>ix<\/font>.<\/font>SetBitSlice<\/font>(<\/font>idfact<\/font>,<\/font>"W"<\/font>,<\/font>weight<\/font>)
    <\/font>; \u0434\u043b\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0442\u0435\u0441\u0442\u043e\u0432\u043e\u0439 \u0432\u044b\u0431\u043e\u0440\u043a\u0438 (\u0441\u043c. \u043d\u0438\u0436\u0435) \u0441\u0447\u0438\u0442\u0430\u0435\u043c
    ; \u0441\u0443\u043c\u043c\u0430\u0440\u043d\u044b\u0439 \u0432\u0435\u0441 \u0447\u0451\u0440\u043d\u044b\u0445 \u0438 \u0436\u0451\u043b\u0442\u044b\u0445 \u043a\u0440\u043e\u043a\u043e\u0434\u0438\u043b\u043e\u0432 \u0434\u043b\u0438\u043d\u043e\u0439 45-70 \u0441\u043c
    ; \u0432\u043a\u043b\u044e\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u043e
    <\/font>set<\/font>:((<\/font>color<\/font>=<\/font>"Black"<\/font>)!(<\/font>color<\/font>=<\/font>"Yellow"<\/font>))&(<\/font>length<\/font>‘<45)&(<\/font>length<\/font>‘>70) <\/font>m<\/font>=<\/font>m<\/font>+<\/font>weight
  <\/font>}
  <\/font>if $sortend<\/font>(^BMI)
  <\/font>write <\/font>m<\/font>_<\/font>" gramms total"<\/font>,!
  <\/font>kill <\/font>ix <\/font>quit
<\/font>}<\/p>\n

<\/font>\/\/\/ \u0442\u0435\u0441\u0442\u043e\u0432\u0430\u044f \u0432\u044b\u0431\u043e\u0440\u043a\u0430
ClassMethod <\/font>TestGetData()
{
  <\/font>set <\/font>ix<\/font>=..<\/font>%New<\/font>()
  <\/font>set <\/font>ix<\/font>.<\/font>BMGLOB<\/font>=<\/font>$name<\/font>(^BMI)
  <\/font>set <\/font>b<\/font>=..<\/font>GetNewTMP<\/font>(),<\/font>b1<\/font>=..<\/font>GetNewTMP<\/font>()
  <\/font>do <\/font>ix<\/font>.<\/font>BMEq<\/font>(<\/font>b<\/font>,<\/font>ix<\/font>.<\/font>GetBitMapName<\/font>(<\/font>"C"<\/font>),<\/font>"Black"<\/font>)
  <\/font>do <\/font>ix<\/font>.<\/font>BMEq<\/font>(<\/font>b1<\/font>,<\/font>ix<\/font>.<\/font>GetBitMapName<\/font>(<\/font>"C"<\/font>),<\/font>"Yellow"<\/font>)
  <\/font>do <\/font>ix<\/font>.<\/font>BMOr<\/font>(<\/font>b<\/font>,<\/font>b1<\/font>)
  <\/font>do <\/font>ix<\/font>.<\/font>BSGeLe<\/font>(<\/font>b1<\/font>,<\/font>ix<\/font>.<\/font>GetBitMapName<\/font>(<\/font>"L"<\/font>,1),45,70)
  <\/font>do <\/font>ix<\/font>.<\/font>BMAnd<\/font>(<\/font>b<\/font>,<\/font>b1<\/font>)
  <\/font>set <\/font>count<\/font>=<\/font>ix<\/font>.<\/font>BMCount<\/font>(<\/font>b<\/font>)
  <\/font>write <\/font>count<\/font>_<\/font>" items selected"<\/font>,!
  <\/font>; \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0441\u0443\u043c\u043c\u0430\u0440\u043d\u044b\u0439 \u0432\u0435\u0441 \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u043e\u0433\u043e
  <\/font>write <\/font>ix<\/font>.<\/font>BSSum<\/font>(<\/font>ix<\/font>.<\/font>GetBitMapName<\/font>(<\/font>"W"<\/font>,1),<\/font>b<\/font>)_<\/font>" gramms total"<\/font>,!
  <\/font>do <\/font>..<\/font>KillAllTMP<\/font>()
  <\/font>kill <\/font>ix <\/font>quit
<\/font>}<\/p>\n

}<\/font><\/div>\n<\/div>\n

\u0412 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u043d\u043e\u043c \u043a\u043e\u0434\u0435<\/a> \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u043f\u043e\u043b\u043d\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0434\u043b\u044f \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0445\u0440\u0430\u043d\u0438\u043b\u0438\u0449\u0430 \u0434\u0430\u043d\u043d\u044b\u0445 \u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u043e\u0432 \u0438 bitslices \u0432 \u043a\u043b\u0430\u0441\u0441\u0430\u0445 \u0438 \u0432 \u0440\u0443\u0442\u0438\u043d\u0430\u0445, \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u044e\u0449\u0438\u0439 \u0432\u0441\u0435 \u0442\u0440\u0435\u0431\u0443\u0435\u043c\u044b\u0435 \u043c\u0430\u043d\u0438\u043f\u0443\u043b\u044f\u0446\u0438\u0438 \u0441 \u044d\u0442\u0438\u043c\u0438 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430\u043c\u0438. \u0412\u043a\u043b\u044e\u0447\u0435\u043d\u044b \u0442\u0430\u043a\u0436\u0435 \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u043e\u043d\u043d\u044b\u0439 \u043c\u0435\u0442\u043e\u0434 \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0434\u0430\u043d\u043d\u044b\u043c\u0438 \u0442\u0435\u0441\u0442\u043e\u0432\u043e\u0433\u043e \u0445\u0440\u0430\u043d\u0438\u043b\u0438\u0449\u0430, \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043f\u0440\u044f\u043c\u043e \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u0442\u0441\u044f \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0433\u0440\u0443\u043f\u043f\u0438\u0440\u0443\u044e\u0449\u0435\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u2014 \u0441\u0443\u043c\u043c\u044b \u2014 \u0434\u043b\u044f \u043f\u043e\u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u0442\u0435\u0441\u0442\u043e\u0432\u043e\u0433\u043e \u0437\u0430\u043f\u0440\u043e\u0441\u0430:<\/p>\n

do <\/font>##class<\/font>(<\/font>User.BitMapSlice<\/font>).<\/font>Populate<\/font>(1000000) <\/font>; \u043c\u0438\u043b\u043b\u0438\u043e\u043d \u0437\u0430\u043f\u0438\u0441\u0435\u0439<\/font><\/p>\n

\u0438 \u043c\u0435\u0442\u043e\u0434 \u0434\u043b\u044f \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u044d\u0442\u043e\u0433\u043e \u0442\u0435\u0441\u0442\u043e\u0432\u043e\u0433\u043e \u0437\u0430\u043f\u0440\u043e\u0441\u0430, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0442\u043e\u0439 \u0436\u0435 \u0433\u0440\u0443\u043f\u043f\u0438\u0440\u0443\u044e\u0449\u0435\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u0442\u0441\u044f \u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c bitslices:<\/p>\n

do <\/font>##class<\/font>(<\/font>User.BitMapSlice<\/font>).<\/font>TestGetData<\/font>()<\/font><\/p>\n

\u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0441\u0440\u0430\u0432\u043d\u0438\u0442\u044c \u0438 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442, \u0438 \u0432\u0440\u0435\u043c\u044f, \u043f\u043e\u0442\u0440\u0430\u0447\u0435\u043d\u043d\u043e\u0435 \u043d\u0430 \u0435\u0433\u043e \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u0435.<\/p>\n

\u0414\u043b\u044f \u0442\u0435\u0445, \u043a\u043e\u043c\u0443 \u043f\u0440\u0438\u0432\u044b\u0447\u0435\u043d \u0441\u043e\u043a\u0440\u0430\u0449\u0451\u043d\u043d\u044b\u0439 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 COS, \u043d\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u044e, \u0447\u0442\u043e Cach\u00e9 Studio, \u043d\u0430\u0447\u0438\u043d\u0430\u044f \u0441 \u0432\u0435\u0440\u0441\u0438\u0438 5.2, \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0441 \u043b\u0451\u0433\u043a\u043e\u0441\u0442\u044c\u044e \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u044b\u0432\u0430\u0442\u044c<\/a> \u0432\u044b\u0434\u0435\u043b\u0435\u043d\u043d\u044b\u0439 \u0444\u0440\u0430\u0433\u043c\u0435\u043d\u0442 \u043a\u043e\u0434\u0430 \u0438\u0437 \u043f\u043e\u043b\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u044b \u0432 \u0441\u043e\u043a\u0440\u0430\u0449\u0451\u043d\u043d\u0443\u044e \u2014 Ctrl-Shift-E<\/b> \u0438 \u043e\u0431\u0440\u0430\u0442\u043d\u043e \u2014 Ctrl-E<\/b>.
\u0412 \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u0440\u043e\u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043e\u0434\u043d\u0443 \u0442\u043e\u043d\u043a\u043e\u0441\u0442\u044c. \u041f\u0440\u043e\u043c\u0435\u0436\u0443\u0442\u043e\u0447\u043d\u044b\u0435 \u0438 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0438\u0440\u0443\u044e\u0449\u0438\u0435 bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u044b \u0434\u043b\u044f \u0432\u044b\u0431\u043e\u0440\u043a\u0438 \u0440\u0435\u043a\u043e\u043c\u0435\u043d\u0434\u0443\u0435\u0442\u0441\u044f \u0441\u0442\u0440\u043e\u0438\u0442\u044c \u0432 \u0433\u043b\u043e\u0431\u0430\u043b\u0430\u0445 \u0441 \u043f\u0440\u0435\u0444\u0438\u043a\u0441\u0430\u043c\u0438 ^CacheTemp \u0438\u043b\u0438 ^mtemp. \u0422\u0430\u043a\u0438\u0435 \u0433\u043b\u043e\u0431\u0430\u043b\u044b \u0444\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u0438 \u0440\u0430\u0441\u043f\u043e\u043b\u0430\u0433\u0430\u044e\u0442\u0441\u044f \u0432 \u0431\u0430\u0437\u0435 CACHETEMP \u0438 \u0437\u0430 \u0441\u0447\u0451\u0442 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u043e\u043d\u0438 \u043d\u0435 \u0436\u0443\u0440\u043d\u0430\u043b\u0438\u0440\u0443\u044e\u0442\u0441\u044f<\/a>, \u0432 \u0447\u0451\u043c \u0443 \u043d\u0430\u0441 \u043d\u0435\u0442 \u043d\u0438\u043a\u0430\u043a\u043e\u0439 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438, \u0440\u0430\u0431\u043e\u0442\u0430 \u0441 \u043d\u0438\u043c\u0438 \u0431\u043e\u043b\u0435\u0435 \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u0430, \u0447\u0435\u043c \u0434\u0430\u0436\u0435 \u0441 \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u043c\u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u043c\u0438. \u0418\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u0445 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u0434\u043b\u044f \u044d\u0442\u043e\u0439 \u0446\u0435\u043b\u0438 \u043d\u0435\u0436\u0435\u043b\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0435\u0449\u0451 \u0438 \u043f\u043e \u0434\u0440\u0443\u0433\u043e\u0439 \u043f\u0440\u0438\u0447\u0438\u043d\u0435 \u2014 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u0443\u043f\u0435\u0440\u0435\u0442\u044c\u0441\u044f \u0432 16-\u043c\u0435\u0433\u0430\u0431\u0430\u0439\u0442\u043d\u043e\u0435 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u0438\u0435 \u043f\u0430\u043c\u044f\u0442\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u043e\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430.<\/i> <\/p>\n

\u0412\u044b\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u0435 \u043a\u0443\u0440\u0441\u0438\u0432\u043e\u043c<\/i> \u0437\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u0435 \u043d\u0435 \u043a\u0430\u0441\u0430\u0435\u0442\u0441\u044f \u0431\u043e\u043b\u0435\u0435 \u043d\u043e\u0432\u044b\u0445 \u0432\u0435\u0440\u0441\u0438\u0439 \u0421\u0423\u0411\u0414 Cach\u00e9:<\/p>\n

    \n
  1. Large Local Arrays<\/a><\/li>\n
  2. Extended Memory<\/a><\/li>\n
  3. Unlimited Local Arrays<\/a><\/li>\n<\/ol>\n<\/blockquote>\n

    \u041e\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0439 \u0432 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u043a\u043e\u0434 \u043e\u0431\u044f\u0437\u0430\u043d \u0441\u0432\u043e\u0438\u043c \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u0435\u043c \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438, \u043b\u044e\u0431\u0435\u0437\u043d\u043e \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043d\u043e\u0439 \u043a\u043e\u043c\u043f\u0430\u043d\u0438\u0435\u0439 InterSystems \u043d\u0430 \u043e\u0434\u043d\u043e\u0439 \u0438\u0437 \u043f\u0440\u0435\u0437\u0435\u043d\u0442\u0430\u0446\u0438\u0439 \u043f\u0440\u043e\u0434\u0443\u043a\u0442\u0430 DeepSee, \u0438 \u0431\u044b\u043b \u0432\u043f\u043e\u0441\u043b\u0435\u0434\u0441\u0442\u0432\u0438\u0438 \u043f\u0440\u0438\u043c\u0435\u043d\u0451\u043d \u043a\u043e\u043c\u043f\u0430\u043d\u0438\u0435\u0439 \u041c\u0430\u043a\u043e\u0432\u0430\u0421\u043e\u0444\u0442 \u0432 \u0435\u0451 \u0445\u0440\u0430\u043d\u0438\u043b\u0438\u0449\u0435 \u0434\u0430\u043d\u043d\u044b\u0445 \u041e\u0440\u0442\u043e\u0444\u0430\u043a\u0442. \t<\/p>\n

    <\/div>\n<\/p><\/div>\n

    \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 http:\/\/habrahabr.ru\/company\/intersystems\/blog\/174657\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

    \t\u0412 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e\u0439 \u0421\u0423\u0411\u0414 Cach\u00e9 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u044e\u0442\u0441\u044f bitmap- \u0438 bitslice-\u0438\u043d\u0434\u0435\u043a\u0441\u044b. \u0418\u0445 \u043e\u0447\u0435\u043d\u044c \u043f\u0440\u043e\u0441\u0442\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0432 \u043a\u043b\u0430\u0441\u0441\u0430\u0445 Cach\u00e9: \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0432 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u0438\u043d\u0434\u0435\u043a\u0441\u0430 \u0443\u043a\u0430\u0437\u0430\u0442\u044c \u043f\u0440\u0438\u0437\u043d\u0430\u043a Bitmap<\/a> \u0438\u043b\u0438 Bitslice<\/a>, \u0438 \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 SQL-\u0437\u0430\u043f\u0440\u043e\u0441\u043e\u0432 \u0443\u043b\u0443\u0447\u0448\u0430\u0435\u0442\u0441\u044f \u043a\u0430\u0440\u0434\u0438\u043d\u0430\u043b\u044c\u043d\u043e. \u041d\u043e \u043a\u0430\u043a \u044d\u0442\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442?
    \u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u0440\u0430\u0441\u043a\u0440\u044b\u0432\u0430\u0435\u0442\u0441\u044f, \u043a\u0430\u043a \u0443\u0441\u0442\u0440\u043e\u0435\u043d\u044b bitmap-\u0438\u043d\u0434\u0435\u043a\u0441\u044b, \u043a\u0430\u043a \u0441\u043e\u0437\u0434\u0430\u0442\u044c bitmap-\u0438\u043d\u0434\u0435\u043a\u0441 \u043d\u0430 \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u043b\u044c\u043d\u043e\u0439 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0435 \u0433\u043b\u043e\u0431\u0430\u043b\u043e\u0432, \u043a\u0430\u043a \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0431\u0438\u0442\u043e\u0432\u043e\u0439 \u043b\u043e\u0433\u0438\u043a\u0438 \u0438 \u043a\u0430\u043a \u044d\u0444\u0444\u0435\u043a\u0442\u0438\u0432\u043d\u043e \u0438\u0445 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043f\u0440\u0438 NoSQL \u0440\u0430\u0431\u043e\u0442\u0435 \u0432 Cach\u00e9. <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-174657","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/174657","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=174657"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/174657\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=174657"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=174657"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=174657"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}