рдиреЗрдЯрд▓реЛрдЧреЛ: рд╡рдпрд╕реНрдХреЛрдВ рдФрд░ рдмрдЪреНрдЪреЛрдВ рджреЛрдиреЛрдВ рдХреЗ рд▓рд┐рдП



рдХрдИ рдЬрдЯрд┐рд▓ рдкреНрд░рдгрд╛рд▓рд┐рдпреЛрдВ рдХреА рдЬрд╛рдВрдЪ рдХреЗрд╡рд▓ рдореЙрдбрд▓рд┐рдВрдЧ рджреНрд╡рд╛рд░рд╛ рдХреА рдЬрд╛ рд╕рдХрддреА рд╣реИред рдмрдбрд╝реА рд╕рдВрдЦреНрдпрд╛ рдореЗрдВ рд╕реНрд╡рддрдВрддреНрд░ рд╡рд╕реНрддреБрдУрдВ рд╕реЗ рдпреБрдХреНрдд рдкреНрд░рдгрд╛рд▓рд┐рдпреЛрдВ рдХреЗ рд▓рд┐рдП, рдЬреИрд╕реЗ рдХрд┐ рднреАрдбрд╝ рдХрд╛ рд╡реНрдпрд╡рд╣рд╛рд░, рдмрд╣реБрдХреЛрд╢рд┐рдХреАрдп рдЬреАрд╡реЛрдВ рдХрд╛ рд╡рд┐рдХрд╛рд╕, рдпрд╛ рд╕реИрдиреНрдп рд╕рдВрдЪрд╛рд▓рди, рдПрдЬреЗрдВрдЯ рдореЙрдбрд▓рд┐рдВрдЧ рд╕рдмрд╕реЗ рдЙрдкрдпреБрдХреНрдд рд╣реИред рдЗрд╕рдХреЗ рд▓рд┐рдП рдХрдИ рдкреНрд░рдгрд╛рд▓рд┐рдпрд╛рдВ рддреИрдпрд╛рд░ рдХреА рдЧрдИ рд╣реИрдВ, рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд░реВрд╕реА рд╕реНрд╡рд╛рдорд┐рддреНрд╡ рд╡рд╛рд▓реА AnyLogic ред
рдореИрдВ рдиреЗрдЯрд▓реЛрдЧреЛ рднрд╛рд╖рд╛ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдмрд╛рдд рдХрд░рдирд╛ рдЪрд╛рд╣рддрд╛ рд╣реВрдВ, рдЬреЛ рд╢рд┐рдХреНрд╖рд╛ рдореЗрдВ рдЦреБрдж рдХреЛ рд╕рд╛рдмрд┐рдд рдХрд░ рдЪреБрдХрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рд╡рдпрд╕реНрдХ рдХрд╛рд░реНрдпреЛрдВ рдХреЗ рд▓рд┐рдП рднреА рдЙрдкрдпреБрдХреНрдд рд╣реИред

рд╡рд╛рдХреНрдп-рд╡рд┐рдиреНрдпрд╛рд╕


рд▓реЛрдЧреЛ рд╕рд┐рдВрдЯреИрдХреНрд╕ рдиреНрдпреВрдирддрдо рд╣реИ - [] рдпрд╛ () рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реБрдП рдПрдХ рджреБрд░реНрд▓рдн рд╕рдореВрд╣реАрдХрд░рдг рдХреЗ рд╕рд╛рде рдирд╛рдореЛрдВ рдФрд░ рд╕реНрдерд┐рд░рд╛рдВрдХ рдХрд╛ рдПрдХ рдЕрд▓рдЧ-рдЕрд▓рдЧ рдЕрдиреБрдХреНрд░рдоред [] рдЕрдзрд┐рдХрд╛рдВрд╢ рдирд┐рд░реНрдорд╛рдгреЛрдВ рдореЗрдВ рдПрдХ рдмреНрд▓реЙрдХ рдореЗрдВ рд╕реВрдЪрд┐рдпрд╛рдВ рдФрд░ рд╕рдореВрд╣ рдХрдорд╛рдВрдб рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, () рд╕рдмрдПрдХреНрд╕рдкреНрд░реЗрд╕ рдХреЗ рд▓рд┐рдП рд╕рд╛рдзрд╛рд░рдг рдХреЛрд╖реНрдардХ рд╣реИрдВред рдирд╛рдо рдЖрдВрддрд░рд┐рдХ рдпрд╛ рдкреНрд░реЛрдЧреНрд░рд╛рдорд░ рдкрд░рд┐рднрд╛рд╖рд┐рдд рд╕рдВрд╕реНрдерд╛рдУрдВ рдХрд╛ рдЙрд▓реНрд▓реЗрдЦ рдХрд░рддреЗ рд╣реИрдВ - рдлрд╝рдВрдХреНрд╢рди, рдЪрд░
рдЯреАрдореЛрдВ (рдкреНрд░рдХреНрд░рд┐рдпрд╛рдУрдВ) рдХреА рдШреЛрд╖рдгрд╛ рдХреА рдЬрд╛рддреА рд╣реИ
to  [  ]  end 


рдиреЗрдЯрд▓реЛрдЧреЛ рдХреЗ рдХрд╛рд░реНрдпреЛрдВ рдХреЛ "рд╕рдВрд╡рд╛рджрджрд╛рддрд╛рдУрдВ" рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ рдФрд░ рдереЛрдбрд╝рд╛ рдЕрд▓рдЧ рддрд░реАрдХреЗ рд╕реЗ рдШреЛрд╖рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ:

 to-reporter  [  ]  report   end 


рдХрдВрдкрд╛рдЗрд▓рд░ рдкреНрд░рддреНрдпреЗрдХ рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдпрд╛ рдХрд╛рд░реНрдп рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ "arity" ("valency") рдЬрд╛рдирддрд╛ рд╣реИ рдФрд░ рдлрд┐рд░ рд╕реЗ рд╕рдореВрд╣реАрдХрд░рдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рд╣реИред рд╕рдЪ рд╣реИ, рдЙрдЪреНрдЪ рдЖрджреЗрд╢реЛрдВ рдХреЗ рдХрд╛рд░реНрдпреЛрдВ рдХреЛ рдЧрд▓рдд рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ - рдлрд┐рд░ рдЙрд╕реЗ рдХреЛрд╖реНрдардХ рдХреЗ рд░реВрдк рдореЗрдВ рдПрдХ рд╕рдВрдХреЗрдд рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛрддреА рд╣реИред

рд╣рдорд╛рд░реЗ рдХрд╛рд░реНрдп рдкрд░рд┐рднрд╛рд╖рд┐рдд рд╣реИрдВ:

 to-report inc [x] report x + 1 end to-report add [xy] report x + y end 


рдлрд┐рд░ рдЖрдк рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВ
 add add inc 1 inc 2 inc 3 
рдФрд░ рдПрдХ рдЕрдЪреНрдЫреА рддрд░рд╣ рд╕реЗ рдпреЛрдЧреНрдп рдиреМ рдкреНрд░рд╛рдкреНрдд рдХрд░реЗрдВред
рдпрд╣ рдЙрд╕реА рддрд░рд╣ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ
 map inc [1 2 3] 
рдЬреЛ [реи рей рек] рдХреА рд╕реВрдЪреА рджреЗрддрд╛ рд╣реИред рдФрд░ рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП, рдЖрдкрдХреЛ рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдХреЛрд╖реНрдардХ рд▓рд┐рдЦрдирд╛ рд╣реЛрдЧрд╛
 (map add [1 2 3] [4 5 6]) 


рдПрдЬреЗрдВрдЯреЛрдВ


рдПрдЬреЗрдВрдЯ рддреАрди рд░реВрдкреЛрдВ рдореЗрдВ рдЖрддреЗ рд╣реИрдВ - рдХрдЫреБрдП (рдХрдЫреБрдП - рд╡реЗ рдЙрдирдХреЗ рдмрд┐рдирд╛ рдХреИрд╕реЗ рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВ), рд╕рдВрдЪрд╛рд░ (рд▓рд┐рдВрдХ) рдФрд░ рд╕реНрдкреЙрдЯ (рдкреИрдЪ - рд╡реЗ рдЕрдВрддрд░рд┐рдХреНрд╖ рдореЗрдВ рдЬрдЧрд╣ рд╣реИрдВ)ред рдХрдЫреБрдП рдФрд░ рд░рд┐рд╢реНрддреЛрдВ рдХреЗ рд▓рд┐рдП, рдЖрдк рдПрдХ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдирд╕реНрд▓ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдПрдХ рд╣реА рдкреНрд░рдХрд╛рд░ рдХреЗ рдПрдЬреЗрдВрдЯреЛрдВ рдХреЛ рд╕рдВрдмрдВрдзрд┐рдд рд╕реЗрдЯ (рдПрдЬреЗрдВрдЯрд╕реЗрдЯ) рдореЗрдВ рдЬреЛрдбрд╝рд╛ рдЬрд╛рддрд╛ рд╣реИ - рдХрдЫреБрдП, рд▓рд┐рдВрдХ рдФрд░ рдкрдеред рдПрдХ рд╣реА рдирд╕реНрд▓ рдХреЗ рдкреНрд░рддрд┐рдирд┐рдзрд┐рдпреЛрдВ рдХреЛ рднреА рдПрдХ рд╕реЗрдЯ рдореЗрдВ рдЬреЛрдбрд╝рд╛ рдЬрд╛рддрд╛ рд╣реИред рдЯреАрдо рджреНрд╡рд╛рд░рд╛ рдПрдХ рдирдИ рдирд╕реНрд▓ рдмрдирд╛рдИ рдЬрд╛рддреА рд╣реИ
 breed [ninjas ninja] 
рдЬрд╣рд╛рдВ рдирд┐рдВрдЬрд╛ рдирд╕реНрд▓ рдХрд╛ рдирд╛рдо рд╣реИ, рдФрд░ рдирд┐рдиреНрдЬрд╛ рдЙрд╕ рд╕рдВрдЧреНрд░рд╣ рдХрд╛ рдирд╛рдо рд╣реИ рдЬреЛ рдЗрд╕ рдирд╕реНрд▓ рдХреЗ рд╕рднреА рдПрдЬреЗрдВрдЯреЛрдВ рдХреЛ рдПрдХ рд╕рд╛рде рд▓рд╛рддрд╛ рд╣реИред
рдПрдХ рд╡рд┐рд╢реЗрд╖ рдПрдЬреЗрдВрдЯ рднреА рд╣реИ - рдкрд░реНрдпрд╡реЗрдХреНрд╖рдХред

рдХрдЫреБрдП рдХреНрд░рд┐рдПрдЯ-рдЯрд░реНрдЯрд▓ рдХрдорд╛рдВрдб рдХреЗ рд╕рд╛рде рдмрдирд╛рдП рдЧрдП рд╣реИрдВ (рддрд░реНрдХ рдХреЗ рд╕рд╛рде рдХрдЫреБрдУрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдмрдирд╛рдИ рдЬрд╛рдиреА рд╣реИ), рдФрд░ рдлрд┐рд░ рдХрдЫреБрдП рдЗрдВрдбреЗрдХреНрд╕ рдлрд╝рдВрдХреНрд╢рди рджреНрд╡рд╛рд░рд╛ рдкрд╛рдпрд╛ рдЧрдпрд╛ред рдПрдЬреЗрдВрдЯ "рдкреНрд░рдердо рд╢реНрд░реЗрдгреА рдореВрд▓реНрдп" рд╣реИ; рдпрджрд┐ рд╡рд╛рдВрдЫрд┐рдд рд╣реИ, рддреЛ рдЗрд╕реЗ рдПрдХ рдЪрд░ рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдЗрд╕рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╢рд╛рдпрдж рд╣реА рдХрднреА рд╣реЛрддреА рд╣реИред

рдПрдХ рдПрдЬреЗрдВрдЯ рдпрд╛ рдПрдЬреЗрдВрдЯреЛрдВ рдХрд╛ рд╕рдореВрд╣ рдХрд┐рд╕реА рдЯреАрдо рдХреЗ рд▓рд┐рдП рд╕рдВрджрд░реНрдн рд╣реЛ рд╕рдХрддрд╛ рд╣реИред рдПрдЬреЗрдВрдЯреЛрдВ рдХреЗ рд╕рдВрджрд░реНрдн рдореЗрдВ рдХрд╛рд░реНрдпрдХрд╛рд░реА рдЖрджреЗрд╢ рдЙрдирдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХрд╛ рдореБрдЦреНрдп рддрдВрддреНрд░ рд╣реИред
 ask turtles [fd 1] 
рдпрд╣ рдХреЛрдб рд╕рднреА рдХрдЫреБрдУрдВ рдХреЛ рдПрдХ рдХрджрдо рдЖрдЧреЗ рдмрдврд╝рд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд╣реЗрдЧрд╛ред
 ask patch 17 13 [set pcolor pink] 
рдФрд░ рдпрд╣ рдирд░рдо рдЧреБрд▓рд╛рдмреА рд░рдВрдЧ рдореЗрдВ рдирд┐рд░реНрджреЗрд╢рд╛рдВрдХ (17,13) рдХреЗ рд╕рд╛рде рдХреНрд╖реЗрддреНрд░ рдХреЛ рдЪрд┐рддреНрд░рд┐рдд рдХрд░реЗрдЧрд╛ред

рдирд╕реНрд▓ рдХреЛ рдЧрддрд┐рд╢реАрд▓ рд░реВрдк рд╕реЗ рд╕реЗрдЯ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ
 ask turtle 1 [set bread ninjas] ask ninja 1 [set pcolor black] 


рдЪрд░


рдореВрд▓ рд▓реЛрдЧреЛ рдореЗрдВ, рдПрдХ рдбрд╛рдпрдиреЗрдорд┐рдХ рд╕реНрдХреЛрдк рд▓рд╛рдЧреВ рдХрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛, рдЬреЛ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛рдУрдВ рдХреЗ рдХреНрд╖реЗрддреНрд░ рдореЗрдВ рдЕрд╕реБрд╡рд┐рдзрд╛ рдФрд░ рд╡рд┐рд░реЛрдзрд╛рднрд╛рд╕реА рдЖрдзреБрдирд┐рдХ рд░реБрдЭрд╛рди рдкреИрджрд╛ рдХрд░рддрд╛ рд╣реИред рдиреЗрдЯрд▓реЛрдЧреЛ рдбреЗрд╡рд▓рдкрд░реНрд╕ рдиреЗ рдХрдареЛрд░ рдХрд╛рд░реНрд░рд╡рд╛рдИ рдХреА - рдЙрдиреНрд╣реЛрдВрдиреЗ рдПрдХ рд╣реА рдирд╛рдо рдХреЗ рдЪрд░ рдХреЗ рдирд┐рд░реНрдорд╛рдг рдХреА рдордирд╛рд╣реА рдХреА, рдЬрд┐рд╕рдХрд╛ рджрд╛рдпрд░рд╛ рдкреНрд░рддрд┐рдЪреНрдЫреЗрдж рд╣реЛ рд╕рдХрддрд╛ рд╣реИред рдЗрд╕рд╕реЗ рд▓рд╛рдЗрдмреНрд░реЗрд░реА рдбреЗрд╡рд▓рдкрд░реНрд╕ рдХреЛ рд╕реБрд╡рд┐рдзрд╛ рдирд╣реАрдВ рдорд┐рд▓рддреА рд╣реИ, рд▓реЗрдХрд┐рди рдпрд╣ рдЫрд╛рддреНрд░реЛрдВ рдХреЛ рдкрдврд╝рд╛рдиреЗ рдореЗрдВ рдмрд╣реБрдд рдЙрдкрдпреЛрдЧреА рд╣реИред рд╣рд╛рдВ, рдФрд░ рдореЙрдбрд▓ рдХреЗ рд╡рд┐рдХрд╛рд╕ рдореЗрдВ рд╕рдорд╛рдЬрд╢рд╛рд╕реНрддреНрд░реА рдФрд░ рд╕реИрдиреНрдп рд╡рд┐рд╢реЗрд╖рдЬреНрдЮ рдХрдо рдЧрд▓рддрд┐рдпрд╛рдВ рдХрд░реЗрдВрдЧреЗ :-)ред
рдЧреБрдВрдЬрд╛рдЗрд╢ рд╕реНрдерд┐рд░ рд╣реИ, рдЬреЛ рдЙрдЪреНрдЪ-рдХреНрд░рдо рдХреЗ рдХрд╛рд░реНрдпреЛрдВ рдХреЗ рдЙрдкрдпреЛрдЧ рдХреЛ рд╕рд░рд▓ рдХрд░рддрд╛ рд╣реИред
рдЪрд░, рдмреНрд▓реЙрдХ рдХреЗ рдПрдЬреЗрдВрдЯ рдпрд╛ рдирд╕реНрд▓, рдФрдкрдЪрд╛рд░рд┐рдХ рддрд░реНрдХ рдФрд░ рд╕реНрдерд╛рдиреАрдп рдкреНрд░рдХрд╛рд░ рдХреЗ рдореВрд▓ рдирд┐рд╡рд╛рд╕реА рд╡реИрд╢реНрд╡рд┐рдХ рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВред рдПрдХ рд╣реА рдЪрд░ рдирд╛рдо рдЪрд░ рдХреЗ рд╡рд┐рднрд┐рдиреНрди рд╡рд░реНрдЧреЛрдВ рдХреЛ рд╕рдВрджрд░реНрднрд┐рдд рдирд╣реАрдВ рдХрд░ рд╕рдХрддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдПрдХ рд╣реА рдлрд╝рдВрдХреНрд╢рди рдореЗрдВ рдЕрд▓рдЧ-рдЕрд▓рдЧ рдмреНрд▓реЙрдХреЛрдВ рдореЗрдВ рд╕реНрдерд╛рдиреАрдп рдЪрд░, рдПрдХ рд╣реА рдХрд╣рд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рд╕реНрдерд╛рдиреАрдп рдЪрд░ рдХрд╛ рдирд╛рдо рдЙрд╕ рдлрд╝рдВрдХреНрд╢рди рдХреЗ рддрд░реНрдХ рдХреЗ рдирд╛рдо рд╕реЗ рдореЗрд▓ рдирд╣реАрдВ рдЦрд╛ рд╕рдХрддрд╛ рд╣реИ рдЬрд╣рд╛рдВ рдЗрд╕реЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ рдпрд╛ рд╡реИрд╢реНрд╡рд┐рдХ рдпрд╛ рдПрдЬреЗрдВрдЯ рдЪрд░ рдХреЗ рдирд╛рдо рдХреЗ рд╕рд╛рдеред

рд╡реИрд╢реНрд╡рд┐рдХ рдЪрд░ рдХрд╛ рд╡рд░реНрдгрди рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ
 global [1 2 ...] 
рдЕрдкрдирд╛
 turtles-own [3 4 ...] ninjas-own [5 6 ...] 
рд╕реНрдерд╛рдиреАрдп рдЪрд░ рдХрдорд╛рдВрдб рджреНрд╡рд╛рд░рд╛ рдмрдирд╛рдП рдЬрд╛рддреЗ рд╣реИрдВ
 let 7 _ 


рдЙрдЪреНрдЪ рдЖрджреЗрд╢ рдХрд╛рд░реНрдп


рдХреБрдЫ рдорд╛рдирдХ рдлрд╝рдВрдХреНрд╢рдВрд╕, рдЬреИрд╕реЗ рдХрд┐ рдорд╛рдирдЪрд┐рддреНрд░, рдПрдХ рддрд░реНрдХ рдХреЗ рд░реВрдк рдореЗрдВ рдПрдХ рдФрд░ рдлрд╝рдВрдХреНрд╢рди рдкреНрд░рд╛рдкреНрдд рдХрд░рддреЗ рд╣реИрдВред рд╡реЗ рдХреЗрд╡рд▓ рдлрд╝рдВрдХреНрд╢рди рдХреЗ рдирд╛рдо рдХреЗ рдкрд╛рд╕ рд╣реЛрдиреЗ рдпрд╛ рдмрдВрдж рд╣реЛрдиреЗ рдХрд╛ рд╕рдВрдХреЗрдд рджреЗ рд╕рдХрддреЗ рд╣реИрдВред рдХреНрд▓реЛрдЬрд░ [] рдореЗрдВ рд╕рдВрд▓рдЧреНрди рдПрдХ рдХреЛрдб рд╣реИред рдпрд╣ рдПрдХ рдмрдВрдж рд╣реИ, рдПрдХ рд╕реВрдЪреА рдирд╣реАрдВ рд╣реИ, рд╕рдВрдХрд▓рдХ рд╕рдВрджрд░реНрдн рд╕реЗ рдЕрдиреБрдорд╛рди рд▓рдЧрд╛рддрд╛ рд╣реИред рдЪрд░ '?', '? 1', '2' рдФрд░ рдЗрд╕реА рддрд░рд╣ рдФрдкрдЪрд╛рд░рд┐рдХ рдорд╛рдкрджрдВрдбреЛрдВ рдХреЗ рд░реВрдк рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
рдЕрдкрдиреЗ рдЙрдЪреНрдЪ-рдХреНрд░рдо рдХреЗ рдХрд╛рд░реНрдпреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рд╣реИред рдЖрдк рдПрдХ рдЪрд░ рдЕрд╕рд╛рдЗрди рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдпрд╛ рдХрд┐рд╕реА рдЕрдиреНрдп рдлрд╝рдВрдХреНрд╢рди рдХреЛ рд╡рд┐рд╢реЗрд╖ рдХрд╛рд░реНрдп рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдПрдХ рдорд╛рди рдлрд╝рдВрдХреНрд╢рди рдкрд╛рд╕ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдФрд░ рд░рдирд░реНрд╕реЙрд▓реНрдЯ (рдпрд╛ рдХрдорд╛рдВрдб рдХреЗ рд▓рд┐рдП рд░рди) рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдПрдХ рдЪрд░ рд╕реЗ рдлрд╝рдВрдХреНрд╢рди рдХреЛ рдХреЙрд▓ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
 to test1 [f] show (runresult f 1) show (map f [2 3 4]) end test1 (task [? + 2]) 

рд╡реНрдпрдХреНрддрд┐рдЧрдд рд░реВрдк рд╕реЗ, рдореИрдВ рдЗрд╕ рджреГрд╖реНрдЯрд┐рдХреЛрдг рдХреЛ рдЙрди рдХрд╛рд░реНрдпреЛрдВ рдФрд░ рдЪрд░ рдХреЗ рдкреГрдердХреНрдХрд░рдг рдХреЗ рд╕рд╛рде рдорд╛рдирддрд╛ рд╣реВрдВ рдЬреЛ рдХрд╛рд░реНрдпреЛрдВ рдХреЛ рдЕрд╕рдлрд▓ рд╣реЛрдиреЗ рдХреЗ рд▓рд┐рдП рд╕рдВрджрд░реНрднрд┐рдд рдХрд░рддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдЗрд╕реЗ рд▓рд╛рдЧреВ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдХреЙрдорди рд▓рд┐рд╕реНрдк рдореЗрдВ, рдФрд░ рдЗрд╕рдХреЗ рдЕрдкрдиреЗ рд╕рдорд░реНрдердХ рд╣реИрдВред

рдЗрдВрдЯрд░рдлрд╝реЗрд╕ рдФрд░ рдЧреНрд░рд╛рдлрд┐рдХреНрд╕



рдХрд╛рд░реНрдпрдХреНрд░рдо рдореЗрдВ рддреАрди рдЯреИрдм (рдЯреИрдм) рд╣реИрдВ: "рдЗрдВрдЯрд░рдлрд╝реЗрд╕", рдкреНрд░рд▓реЗрдЦрди рдФрд░ рдХреЛрдб рд╕рдВрдкрд╛рджрдХред рдЯреИрдм "рдЗрдВрдЯрд░рдлрд╝реЗрд╕" рдореЗрдВ рдЧреНрд░рд╛рдлрд┐рдХ рдСрдмреНрдЬреЗрдХреНрдЯреНрд╕ рдХрд╛ рдПрдХ рдХреНрд╖реЗрддреНрд░ (рджреБрдирд┐рдпрд╛ рдХреА рдПрдХ рдЫрд╡рд┐ рд╕рд╣рд┐рдд), рдкрд╛рда рдЖрдЙрдЯрдкреБрдЯ рдФрд░ REPL рдХрд╛ рдПрдХ рдХреНрд╖реЗрддреНрд░ рд╣реИред REPL рдореЗрдВ, рдЖрдк рдЙрди рдореЛрдбреНрд╕ рдХреЛ рд╕реНрд╡рд┐рдЪ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдЬреЛ рдпрд╣ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░рддреЗ рд╣реИрдВ рдХрд┐ рдХрд┐рд╕ рд╕рдВрджрд░реНрдн рдореЗрдВ рдХрдорд╛рдВрдб рдХреЛ рдЪрд▓рд╛рдпрд╛ рдЬрд╛ рд░рд╣рд╛ рд╣реИ - "рдСрдмреНрдЬрд░реНрд╡рд░", "рдХрдЫреБрдП", "рд╕реНрдкреЙрдЯ" рдФрд░ "рд╕рдВрдЪрд╛рд░"ред REPL рд╕реАрдорд┐рдд рд╣реИ - рдЖрдк рдЗрд╕рдореЗрдВ рдЪрд░, рдирд╕реНрд▓реЛрдВ, рдкреНрд░рдХреНрд░рд┐рдпрд╛рдУрдВ рдФрд░ рдХрд╛рд░реНрдпреЛрдВ рдХрд╛ рд╡рд░реНрдгрди рдирд╣реАрдВ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ (рд╡реЗ рд╕рдВрджрд░реНрдн рд╕реЗ рдмрд╛рд╣рд░ рд╣реИрдВ), рдЖрдкрдХреЛ рдХреЛрдб рд╕рдВрдкрд╛рджрдХ рдкрд░ рдЬрд╛рдирд╛ рд╣реЛрдЧрд╛ред

рдЙрд╕ рдЬрд╝реЛрди рдореЗрдВ рдЬрд╣рд╛рдБ рджреБрдирд┐рдпрд╛ рдХреЗ рд╕рд╛рде рдХреНрд╖реЗрддреНрд░ рдЦреАрдВрдЪрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдЖрдк "рдорд╛рдЙрд╕" (рдЦрд╛рд▓реА рдЬрдЧрд╣ рдкрд░ рджрд╛рдпрд╛рдБ рдмрдЯрди рджрдмрд╛рдХрд░) рдХреЗ рд╕рд╛рде рдЕрдиреНрдп рдЧреНрд░рд╛рдлрд┐рдХ рдСрдмреНрдЬреЗрдХреНрдЯ рдФрд░ рдЗрдВрдЯрд░рдлрд╝реЗрд╕ рддрддреНрд╡ рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВред рдЙрдиреНрд╣реЗрдВ рдмрдирд╛рддреЗ рд╕рдордп, рдЙрдиреНрд╣реЗрдВ рдЙрди рдирд╛рдореЛрдВ рдХреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛрддреА рд╣реИ рдЬрд┐рдирдХреЗ рджреНрд╡рд╛рд░рд╛ рдЙрдиреНрд╣реЗрдВ рдкреНрд░реЛрдЧреНрд░рд╛рдо рд╕реЗ рдПрдХреНрд╕реЗрд╕ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рдкреНрд░реЛрдЧреНрд░рд╛рдореЗрдЯрд┐рдХ рд░реВрдк рд╕реЗ, рдореБрдЭреЗ рдЧреНрд░рд╛рдлрд┐рдХ рдСрдмреНрдЬреЗрдХреНрдЯ рдЬрдирд░реЗрдЯ рдХрд░рдиреЗ рдХрд╛ рдХреЛрдИ рддрд░реАрдХрд╛ рдирд╣реАрдВ рдорд┐рд▓рд╛ рд╣реИред рдлрд╝рд╛рдЗрд▓ рдореЗрдВ, рдХреЛрдб рдХреЗ рдмрд╛рдж рдпреЗ рдСрдмреНрдЬреЗрдХреНрдЯ рдЯреЗрдХреНрд╕реНрдЯ рдлреЙрд░реНрдо рдореЗрдВ рд╕рд╣реЗрдЬреЗ рдЬрд╛рддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдореИрдиреНрдпреБрдЕрд▓ рд╕рдВрдкрд╛рджрди рдХреЗ рд▓рд┐рдП рдЕрдиреБрдкрдпреБрдХреНрдд рд░реВрдк рдореЗрдВред
рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдпрджрд┐ рд╣рдо "рдкреНрд▓реЙрдЯ 1" рдирд╛рдо рдХреЗ рд╕рд╛рде рдПрдХ "рдЧреНрд░рд╛рдл" рдмрдирд╛рддреЗ рд╣реИрдВ, рддреЛ рдХрдорд╛рдВрдб
 set-current-plot "Class Histogram" histogram map [position ? [red green blue]] ([color] of turtles) 
рд▓рд╛рд▓, рд╣рд░реЗ рдФрд░ рдиреАрд▓реЗ рд░рдВрдЧ рдореЗрдВ рдХрдЫреБрдП рдХреЗ рд╡рд┐рддрд░рдг рдХрд╛ рдПрдХ рдЧреНрд░рд╛рдл рдмрдирд╛рдПрдВ (рдпрд╣ рдорд╛рдирддреЗ рд╣реБрдП рдХрд┐ рдЕрдиреНрдп рдирд╣реАрдВ рдорд┐рд▓рддреЗ рд╣реИрдВ)ред

рдореЙрдбрд▓ рд▓рд╛рдЗрдмреНрд░реЗрд░реА


рдиреЗрдЯрд▓реЛрдЧреЛ рд╢реИрдХреНрд╖рд┐рдХ рдФрд░ рдордиреЛрд░рдВрдЬрди рд╕реЗ рд▓реЗрдХрд░ рдЕрдиреБрд╕рдВрдзрд╛рди рддрдХ рдореЙрдбрд▓ рдХреА рдПрдХ рд╡рд┐рд╕реНрддреГрдд рд▓рд╛рдЗрдмреНрд░реЗрд░реА рдХреЗ рд╕рд╛рде рдЖрддрд╛ рд╣реИред рдХреБрдЫ рдореЙрдбрд▓ рд╡рд┐рд╢реЗрд╖ рд╣рд╛рд░реНрдбрд╡реЗрдпрд░ рдХреЗ рд╕рд╛рде рд╕рдВрд╡рд╛рдж рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдЬреИрд╕реЗ рдХрд┐ GoGo рдмреЛрд░реНрдб ред
рдлрд╝рд╛рдЗрд▓ рдореЗрдиреВ рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдореЙрдбрд▓ рдХреЗ рд▓рд┐рдП рдореЙрдбрд▓ рддрдХ рдкрд╣реБрдВрдЪ рдмрдирд╛рдИ рдЬрд╛рддреА рд╣реИред рдПрдХ рдирд┐рдпрдо рдХреЗ рд░реВрдк рдореЗрдВ, рдореЙрдбрд▓ рдХреЗ рдЗрдВрдЯрд░рдлрд╝реЗрд╕ рдореЗрдВ рд╕реЗрдЯрдЕрдк рдФрд░ рдЧреЛ рдмрдЯрди рд╣реИрдВ рдФрд░ рдЙрдиреНрд╣реЗрдВ рд╢реБрд░реВ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЖрдкрдХреЛ рдЗрд╕ рдХреНрд░рдо рдореЗрдВ рдХреНрд▓рд┐рдХ рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред рд╕реЗрдЯрдЕрдк рдореЙрдбрд▓ рдХреЛ рдЗрдирд┐рд╢рд┐рдпрд▓рд╛рдЗрдЬрд╝ рдХрд░рддрд╛ рд╣реИ, рдЬрд┐рд╕рдХреЗ рдмрд╛рдж рдЗрд╕рдХреА рд╕реЗрдЯрд┐рдВрдЧреНрд╕ рдХреЛ рдЗрдВрдЯрд░рдлреЗрд╕ рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдмрджрд▓рд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред

Source: https://habr.com/ru/post/In220589/


All Articles