{"id":263880,"date":"2015-08-19T16:13:03","date_gmt":"2015-08-19T12:13:03","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=263880"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=263880","title":{"rendered":"\u0412 \u043f\u043e\u0438\u0441\u043a\u0430\u0445 \u0430\u043d\u0430\u043b\u043e\u0433\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u0430 \u0432 \u0421\u0423\u0411\u0414 Cach\u00e9"},"content":{"rendered":"

\t\u041f\u043e\u0441\u0442 \u043d\u0430\u043f\u0438\u0441\u0430\u043d \u0432 \u0434\u043e\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u043a \u0441\u0442\u0430\u0442\u044c\u0435 \u0414\u0435\u043a\u043b\u0430\u0440\u0430\u0442\u0438\u0432\u043d\u0430\u044f \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u043d\u0430 Cach\u00e9<\/a>.<\/p>\n

[2, 3, 5, 7, 11, 13, 17].forEach(function(i) {   console.log(i); }); <\/code><\/pre>\n
  \u041a\u0430\u043a \u0434\u0435\u043b\u0430\u0442\u044c \u0442\u0430\u043a\u043e\u0435 \u0432 Cach\u00e9 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e COS<\/a>?
  \u041f\u043e\u0434 \u043a\u0430\u0442\u043e\u043c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0443\u043f\u0440\u0430\u0436\u043d\u0435\u043d\u0438\u0439 \u043d\u0430 \u0437\u0430\u0434\u0430\u043d\u043d\u0443\u044e \u0442\u0435\u043c\u0443.
  <\/a>
  \u0427\u0442\u043e\u0431\u044b \u0443\u0432\u0438\u0434\u0435\u0442\u044c, \u043a\u0430\u043a \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c\u0438 COS \u2014 \u043e\u0434\u043d\u043e\u0433\u043e \u0438\u0437 \u0441\u0435\u0440\u0432\u0435\u0440\u043d\u044b\u0445 \u044f\u0437\u044b\u043a\u043e\u0432, \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0445 \u0432 Cach\u00e9 \u2014 \u043c\u043e\u0436\u043d\u043e \u0434\u043e\u0431\u0438\u0442\u044c\u0441\u044f \u0442\u0430\u043a\u043e\u0433\u043e \u0436\u0435 \u043b\u0430\u043a\u043e\u043d\u0438\u0447\u043d\u043e\u0433\u043e, \u043d\u0430\u0433\u043b\u044f\u0434\u043d\u043e\u0433\u043e \u0438 \u0433\u0438\u0431\u043a\u043e\u0433\u043e \u043a\u043e\u0434\u0430, \u0431\u044b\u043b \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0430\u043d \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441 test.ForEach \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u044f\u043c\u0438-\u0441\u043f\u0438\u0441\u043a\u0430\u043c\u0438.  <\/p>\n
\u0418\u0441\u0445\u043e\u0434\u043d\u044b\u0439 \u043a\u043e\u0434 \u043a\u043b\u0430\u0441\u0441\u0430 test.ForEach<\/b><\/p>\n
\/\/\/ \u041a\u043b\u0430\u0441\u0441-\u0438\u0442\u0435\u0440\u0430\u0442\u043e\u0440 \u0434\u043b\u044f \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0439.
  Class test.ForEach Extends %RegisteredObject <\/font>[ <\/font>Final <\/font>]
  {
  <\/font>\/\/\/ \u041a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u044f-\u0441\u043f\u0438\u0441\u043e\u043a <s>\u043f\u043e\u0447\u0442\u0438<\/s> \u043b\u044e\u0431\u043e\u0433\u043e \u0442\u0438\u043f\u0430.
  Property <\/font>collection <\/font>As %Collection.AbstractList <\/font>[ <\/font>Internal<\/font>, <\/font>Private<\/font>, <\/font>ReadOnly<\/font>, <\/font>Transient <\/font>];
  <\/font>\/\/\/ \u0418\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 <property>collection<\/property>.
  \/\/\/ <br><br> \u0414\u043e\u043f\u0443\u0441\u0442\u0438\u043c\u044b\u0435 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u044b <var>val<\/var>:
  \/\/\/ <br> <li>\u043e\u0431\u044a\u0435\u043a\u0442 \u043a\u043b\u0430\u0441\u0441\u0430-\u043d\u0430\u0441\u043b\u0435\u0434\u043d\u0438\u043a\u0430 \u043e\u0442 %Collection.AbstractList;
  \/\/\/ <br> <li>\u0441\u043f\u0438\u0441\u043e\u043a \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0432 \u0444\u043e\u0440\u043c\u0430\u0442\u0435 $List;
  \/\/\/ <br> <li>\u0441\u043f\u0438\u0441\u043e\u043a \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0432 \u0444\u043e\u0440\u043c\u0430\u0442\u0435 \u0441\u0442\u0440\u043e\u043a\u0438. \u0412 \u044d\u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 <var>sep<\/var> — \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u0432 \u0441\u0442\u0440\u043e\u043a\u0435;
  Method <\/font>%OnNew(<\/font>val<\/font>, <\/font>sep <\/font>= <\/font>","<\/font>) <\/font>As %Status <\/font>[ <\/font>Private<\/font>, <\/font>ServerOnly <\/font>= 1 ]
  {
      <\/font>if $IsObject<\/font>(<\/font>val<\/font>) <\/font>{
          <\/font>quit<\/font>:’<\/font>val<\/font>.<\/font>%Extends<\/font>(<\/font>"%Collection.AbstractList"<\/font>) <\/font>$$$ERROR<\/font>(<\/font>$$$OrefInvalid<\/font>,<\/font>val<\/font>)
          <\/font>set <\/font>r%collection=<\/font>val
      <\/font>}<\/font>else<\/font>{
          <\/font>set <\/font>r%collection=<\/font>##class<\/font>(<\/font>%ListOfDataTypes<\/font>).<\/font>%New<\/font>()
          <\/font>do <\/font>..<\/font>collection<\/font>.<\/font>InsertList<\/font>(<\/font>$select<\/font>(<\/font>$listvalid<\/font>(<\/font>val<\/font>):<\/font>val<\/font>,1:<\/font>$listfromstring<\/font>(<\/font>val<\/font>,<\/font>sep<\/font>)))
      <\/font>}
      <\/font>quit $$$OK
  <\/font>}
  <\/font>\/\/\/ \u041e\u0441\u043d\u043e\u0432\u043d\u043e\u0439 \u043c\u0435\u0442\u043e\u0434-\u043e\u0431\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a.
  \/\/\/ <br>
  \/\/\/ <br>\u0410\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u044b:
  \/\/\/ <br>
  \/\/\/ <br><var>func<\/var>:<ol><li>\u0438\u043c\u044f \u043c\u0435\u0442\u043e\u0434\u0430 \u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440\u0430 \u043a\u043b\u0430\u0441\u0441\u0430<\/li><li>\u0438\u043c\u044f \u043c\u0435\u0442\u043e\u0434\u0430 \u043a\u043b\u0430\u0441\u0441\u0430 (\u043b\u044e\u0431\u043e\u0433\u043e)<\/li><li>\u043a\u043e\u0434 \u0432 \u0444\u043e\u0440\u043c\u0430\u0442\u0435 \u043a\u043e\u043c\u0430\u043d\u0434\u044b <link href=\/DocBook.UI.Page.cls?KEY=RCOS_cxecute>xecute<\/link><\/li><li>\u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0441\u043e\u043a\u0440\u0430\u0449\u0451\u043d\u043d\u044b\u0435 \u043a\u043e\u043c\u0430\u043d\u0434\u044b<\/li><\/ol>
  \/\/\/ \u041f\u0440\u0438\u043c\u0435\u0440\u044b \u0432\u044b\u0437\u043e\u0432\u0430:<example>
  \/\/\/ s obj=##class(test.ForEach).%New("2,3,5")
  \/\/\/ ; \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 \u0431\u0443\u0434\u0435\u0442 \u0432\u044b\u0437\u0432\u0430\u043d \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u043c\u0435\u0442\u043e\u0434 \u043a\u043b\u0430\u0441\u0441\u0430 \u0441 \u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0435\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u043e\u0432.
  \/\/\/ ; \u041f\u0435\u0440\u0432\u044b\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 \u0432\u044b\u0445\u043e\u0434\u043d\u043e\u0439\/\u0432\u0445\u043e\u0434\u043d\u043e\u0439, \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 — \u0432\u0445\u043e\u0434\u043d\u044b\u0435, \u043d\u043e \u044d\u0442\u043e \u043b\u0438\u0448\u044c \u0441\u043f\u043e\u0441\u043e\u0431 \u0441\u043e\u0433\u043b\u0430\u0448\u0435\u043d\u0438\u044f.
  \/\/\/ ; \u041f\u0440\u0438 \u0436\u0435\u043b\u0430\u043d\u0438\u0438 \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043c\u0435\u043d\u044f\u0442\u044c \u0438\u0445 \u043c\u0435\u0441\u0442\u0430\u043c\u0438, \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0432\u044b\u0445\u043e\u0434\u043d\u044b\u0445 \u0438 \u0442.\u0434.
  \/\/\/ d obj.Do("className:methodName",.result,param1,param2,paramN)
  \/\/\/ ; \u0441\u0443\u043c\u043c\u0430 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 (\u0438\u043c\u0435\u0435\u0442 \u0441\u043c\u044b\u0441\u043b \u043b\u0438\u0448\u044c \u0434\u043b\u044f \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 \u0447\u0438\u0441\u0435\u043b)
  \/\/\/ d obj.Do("+",.result)
  \/\/\/ ; \u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u0435 (\u0438\u043c\u0435\u0435\u0442 \u0441\u043c\u044b\u0441\u043b \u043b\u0438\u0448\u044c \u0434\u043b\u044f \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 \u0447\u0438\u0441\u0435\u043b)
  \/\/\/ d obj.Do("*",.result)
  \/\/\/ ; \u043a\u043e\u043d\u043a\u0430\u0442\u0435\u043d\u0430\u0446\u0438\u044f \u0441 \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u0435\u043c (\u0438\u043c\u0435\u0435\u0442 \u0441\u043c\u044b\u0441\u043b \u043b\u0438\u0448\u044c \u0434\u043b\u044f \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0442\u0438\u043f\u043e\u0432)
  \/\/\/ d obj.Do("_",.result,separator)
  \/\/\/ ; \u043c\u0438\u043d\u0438\u043c\u0443\u043c (\u0438\u043c\u0435\u0435\u0442 \u0441\u043c\u044b\u0441\u043b \u043b\u0438\u0448\u044c \u0434\u043b\u044f \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0442\u0438\u043f\u043e\u0432)
  \/\/\/ d obj.Do("min",.result)
  \/\/\/ ; \u043c\u0430\u043a\u0441\u0438\u043c\u0443\u043c (\u0438\u043c\u0435\u0435\u0442 \u0441\u043c\u044b\u0441\u043b \u043b\u0438\u0448\u044c \u0434\u043b\u044f \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0442\u0438\u043f\u043e\u0432)
  \/\/\/ d obj.Do("max",.result)
  \/\/\/ ; \u0441\u0440\u0435\u0434\u043d\u0435\u0435 (\u0438\u043c\u0435\u0435\u0442 \u0441\u043c\u044b\u0441\u043b \u043b\u0438\u0448\u044c \u0434\u043b\u044f \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 \u0447\u0438\u0441\u0435\u043b)
  \/\/\/ d obj.Do("avg",.result)
  \/\/\/ ; \u043b\u044e\u0431\u043e\u0439 \u043a\u043e\u0434, \u0433\u0434\u0435 el=\u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438, args=\u043f\u0435\u0440\u0435\u0434\u0430\u043d\u043d\u044b\u0435 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u044b
  \/\/\/ d obj.Do($lb("s args(1,1)=args(1,1)+el"),.result) ; \u044d\u043a\u0432\u0438\u0432\u0430\u043b\u0435\u043d\u0442 "+"
  \/\/\/ ; \u0432\u044b\u0437\u043e\u0432 \u043f\u043e\u0434\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b sub^prog \u0441 \u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0435\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u043e\u0432
  \/\/\/ d obj.Do($lb("d sub^prog(el,args…)"),.result,param1,param2,paramN)
  \/\/\/ <\/example>
  \/\/\/ 
  Method <\/font>Do(<\/font>func <\/font>= <\/font>"+"<\/font>, <\/font>Args…<\/font>) <\/font>As %Status
  <\/font>{
    <\/font>#define <\/font>ReturnOnError(%expr) <\/font>s sc=%expr ret:$$$ISERR<\/font>(<\/font>sc<\/font>) <\/font>sc
    
      quit<\/font>:’..<\/font>collection<\/font>.<\/font>Count<\/font>() <\/font>$$$OK
      
      if <\/font>func<\/font>=<\/font>"+" <\/font>{
          <\/font>set <\/font>func<\/font>=<\/font>$listbuild<\/font>(<\/font>"s args(1,1)=args(1,1)+el"<\/font>)
      <\/font>}<\/font>elseif <\/font>func<\/font>=<\/font>"*" <\/font>{
          <\/font>set <\/font>func<\/font>=<\/font>$listbuild<\/font>(<\/font>"s args(1,1)=args(1,1)*el"<\/font>)
      <\/font>}<\/font>elseif <\/font>func<\/font>=<\/font>"_" <\/font>{
          <\/font>set <\/font>func<\/font>=<\/font>$listbuild<\/font>(<\/font>"s args(1,1)=args(1,1)_args(1,2)_el"<\/font>)
      <\/font>}<\/font>elseif <\/font>func<\/font>=<\/font>"min" <\/font>{
          <\/font>set <\/font>func<\/font>=<\/font>$listbuild<\/font>(<\/font>"s:el<args(1,1) args(1,1)=el"<\/font>),<\/font>Args<\/font>(1)=999999999999999
      <\/font>}<\/font>elseif <\/font>func<\/font>=<\/font>"max" <\/font>{
          <\/font>set <\/font>func<\/font>=<\/font>$listbuild<\/font>(<\/font>"s:el>args(1,1) args(1,1)=el"<\/font>),<\/font>Args<\/font>(1)=-999999999999999
      <\/font>}<\/font>elseif <\/font>func<\/font>=<\/font>"avg" <\/font>{
          <\/font>set <\/font>func<\/font>=<\/font>$listbuild<\/font>(<\/font>"s args(1,1)=el\/args(1,2)+args(1,1)"<\/font>),<\/font>Args<\/font>=2,<\/font>Args<\/font>(2)=..<\/font>collection<\/font>.<\/font>Count<\/font>() <\/font>kill <\/font>Args<\/font>(1)
      <\/font>}
      
      <\/font>if $listvalid<\/font>(<\/font>func<\/font>) <\/font>{
          <\/font>set <\/font>cmd<\/font>=<\/font>$list<\/font>(<\/font>func<\/font>)
          
          <\/font>$$$ReturnOnError<\/font>(<\/font>##class<\/font>(<\/font>%Routine<\/font>).<\/font>CheckSyntax<\/font>(<\/font>" "<\/font>_<\/font>cmd<\/font>))
          
          <\/font>set <\/font>cmd<\/font>=<\/font>"(el,args…){"<\/font>_<\/font>cmd<\/font>_<\/font>"}"
          
        <\/font>set <\/font>key <\/font>= <\/font>""
        <\/font>for <\/font>{
            <\/font>set <\/font>el <\/font>= ..<\/font>collection<\/font>.<\/font>GetNext<\/font>(.<\/font>key<\/font>)
            <\/font>quit<\/font>:<\/font>key<\/font>=<\/font>""
          <\/font>xecute <\/font>(<\/font>cmd<\/font>,<\/font>el<\/font>,.<\/font>Args<\/font>)
        <\/font>}
      }<\/font>else<\/font>{
          <\/font>if <\/font>func<\/font>[<\/font>":" <\/font>{
            <\/font>set <\/font>className<\/font>=<\/font>$piece<\/font>(<\/font>func<\/font>,<\/font>":"<\/font>,1)
            <\/font>set <\/font>methodName<\/font>=<\/font>$piece<\/font>(<\/font>func<\/font>,<\/font>":"<\/font>,2)
            <\/font>quit<\/font>:’<\/font>##class<\/font>(<\/font>%Dictionary.MethodDefinition<\/font>).<\/font>IDKEYExists<\/font>(<\/font>className<\/font>,<\/font>methodName<\/font>) <\/font>$$$ERROR<\/font>(<\/font>$$$MethodDoesNotExist<\/font>,<\/font>func<\/font>)
            <\/font>quit<\/font>:’<\/font>$$$defMemberKeyGet<\/font>(<\/font>className<\/font>,<\/font>"m"<\/font>,<\/font>methodName<\/font>,23) <\/font>$$$ERROR<\/font>(<\/font>$$$GeneralError<\/font>,<\/font>$$$FormatText<\/font>(<\/font>"\u041c\u0435\u0442\u043e\u0434 %1 \u043d\u0435 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043c\u0435\u0442\u043e\u0434\u043e\u043c \u043a\u043b\u0430\u0441\u0441\u0430 %2"<\/font>,<\/font>methodName<\/font>,<\/font>className<\/font>))
            <\/font>set <\/font>key <\/font>= <\/font>""
            <\/font>for <\/font>{
                <\/font>set <\/font>el <\/font>= ..<\/font>collection<\/font>.<\/font>GetNext<\/font>(.<\/font>key<\/font>)
                <\/font>quit<\/font>:<\/font>key<\/font>=<\/font>""
              <\/font>$$$ReturnOnError<\/font>(<\/font>$classmethod<\/font>(<\/font>className<\/font>,<\/font>methodName<\/font>,<\/font>el<\/font>,.<\/font>Args<\/font>))
            <\/font>}
          }<\/font>else<\/font>{
            <\/font>set <\/font>methodName<\/font>=<\/font>func
            <\/font>set <\/font>key <\/font>= <\/font>""
            <\/font>for <\/font>{
                <\/font>set <\/font>el <\/font>= ..<\/font>collection<\/font>.<\/font>GetNext<\/font>(.<\/font>key<\/font>)
                <\/font>quit<\/font>:<\/font>key<\/font>=<\/font>""
                <\/font>set <\/font>className<\/font>=<\/font>$classname<\/font>(<\/font>el<\/font>)
                <\/font>return<\/font>:’<\/font>##class<\/font>(<\/font>%Dictionary.MethodDefinition<\/font>).<\/font>IDKEYExists<\/font>(<\/font>className<\/font>,<\/font>methodName<\/font>) <\/font>$$$ERROR<\/font>(<\/font>$$$MethodDoesNotExist<\/font>,<\/font>className<\/font>_<\/font>":"<\/font>_<\/font>methodName<\/font>)
                <\/font>return<\/font>:<\/font>$$$defMemberKeyGet<\/font>(<\/font>className<\/font>,<\/font>"m"<\/font>,<\/font>methodName<\/font>,23) <\/font>$$$ERROR<\/font>(<\/font>$$$GeneralError<\/font>,<\/font>$$$FormatText<\/font>(<\/font>"\u041c\u0435\u0442\u043e\u0434 %1 \u043d\u0435 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043c\u0435\u0442\u043e\u0434\u043e\u043c \u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440\u0430 \u043a\u043b\u0430\u0441\u0441\u0430 %2"<\/font>,<\/font>methodName<\/font>,<\/font>className<\/font>))
              <\/font>$$$ReturnOnError<\/font>(<\/font>$method<\/font>(<\/font>el<\/font>,<\/font>methodName<\/font>,.<\/font>Args<\/font>))
            <\/font>}
          }
      }
      
      <\/font>quit $$$OK
  <\/font>}
  <\/font>\/\/\/ <example>d ##class(test.ForEach).Test()<\/example>
  ClassMethod <\/font>Test() [ <\/font>Internal <\/font>]
  {
      <\/font>set <\/font>old<\/font>=<\/font>$system<\/font>.Process<\/font>.<\/font>Undefined<\/font>(2)
      <\/font>try<\/font>{
          <\/font>;==============================  \u041a\u041e\u041b\u041b\u041b\u0415\u041a\u0426\u0418\u042f \u041f\u0420\u041e\u0421\u0422\u042b\u0425 \u0422\u0418\u041f\u041e\u0412 \u0414\u0410\u041d\u041d\u042b\u0425  =============================
          <\/font>set <\/font>t<\/font>=<\/font>##class<\/font>(<\/font>test.ForEach<\/font>).<\/font>%New<\/font>(<\/font>"2,3,5"<\/font>)
          <\/font>;s t=##class(test.ForEach).%New("2,3,5,asd")
          ;s t=##class(test.ForEach).%New(##class(test.ForEach).%New()) ; \u0440\u0430\u0441\u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0438\u0440\u0443\u0439\u0442\u0435, \u0447\u0442\u043e\u0431\u044b \u0443\u0432\u0438\u0434\u0435\u0442\u044c \u043e\u0448\u0438\u0431\u043a\u0443
          <\/font>if <\/font>‘<\/font>$IsObject<\/font>(<\/font>t<\/font>) <\/font>$$$ThrowStatus<\/font>(<\/font>%objlasterror<\/font>)
          
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"test.myclass:Dump"<\/font>,!!!
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"test.myclass:Dump"<\/font>)) 
          <\/font>; \u0438\u043b\u0438 $$$ThrowOnError(t.Do("test.myclass:Dump",.result))
          
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"test.myclass:Dump(.r=""result"",""p1"",""p2"")"<\/font>,!!!
          <\/font>set <\/font>r<\/font>=<\/font>"result" <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"test.myclass:Dump"<\/font>,.<\/font>r<\/font>,<\/font>"p1"<\/font>,<\/font>"p2"<\/font>))
          
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"test.myclass:Sum(.r)"<\/font>,!!!
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"test.myclass:Sum"<\/font>,.<\/font>r<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          <\/font>;$$$ThrowOnError(t.Do("test.myclass:Sum",.r,5)) ; \u0440\u0430\u0441\u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0438\u0440\u0443\u0439\u0442\u0435, \u0447\u0442\u043e\u0431\u044b \u0443\u0432\u0438\u0434\u0435\u0442\u044c \u043e\u0448\u0438\u0431\u043a\u0443
          
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"+10"<\/font>,!! <\/font>set <\/font>r<\/font>=10
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(,.<\/font>r<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"+"<\/font>,!! <\/font>kill <\/font>r
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(,.<\/font>r<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"*"<\/font>,!! <\/font>set <\/font>r<\/font>=1
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"*"<\/font>,.<\/font>r<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"_ + \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c=""^"""<\/font>,!! <\/font>kill <\/font>r
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"_"<\/font>,.<\/font>r<\/font>,<\/font>"^"<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"min (\u0432\u0445\u043e\u0434\u043d\u043e\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 \u043d\u0435 \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f)"<\/font>,!!!
          <\/font>set <\/font>r<\/font>=<\/font>"asd" <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"min"<\/font>,.<\/font>r<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"max (\u0432\u0445\u043e\u0434\u043d\u043e\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 \u043d\u0435 \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f)"<\/font>,!!!
          <\/font>set <\/font>r<\/font>=<\/font>"asd" <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"max"<\/font>,.<\/font>r<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"avg (\u0432\u0445\u043e\u0434\u043d\u043e\u0439 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442 \u043d\u0435 \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f)"<\/font>,!!!
          <\/font>set <\/font>r<\/font>=<\/font>"asd" <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"avg"<\/font>,.<\/font>r<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"s args(1,1)=args(1,1)+el"<\/font>,!!!
          <\/font>kill <\/font>r <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>$listbuild<\/font>(<\/font>"s args(1,1)=args(1,1)+el"<\/font>),.<\/font>r<\/font>))    <\/font>write <\/font>r<\/font>,!
          
          <\/font>write <\/font>!,<\/font>"=========="<\/font>,!,<\/font>"d sub^prog(el,args…) [.r=""r"",""p1"",""p2""]"<\/font>,!!!
          <\/font>set <\/font>r<\/font>=<\/font>"r"    <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>$listbuild<\/font>(<\/font>"d sub^prog(el,args…)"<\/font>),.<\/font>r<\/font>,<\/font>"p1"<\/font>,<\/font>"p2"<\/font>))
          <\/font>;==============================  \u041a\u041e\u041b\u041b\u041b\u0415\u041a\u0426\u0418\u042f \u0421\u041b\u041e\u0416\u041d\u042b\u0425 \u0422\u0418\u041f\u041e\u0412 \u0414\u0410\u041d\u041d\u042b\u0425  =============================
          <\/font>set <\/font>list<\/font>=<\/font>##class<\/font>(<\/font>%ListOfObjects<\/font>).<\/font>%New<\/font>()
          <\/font>for <\/font>i<\/font>=<\/font>"f1"<\/font>,<\/font>"f2"<\/font>,<\/font>"f3" <\/font>do <\/font>list<\/font>.<\/font>Insert<\/font>(<\/font>##class<\/font>(<\/font>test.myclass<\/font>).<\/font>%New<\/font>(<\/font>i<\/font>))
          <\/font>;f i="f1","f2","f3",7 d list.Insert(##class(test.myclass).%New(i))
          
          <\/font>set <\/font>t<\/font>=<\/font>##class<\/font>(<\/font>test.ForEach<\/font>).<\/font>%New<\/font>(<\/font>list<\/font>)
          <\/font>if <\/font>‘<\/font>$IsObject<\/font>(<\/font>t<\/font>) <\/font>$$$ThrowStatus<\/font>(<\/font>%objlasterror<\/font>)
          
          <\/font>write <\/font>!,<\/font>"++++++++++"<\/font>,!,<\/font>"test.myclass:Dump"<\/font>,!!!
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"test.myclass:Dump"<\/font>))
          
          <\/font>write <\/font>!,<\/font>"++++++++++"<\/font>,!,<\/font>"PrintLn"<\/font>,!!!
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"PrintLn"<\/font>))
          
          <\/font>write <\/font>!,<\/font>"++++++++++"<\/font>,!,<\/font>"PrintLn(,""\u042d\u043b\u0435\u043c\u0435\u043d\u0442 = "")"<\/font>,!!!
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"PrintLn"<\/font>,,<\/font>"\u042d\u043b\u0435\u043c\u0435\u043d\u0442 = "<\/font>))
          
          <\/font>write <\/font>!,<\/font>"++++++++++"<\/font>,!,<\/font>"Concat(.r)"<\/font>,!! <\/font>kill <\/font>r
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"Concat"<\/font>,.<\/font>r<\/font>)) <\/font>write <\/font>"\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = "<\/font>,<\/font>r<\/font>,!
          <\/font>;$$$ThrowOnError(t.Do("Concat",.r,"f3")) w "\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 = ",r,! ; \u0440\u0430\u0441\u043a\u043e\u043c\u043c\u0435\u043d\u0442\u0438\u0440\u0443\u0439\u0442\u0435, \u0447\u0442\u043e\u0431\u044b \u0443\u0432\u0438\u0434\u0435\u0442\u044c \u043e\u0448\u0438\u0431\u043a\u0443
          <\/font>write <\/font>!,<\/font>"++++++++++"<\/font>,!,<\/font>"SetField(,""blablabla"") + PrintLn(,""\u042d\u043b\u0435\u043c\u0435\u043d\u0442 = "")"<\/font>,!!!
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"SetField"<\/font>,,<\/font>"blablabla"<\/font>)) <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>"PrintLn"<\/font>,,<\/font>"\u042d\u043b\u0435\u043c\u0435\u043d\u0442 = "<\/font>))
          
          <\/font>write <\/font>!,<\/font>"++++++++++"<\/font>,!,<\/font>"d el.PrintLn(.args)"<\/font>,!!!
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>$listbuild<\/font>(<\/font>"d el.PrintLn(.args)"<\/font>)))
          
          <\/font>write <\/font>!,<\/font>"++++++++++"<\/font>,!,<\/font>"w ""field="",el.field,!"<\/font>,!!!
          <\/font>$$$ThrowOnError<\/font>(<\/font>t<\/font>.<\/font>Do<\/font>(<\/font>$listbuild<\/font>(<\/font>"w ""field="",el.field,!"<\/font>)))
      <\/font>}<\/font>catch<\/font>(<\/font>ex<\/font>)<\/font>{
          <\/font>#dim <\/font>ex <\/font>As <\/font>%Exception.AbstractException
          <\/font>write <\/font>ex<\/font>.<\/font>DisplayString<\/font>()
      <\/font>}
      <\/font>do $system<\/font>.Process<\/font>.<\/font>Undefined<\/font>(<\/font>old<\/font>)
  }
  }<\/font>  <\/div>\n<\/div>\n
  \u0412 \u043a\u043e\u0434\u0435 \u043a\u043b\u0430\u0441\u0441\u0430 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u043b\u0438\u0441\u044c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 COS:  <\/p>\n