рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛ рдореЗрдВ рдкрд┐рдЫрд▓рд╛ рд▓реЗрдЦ рдЬреЗред рдПрдХ рд╢реМрдХрд┐рдпрд╛ рдХреА рдирдЬрд╝рд░ред рднрд╛рдЧ 1. рдкрд░рд┐рдЪрдпрдкреНрд░рд╢реНрди: рдпрджрд┐ рдлрд╝рдВрдХреНрд╢рди рдбреЗрдЯрд╛ рдмрджрд▓рддреЗ рд╣реИрдВ, рдФрд░ рдСрдкрд░реЗрдЯрд░ рдлрд╝рдВрдХреНрд╢рди рдмрджрд▓рддреЗ рд╣реИрдВ, рддреЛ рдСрдкрд░реЗрдЯрд░ рдХреМрди рдмрджрд▓рддрд╛ рд╣реИ?
рдЙрддреНрддрд░: рдХреЗрди рдЖрдЗрд╡рд░рд╕рди
рдЪрд┐рд░рд╛рдЧ рдкрдерд┐рдХ
рдЬреЗ рдЯреИрд╕реАрдЯ рдХреЗ рд╡рд┐рдЪрд╛рд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддрд╛ рд╣реИ ("рдЯреИрд╕реАрдЯ" рд╢рдмреНрдж рд╕реЗ, рдирд┐рд╣рд┐рдд) рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ, рдЬрд┐рд╕реЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдлрд╝рдВрдХреНрд╢рди (рдкреНрд░реЛрдЧреНрд░рд╛рдо) рдХреЗ рддрд░реНрдХреЛрдВ рдХреЗ рд╕реНрдкрд╖реНрдЯ рдЙрд▓реНрд▓реЗрдЦ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рд╣реИред рдореМрди рджреГрд╖реНрдЯрд┐рдХреЛрдг рдореЗрдВ рдХрд╛рд░реНрдп, рдПрдХ рдирд┐рдпрдо рдХреЗ рд░реВрдк рдореЗрдВ, рдбреЗрдЯрд╛ рд╕рд░рдгрд┐рдпреЛрдВ рдХреЗ рд╕рд╛рде рд╣реЛрддрд╛ рд╣реИ, рди рдХрд┐ рдЙрдирдХреЗ рд╡реНрдпрдХреНрддрд┐рдЧрдд рддрддреНрд╡реЛрдВ рдХреЗ рд╕рд╛рдеред
рдпрд╣ рдзреНрдпрд╛рди рд░рдЦрдирд╛ рджрд┐рд▓рдЪрд╕реНрдк рд╣реИ рдХрд┐ рдЯреИрд╕рд┐рдЯ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рдПрдкреАрдПрд▓ рд╕реЗ рдкрд╣рд▓реЗ рдмреИрдХрд╕ рджреНрд╡рд╛рд░рд╛ рдЦреЛрдЬреА рдЧрдИ рдереА рдФрд░ рдПрдлрдкреА рднрд╛рд╖рд╛ рдореЗрдВ рд▓рд╛рдЧреВ рдХреА рдЧрдИ рдереАред рдЗрд╕ рджреГрд╖реНрдЯрд┐рдХреЛрдг рдХрд╛ рд╕рдорд░реНрдерди рдХрд░рдиреЗ рд╡рд╛рд▓реА рдЖрдзреБрдирд┐рдХ рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ (рдирд┐рд╢реНрдЪрд┐рдд рд░реВрдк рд╕реЗ, рдЬреЗ) рдПрдХ рдХрд╛ рдирд╛рдо рдлреЛрд░реНрдЯ рдФрд░ рдЕрдиреНрдп рд╕рдВрдЧреАрдд рд╕рдВрдмрдВрдзреА рднрд╛рд╖рд╛рдУрдВ рдХреЗ рд╕рд╛рде-рд╕рд╛рде рд╣рд╛рд╕реНрдХреЗрд▓ (рдмрд┐рдВрджреБ-рдореБрдХреНрдд рджреГрд╖реНрдЯрд┐рдХреЛрдг рдХреЗ рдХрд╛рд░рдг) рд░рдЦ рд╕рдХрддрд╛ рд╣реИред
1. рдХреНрд░рд┐рдпрд╛
рд╣рдорд╛рд░реА рдкрд╣рд▓реА рдХреНрд░рд┐рдпрд╛ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реЗрдВред рд╕реБрд╡рд┐рдзрд╛ рдХреЗ рд▓рд┐рдП, рд╣рдо рдорд╛рди рд╕рдХрддреЗ рд╣реИрдВ рдХрд┐ рдПрдХ рдХреНрд░рд┐рдпрд╛ рдПрдХ рдлрд╝рдВрдХреНрд╢рди рд╣реИ рдЬреЛ рдбрд┐рдлрд╝реЙрд▓реНрдЯ рд░реВрдк рд╕реЗ рджрд┐рдП рдЧрдП рддрд░реНрдХреЛрдВ рдХреЗ рд╕рд╛рде рд╣реИред рдЗрдВрдЯрд░рдкреНрд░реЗрдЯрд░ рдЬреЗ рдЦреЛрд▓реЗрдВ, рдкрд░рд┐рдЪрдп рджреЗрдВ
neg =: -
рдЬрд╣рд╛рдБ "рдирдХрд╛рд░рд╛рддреНрдордХ" рд╣рдорд╛рд░реЗ рдХреНрд░рд┐рдпрд╛ рдХрд╛ рдирд╛рдо рд╣реИ, "=:" рдЕрд╕рд╛рдЗрдирдореЗрдВрдЯ рдСрдкрд░реЗрдЯрд░ рд╣реИ, "-" рдХреНрд░рд┐рдпрд╛ рдХрд╛ рд╡рд╛рд╕реНрддрд╡рд┐рдХ рдирд┐рдХрд╛рдп рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рдЕрдВрддрд░реНрдирд┐рд╣рд┐рдд рдХреНрд░рд┐рдпрд╛ "-" рдХрд╣рддреЗ рд╣реИрдВред рдЕрдм рдЖрдЗрдП рдЕрдкрдиреЗ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдПрдХ рдЕрд░реНрде рдореЗрдВ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реЗрдВ (рдпрд╛рдиреА, рдЗрд╕реЗ рдХреЙрд▓ рдХрд░реЗрдВ)ред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдЗрдХрд╛рдИ рдХреЗ рд▓рд┐рдП:
neg 1 _1
рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рдЙрджрд╛рд╣рд░рдг рд╕реЗ рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, рдкрд░рд┐рдгрд╛рдо рд╕рдВрдЦреНрдпрд╛ "-1" рд╣реИ (рдЬреЗ рдореЗрдВ, рдПрдХ рдЕрдВрдбрд░рд╕реНрдХреЛрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдирдХрд╛рд░рд╛рддреНрдордХ рд╕рдВрдЦреНрдпрд╛ рд▓рд┐рдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ рд╢реВрдиреНрдп рдХрд╛ рдЙрдкрдпреЛрдЧ рдЕрдВрддрд░реНрдирд┐рд╣рд┐рдд рдХреНрд░рд┐рдпрд╛ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ)ред
рдЕрдм рд╣рдо рдПрдХ рдЪрд░ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВ (J рдореЗрдВ рдЗрд╕реЗ "рд╕рдВрдЬреНрдЮрд╛") "x" рдХрд╣рддреЗ рд╣реИрдВ рдФрд░ рдЗрд╕реЗ -1 рдХрд╛ рдорд╛рди рдкреНрд░рджрд╛рди рдХрд░рддреЗ рд╣реИрдВ:
x =: _1
рд╣рдо рдЙрдореНрдореАрдж рдХрд░рддреЗ рд╣реИрдВ рдХрд┐ рдирдХрд╛рд░рд╛рддреНрдордХ x рдирд┐рд░реНрдорд╛рдг рд╣рдореЗрдВ рд╡рд╛рдкрд╕ рд▓реМрдЯрд╛ рджреЗрдЧрд╛ред рдпрд╣ рд╕рдЪ рд╣реИ:
neg x 1
рдпрд╣ рдХреЙрд▓ рд╕рд░рд▓ рд╣реИ
- x 1
рдПрдХ рдФрд░ рдЙрджрд╛рд╣рд░рдг:
x _1 neg -
рдпрд╛рдиреА рдЪрд░ "x" рдХрд╛ рдорд╛рди "-1" рд╣реИ, рдФрд░ рдХреНрд░рд┐рдпрд╛ рдХрд╛ рдореВрд▓реНрдп рдЗрд╕рдХрд╛ рд╢рд░реАрд░ рд╣реИред рдЖрдк "9 !: 3" рдХреНрд░рд┐рдпрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╕реНрдХреНрд░реАрди рдкрд░ рдкреНрд░рджрд░реНрд╢рд┐рдд рдореВрд▓реНрдпреЛрдВ рдХреЛ рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВред
рдПрдХ рдФрд░ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реЗрдВ, рдЬреЛ рдЕрдВрддрд░реНрдирд┐рд╣рд┐рдд рдХреНрд░рд┐рдпрд╛ рдХреЗ рд▓рд┐рдП рдПрдХ рд╕рд░рд▓ рдкрд░реНрдпрд╛рдп рднреА рд╣реЛрдЧрд╛:
twice =: +:
рдпрд╣ рдХреНрд░рд┐рдпрд╛ рдЕрдкрдиреЗ рддрд░реНрдХ рдХреЗ рдЕрд░реНрде рдХреЛ рджреЛрдЧреБрдирд╛ рдХрд░ рджреЗрддреА рд╣реИред рдпрд╣рд╛рдВ рдЖрдк рдХреНрд░рд┐рдпрд╛рдУрдВ рдХреЗ рдирд╛рдордХрд░рдг рдореЗрдВ рдкреИрдЯрд░реНрди рдХрд╛ рдкрддрд╛ рд▓рдЧрд╛ рд╕рдХрддреЗ рд╣реИрдВ - рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдпрджрд┐ рдХреНрд░рд┐рдпрд╛ "+:" рдЗрд╕рдХреЗ рддрд░реНрдХ рдХреЛ рджреЛрдЧреБрдирд╛ рдХрд░рддреА рд╣реИ, рддреЛ рдХреНрд░рд┐рдпрд╛ "-" рдЗрд╕рдХреЗ рддрд░реНрдХ рдХреЛ рдЖрдзрд╛ рдХрд░ рджреЗрддреА рд╣реИред
NB. x =: _1 NB. , ┬лNB.┬╗ . NB. ┬лNota Bene┬╗, ┬л ┬╗. twice x _2 twice (neg x) 2
рдФрд░ рдпрд╣рд╛рдВ рддрдХ тАЛтАЛрдХрд┐:
twice (-: 2) 2
рдФрд░ рдРрд╕рд╛ рд╣реИ
+: (+: (- 2)) _8
2. рдореЛрдирд╛рдбреНрд╕ рдФрд░ рдбрд╛рдИрдПрдбреНрд╕
рдпрд╣ рдЦрдВрдб рд╣рд╛рд╕реНрдХреЗрд▓ рд╕реЗ рд╕рдВрдмрдВрдзрд┐рдд рдирд╣реАрдВ рд╣реИред
рдХреНрд░рд┐рдпрд╛рдУрдВ рдХреЛ рдПрдХ рдпрд╛ 2 рддрд░реНрдХреЛрдВ рдХреЗ рд╕рд╛рде рдмреБрд▓рд╛рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред J рдХреЗ рд╕рдВрджрд░реНрдн рдореЗрдВ рдПрдХ рддрд░реНрдХ (рдСрдкрд░реЗрдВрдб) рдХреЗ рд╕рд╛рде рдПрдХ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдПрдХ рдореЛрдирд╛рдб рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ, рдФрд░ рджреЛ рддрд░реНрдХреЛрдВ рдХреЗ рд╕рд╛рде - рдПрдХ рд░рд╛рдЧред рдмрд╛рдж рдХреЗ рдорд╛рдорд▓реЗ рдореЗрдВ, рддрд░реНрдХ рдХреЛ рдмрд╛рдПрдВ рдФрд░ рджрд╛рдПрдВ (рдХреНрд░рдорд╢рдГ рдкрд╣рд▓рд╛ рдФрд░ рджреВрд╕рд░рд╛ рддрд░реНрдХ) рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред рд╣рдорд╛рд░реЗ рдкрд╣рд▓реЗ рдорда рдХреЛ рдпрд╛рдж рдХрд░реЗрдВ:
minus =: - minus 1 _1 minus 7 _7
рд▓реЗрдХрд┐рди рдЬрд┐рд╕ рдХреНрд░рд┐рдпрд╛ рдХреЛ рд╣рдордиреЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд┐рдпрд╛ рд╣реИ рдЙрд╕реЗ рджреЛ рддрд░реНрдХреЛрдВ рдХреЗ рд╕рд╛рде рдХрд╣рд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ:
4 minus 2 2 12 minus 5 7
рдЗрд╕ рдорд╛рдорд▓реЗ рдореЗрдВ, рдХреНрд░рд┐рдпрд╛ рдорд╛рдЗрдирд╕ рдХрд╛ рдЙрдкрдпреЛрдЧ рдПрдХ рд░рдВрдЬрдХ рдХреЗ рд░реВрдк рдореЗрдВ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдФрд░, рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрди рдХреЗ рдкрд░рд┐рдгрд╛рдорд╕реНрд╡рд░реВрдк, рдХреНрд░рдорд╢рдГ "4тАУ2" рдФрд░ "12-5" рдХреА рдЧрдгрдирд╛ рдХреА рдЬрд╛рддреА рд╣реИред
рджреЛ рддрд░реНрдХ рдЕрдзрд┐рдХрддрдо рд╣реИрдВ рдЬреЛ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рдиреЗ рдФрд░ рдЖрд╣реНрд╡рд╛рди рдХрд░рдиреЗ рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд┐рдП рдЬрд╛ рд╕рдХрддреЗ рд╣реИрдВред
рдХреЛрдИ рд╕реЛрдЪ рд╕рдХрддрд╛ рд╣реИ рдХрд┐ рдЕрдЧрд░ рдЬреЗ рднрд╛рд╖рд╛ рдиреЗ рджреЛ-рдЖрдпрд╛рдореА рд╡рд╛рдХреНрдпрд╡рд┐рдиреНрдпрд╛рд╕ (рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдЧреВрдврд╝ рднрд╛рд╖рд╛) рдХрд╛ рд╕рдорд░реНрдерди рдХрд┐рдпрд╛ рд╣реИ, рддреЛ рддрд░реНрдХ рдХреЗрд╡рд▓ рдмрд╛рдИрдВ рдУрд░ рдФрд░ рджрд╛рдИрдВ рдУрд░ рдирд╣реАрдВ, рдмрд▓реНрдХрд┐ рдКрдкрд░ рд╕реЗ рдиреАрдЪреЗ рддрдХ рд▓рд┐рдЦреЗ рдЬрд╛ рд╕рдХрддреЗ рд╣реИрдВред рд╕реМрднрд╛рдЧреНрдп рд╕реЗ, рдХреЗрд╡рд▓ рд▓реАрдирд┐рдпрд░ рд╕рд┐рдВрдЯреИрдХреНрд╕ J рдореЗрдВ рд╕рдорд░реНрдерд┐рдд рд╣реИред
рдПрдХ рдФрд░ рдЙрджрд╛рд╣рд░рдг рджреЗрдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдХреНрд░рд┐рдпрд╛ "div" рдХреЛ рдЕрдВрддрд░реНрдирд┐рд░реНрдорд┐рдд рдХреНрд░рд┐рдпрд╛ "%" рдХреЗ рдкрд░реНрдпрд╛рдп рдХреЗ рд░реВрдк рдореЗрдВ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, "%" рдПрдХ рдбрд┐рд╡реАрдЬрди рдСрдкрд░реЗрдЯрд░ рд╣реИ, рдЕрдзрд┐рдХ рдкрд░рд┐рдЪрд┐рдд "/" рдкреНрд░рддреАрдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рдЕрдиреНрдп рдХрд╛рд░реНрдпреЛрдВ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ (рдмрд╛рдж рдореЗрдВ рд╣рдо рджрд┐рдЦрд╛рдПрдВрдЧреЗ рдХрд┐ рдХреНрдпреЛрдВ)ред
div =:
рдЗрд╕ рдЙрджрд╛рд╣рд░рдг рдореЗрдВ, рдХреНрд░рд┐рдпрд╛ рдХреЛ рдбрд╛рдпрдб рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ рдФрд░ рдХреНрд░рдорд╢рдГ 1 рдХреЛ 2 рдФрд░ 4 рд╕реЗ 3 рд╕реЗ рд╡рд┐рднрд╛рдЬрд┐рдд рдХрд░рддрд╛ рд╣реИред рдФрд░ рдзреНрдпрд╛рди рджреЗрдВ рдХрд┐ рд╣рд╛рд▓рд╛рдВрдХрд┐ рдСрдкрд░реЗрдВрдб рдкреВрд░реНрдгрд╛рдВрдХ рд╣реИрдВ, рд╡рд┐рднрд╛рдЬрди рдкрд░рд┐рдгрд╛рдо рдПрдХ рдлреНрд▓реЛрдЯрд┐рдВрдЧ-рдкреЙрдЗрдВрдЯ рд╕рдВрдЦреНрдпрд╛ рд╣реИред
рдЬрдм рдПрдХ рдСрдкрд░реЗрдВрдб рдХреЗ рд╕рд╛рде рдХреЙрд▓ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рдХреНрд░рд┐рдпрд╛ "%" рдбрд┐рдлрд╝реЙрд▓реНрдЯ рд░реВрдк рд╕реЗ рдпреВрдирд┐рдЯ рдХреЛ рдЗрд╕ рдСрдкрд░реЗрдВрдб рдореЗрдВ рд╡рд┐рднрд╛рдЬрд┐рдд рдХрд░рддреА рд╣реИред
div 2 0.5 div 4 0.25
рдЙрдкрд░реЛрдХреНрдд рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХреЛ рдХреНрд░рдорд╢рдГ "1% 2" рдФрд░ "1% 4" рд▓рд┐рдЦрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред
рдЙрдкрд░реЛрдХреНрдд рдЙрджрд╛рд╣рд░рдг рдореЗрдВ, рднрд╛рд╖рд╛ рдХреА рдПрдХ рдорд╣рддреНрд╡рдкреВрд░реНрдг рд╡рд┐рд╢реЗрд╖рддрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ - рдПрдХ рд╣реА рдХреНрд░рд┐рдпрд╛ рдХреЗ рдореЛрдирдб рдФрд░ рдбрд┐рдпрд╛рдб рдХреЙрд▓ рдЕрд░реНрде рдореЗрдВ рдХрд╛рдлреА рднрд┐рдиреНрди рдХрд╛рд░реНрдп рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдХреНрд░рд┐рдпрд╛рддреНрдордХ "*:" рд░рд╛рдХреНрд╖рд╕реА рдорд╛рдорд▓реЗ рдореЗрдВ рдЕрдкрдиреЗ рддрд░реНрдХ рдХреЗ рд╡рд░реНрдЧ рдХреА рдЧрдгрдирд╛ рдХрд░рддрд╛ рд╣реИ, рдФрд░ рдбрд╛рдпрдбрд┐рдХ рдорд╛рдорд▓реЗ рдореЗрдВ рдпрд╣ рддрд╛рд░реНрдХрд┐рдХ рдСрдкрд░реЗрд╢рди "рдиреЙрдЯ-рдПрдВрдб" рдХрд░рддрд╛ рд╣реИ:
*: 3 9 *: 4 16 0 *: 0 1 1 *: 1 0 0 *: 1 1 1 *: 0 1
рдХреНрд░рд┐рдпрд╛ рдХреЗ рд▓рд┐рдП рд╕реНрдкрд╖реНрдЯ рд░реВрдк рд╕реЗ рдЗрд╕рдХреЗ рдмрд╛рдПрдВ рдпрд╛ рджрд╛рдПрдВ рддрд░реНрдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдХреНрд░рд┐рдпрд╛ "[" рдФрд░ "]" рдХрд╛ рдЗрд░рд╛рджрд╛ рд╣реИред рдЙрдирдореЗрдВ рд╕реЗ рдкрд╣рд▓рд╛ рдЕрдкрдирд╛ рдмрд╛рдПрдВ рддрд░реНрдХ рджреЗрддрд╛ рд╣реИ, рджреВрд╕рд░рд╛ - рджрд╛рдпрд╛рдВред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП:
11 [ 22 11 11 ] 22 22 ] 33 33 [ 44 NB. , , [ . 44
рд╣рдо рдЕрдкрдиреЗ рд╕рд╛рдорд╛рди рдХреЛ рдирд┐рд░рдВрддрд░ рдХреНрд░рд┐рдпрд╛рдУрдВ "0:", "1:", "2:", ..., "9:" рдХреЗ рд╕рд╛рде рдкреВрд░рдХ рдХрд░рддреЗ рд╣реИрдВред рдЙрдиреНрд╣реЗрдВ рдирд┐рд░рдВрддрд░ рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ рдХреНрдпреЛрдВрдХрд┐ рд╣рдо рдЙрдиреНрд╣реЗрдВ рдЬреЛ рднреА рддрд░реНрдХ рджреЗрддреЗ рд╣реИрдВ, рд╡реЗ рд╣рдореЗрд╢рд╛ рдЙрд╕реА рдореВрд▓реНрдп рдХреЛ рд╡рд╛рдкрд╕ рдХрд░реЗрдВрдЧреЗред "0:" рд╢реВрдиреНрдп рд╡рд╛рдкрд╕ рдЖ рдЬрд╛рдПрдЧрд╛, "1:" - рдПрдХ, рдЖрджрд┐ред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП:
7 3: 9 3 3: 7 3
3. рдпреВрдирд┐рдпрдиреЛрдВ
рдЖрдЧреЗ рдорд╛рди рд▓реАрдЬрд┐рдП рдХрд┐ рдПрдХ рд╣реА рдХреНрд░рд┐рдпрд╛ рдХреЗ рд▓рд┐рдП рдпрд╣ рдЖрд╡рд╢реНрдпрдХ рд╣реИ рдХрд┐ рдПрдХрд╛рджрд╢реА (рдПрдХ рддрд░реНрдХ рдХреЗ рд╕рд╛рде) рдФрд░ рдбрд╛рдпрджрд┐рдХ (рджреЛ рддрд░реНрдХреЛрдВ рдХреЗ рд╕рд╛рде) рдХреЙрд▓ рдХреЗ рд▓рд┐рдП рдЕрд▓рдЧ-рдЕрд▓рдЧ рд╡реНрдпрд╡рд╣рд╛рд░ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рдПред рдпрд╣ рдПрдХ рдЕрдЪреНрдЫреА рддрд░рд╣ рд╕реЗ рд╕реНрдерд╛рдкрд┐рдд рдЗрдЪреНрдЫрд╛ рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ J рдПрдХ рдЧрддрд┐рд╢реАрд▓ рднрд╛рд╖рд╛ рд╣реИ, рдФрд░ рд╣рдорд╛рд░рд╛ рдХреЛрдб рджреБрд░реБрдкрдпреЛрдЧ рд╕реЗ рд╕реБрд░рдХреНрд╖рд┐рдд рдирд╣реАрдВ рд╣реИред рдХреНрд░рд┐рдпрд╛ рдХреЗ рдореЛрдиреИрдб рдФрд░ рдбрд╛рдЗрдПрдбрд┐рдХ рд╡реНрдпрд╡рд╣рд╛рд░ рдХреЛ рдЕрд▓рдЧ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдПрдХ рд╡рд┐рд╢реЗрд╖ рд╕рдВрдШ ":" рд╣реИред
рдпрджрд┐ рд╣рдо рдХрд╣рддреЗ рд╣реИрдВ рдХрд┐ рдПрдХ рдХреНрд░рд┐рдпрд╛ рдПрдХ рдлрд╝рдВрдХреНрд╢рди рд╣реИ рдЬрд┐рд╕рдореЗрдВ рдбрд┐рдлрд╝реЙрд▓реНрдЯ рд░реВрдк рд╕реЗ рдПрдХ рдпрд╛ рджреЛ рддрд░реНрдХ рд╣реЛрддреЗ рд╣реИрдВ, рдФрд░ рддрд░реНрдХреЛрдВ рдХрд╛ рдорд╛рди рдпрд╛ рддреЛ рдПрдХ рдЪрд░ рдпрд╛ рддрд╛рддреНрдХрд╛рд▓рд┐рдХ рдорд╛рди рд╣реЛ рд╕рдХрддрд╛ рд╣реИ, рддреЛ, рдЗрд╕ рдорд╛рдорд▓реЗ рдореЗрдВ, "рдпреВрдирд┐рдпрди" рдПрдХ рдРрд╕рд╛ рдлрд╝рдВрдХреНрд╢рди рд╣реИ рдЬреЛ рджреЛ рдХреЗ рд░реВрдк рдореЗрдВ рд╣реИ (рдФрд░ рдХреЗрд╡рд▓ рджреЛ) рддрд░реНрдХ рдХреНрд░рд┐рдпрд╛рдУрдВ рдХреЛ рд▓реЗрддреЗ рд╣реИрдВред рдпреВрдирд┐рдпрдиреЛрдВ, рд╕рд╛рде рд╣реА рдХреНрд░рд┐рдпрд╛рдУрдВ, рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╕реНрд╡рддрдВрддреНрд░ рд░реВрдк рд╕реЗ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░ рд╕рдХрддрд╛ рд╣реИред
рдпрд╣рд╛рдВ рднрд╛рд╖рдг рдХреЗ рдХреБрдЫ рд╣рд┐рд╕реНрд╕реЛрдВ (рдЬреЗ рдореЗрдВ рдЬреИрд╕рд╛ рдХрд┐ рд╣рдо рдмрд╛рдж рдореЗрдВ рджреЗрдЦреЗрдВрдЧреЗ, рд╡рд╣рд╛рдБ рднреА рд╡рд┐рд╢реЗрд╖рдг рд╣реИрдВ) рдХреЗ рд╕рд╛рде рдПрдХ рд╕рд╛рджреГрд╢реНрдп рдЦреАрдВрдЪрдирд╛ рд╕рдВрднрд╡ рд╣реЛрдЧрд╛, рд▓реЗрдХрд┐рди рдпрд╣ рд▓реЗрдЦрдХ рдХреЛ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдЗрд╕рд╕реЗ рдЕрдирд╛рд╡рд╢реНрдпрдХ рднреНрд░рдо рдкреИрджрд╛ рд╣реЛрдЧрд╛ред
рдЖрдЗрдП рд╣рдо рдЕрдкрдиреЗ рднрд┐рдХреНрд╖реБрдУрдВ рдХреЗ рдкрд╛рд╕ рд╡рд╛рдкрд╕ рдЬрд╛рдПрдВред рд╕рдВрдШ рдХреЗ рдмрд╛рдИрдВ рдУрд░ ":" рдХреНрд░рд┐рдпрд╛ рдХреА рд░рд╛рдХреНрд╖рд╕реА рдХреЙрд▓ рджрд╛рдИрдВ рдУрд░ рджрд░реНрдЬ рдХреА рдЧрдИ рд╣реИ - рджрд╛рдИрджред рдПрдХ рдЙрджрд╛рд╣рд░рдг:
v =: 1: : 2: 11 v 22 2 v 11 1
рдпрджрд┐ рдЖрдк рдХреНрд░рд┐рдпрд╛ рдХреЛ "v" рдХреЛ рдПрдХ рд░рдВрдЧ (рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, "11" рдФрд░ "22") рдХреЗ рддрд░реНрдХреЛрдВ рдХреЗ рд░реВрдк рдореЗрдВ рдХрд╣рддреЗ рд╣реИрдВ, рддреЛ рдЖрдкрдХреЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ "2:" рдореЗрдВ рд╕рдВрджрд░реНрднрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛ред рдпрджрд┐ рдПрдХ рд╕рдирдХ рдХреЗ рд░реВрдк рдореЗрдВ (рдЙрджрд╛рд╣рд░рдг рдореЗрдВ - "11" рддрд░реНрдХ рдХреЗ рд╕рд╛рде), рддреЛ "1:"ред рдФрд░ рдпреЗ рдирд┐рд░рдВрддрд░ рдХреНрд░рд┐рдпрд╛рдПрдВ рд╣реИрдВ рдЬреЛ рд╣рдореЗрд╢рд╛ рдЕрдкрдиреЗ рдЕрд░реНрде рдХреЛ рд╡рд╛рдкрд╕ рдХрд░рддреА рд╣реИрдВ: рдкрд╣рд▓реЗ рдорд╛рдорд▓реЗ рдореЗрдВ "2" рдФрд░ рджреВрд╕рд░реЗ рдореЗрдВ "1"ред
рдЕрдм рддрдХ, рд╣рдордиреЗ рдХреЗрд╡рд▓ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдиреЛрдВ рдкрд░ рдХрд╛рдо рдХрд┐рдпрд╛ рд╣реИред рдЗрд╕ рдмрд╛рд░ рд╣рдо рд╕реНрдЯреНрд░рд┐рдВрдЧреНрд╕ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ рдЬреЛ рд╕рд┐рдВрдЧрд▓ рдХреЛрдЯреНрд╕ рдореЗрдВ рд▓рд┐рдЦреЗ рдЧрдП рд╣реИрдВ (рдЬреЗ рдореЗрдВ рдбрдмрд▓ рдХреЛрдЯреНрд╕ рдПрдХ рдпреВрдирд┐рдпрди рд╣реИрдВ)ред рд╣рдо рдкрд╣рд▓реЗ рд╡рд░реНрдгрд┐рдд рдХреНрд░рд┐рдпрд╛ "v" рдХреЛ рдлрд┐рд░ рд╕реЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВ:
v =: 'monadic call' : 'dyadic call' v 11 |domain error 11 v 22 |domain error
рдЬреИрд╕рд╛ рдХрд┐ рд╣рдо рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, рд╣рдорд╛рд░реА рдкрд░рд┐рднрд╛рд╖рд╛ рдореЗрдВ рдПрдХ рддреНрд░реБрдЯрд┐ рд╣реИред рдПрдХ рд╕реНрдЯреНрд░рд┐рдВрдЧ рдПрдХ рдЕрд░реНрде рд╣реИ, рдПрдХ рдХреНрд░рд┐рдпрд╛ рдирд╣реАрдВ рд╣реИ, рдФрд░ рдЗрд╕рд▓рд┐рдП, рдпрд╣ рдХреЛрдИ рдХрд╛рд░реНрд░рд╡рд╛рдИ рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реИред рдФрд░ рдПрдХ рдХреНрд░рд┐рдпрд╛ рдХреА tacitic рдкрд░рд┐рднрд╛рд╖рд╛ рдХреЗ рд╕рд╛рде, рдХреЗрд╡рд▓ рдХреНрд░рд┐рдпрд╛рдУрдВ рдХреЗ рдЖрд╡реЗрджрди рдХреЗ рдХреНрд░рдо рдФрд░ рдЙрдирдХреЗ рд╕рдВрдпреЛрдЬрдиреЛрдВ рдХреЛ рдЗрдВрдЧрд┐рдд рдХрд░рдирд╛ рдЖрд╡рд╢реНрдпрдХ рд╣реИред
рдЖрдк рдЬрдореНрдореВ рдореЗрдВ рддрд╛рд░ рдХреЗ рд╕рд╛рде-рд╕рд╛рде рд╕рд░рдгрд┐рдпреЛрдВ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ (рдЬреЛ рд╣рдо рдереЛрдбрд╝реА рджреЗрд░ рдмрд╛рдж рдорд┐рд▓реЗрдВрдЧреЗ)ред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд╕рдВрдиреНрдпрд╛рд╕реА рдХреЙрд▓ рдореЗрдВ рдХреНрд░рд┐рдпрд╛ "#" рд╕рд░рдгреА рдХреА рд▓рдВрдмрд╛рдИ рд▓реМрдЯрд╛рддреА рд╣реИ:
# 23 1 # '12ab' 4 # '012345' 6 # '' 0
рдкрд╣рд▓реЗ рд╣рдордиреЗ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдирдХрд╛рд░рд╛рддреНрдордХ рд░реВрдк рд╕реЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд┐рдпрд╛, рдЬреЛ рд╣рдорд╛рд░реЗ рддрд░реНрдХ рдореЗрдВ рдкрд░рд┐рд╡рд░реНрддрди рдХреЛ рджрд░реНрд╢рд╛рддрд╛ рд╣реИред рд╣рд╛рд▓рд╛рдБрдХрд┐, рдпрджрд┐ рдЖрдк рдЗрд╕ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдбрд╛рдпрдбрд┐рдХ рд╕рдВрд╕реНрдХрд░рдг рдореЗрдВ рдХрд╣рддреЗ рд╣реИрдВ, рддреЛ рдирд┐рдореНрди рд╣реЛрдЧрд╛:
neg =: - 1 neg 2 _1
рдпрд╛рдиреА рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрди рдХреЗ рдмрд╛рдж, рд╣рдорд╛рд░реА рдХреНрд░рд┐рдпрд╛ рдиреЗ "1 - 2" рдХреЗ рдШрдЯрд╛рд╡ рдХреЗ рд░реВрдк рдореЗрдВ рдХрд╛рдо рдХрд┐рдпрд╛ред рдпрд╣ рдЙрдЪрд┐рдд рд╣реЛрдЧрд╛ рдХрд┐ рдХреНрд░рд┐рдпрд╛ рдХреЗ рджрд╛рдпрд░реЗ рдХреЛ рдХреЗрд╡рд▓ рдореЛрдирд╛рдб рдХреЙрд▓ рддрдХ рд╕реАрдорд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рдПред рдЬреИрд╕рд╛ рдХрд┐ рдкрд╣рд▓реЗ рдЙрд▓реНрд▓реЗрдЦ рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ, рдЬреЗ рдХреА рдЧрддрд┐рд╢реАрд▓ рдкреНрд░рдХреГрддрд┐ рд╣рдореЗрдВ рдХрд╛рд░реНрдпрдХреНрд░рдо рдирд┐рд╖реНрдкрд╛рджрди рдХреЗ рджреМрд░рд╛рди рд╕рдорд╛рди рдЬрд╛рдВрдЪ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдордЬрдмреВрд░ рдХрд░рддреА рд╣реИред рдЬреИрд╕реЗ, рд╢рд╛рдпрдж, рдЬреЗ рдореЗрдВ рдмрд╛рдХреА рд╕рдм, рдРрд╕рд╛ рдЪреЗрдХ рдЬрд┐рддрдирд╛ рд╕рдВрднрд╡ рд╣реЛ рдЙрддрдирд╛ рдЫреЛрдЯрд╛ рд▓рд┐рдЦрд╛ рдЬрд╛рддрд╛ рд╣реИ:
neg =: - : [:
рд╣рдордиреЗ рдЕрдкрдиреЗ рд▓рд┐рдП рдирдИ рдХреНрд░рд┐рдпрд╛ "[:" рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ред "J рдлреЙрд░ рд╕реА рдкреНрд░реЛрдЧреНрд░рд╛рдорд░реНрд╕" рдкреБрд╕реНрддрдХ рдореЗрдВ, рдЗрд╕ рдХреНрд░рд┐рдпрд╛ рдХреЛ "рдЖрддреНрдорд╣рддреНрдпрд╛ рдХреНрд░рд┐рдпрд╛" рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ рдХреНрдпреЛрдВрдХрд┐ рдЬрдм рдмреБрд▓рд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рдпрд╣ рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХреЛ рдХреНрд░реИрд╢ рдХрд░рдиреЗ рдХрд╛ рдХрд╛рд░рдг рдмрдирддрд╛ рд╣реИ:
neg 1 _1 1 neg 2 NB. - - |domain error
рдРрд╕реА рд╕реНрдерд┐рддрд┐рдпреЛрдВ рдХреЛ рдкрдХрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП, рдЖрдк рддрдерд╛рдХрдерд┐рдд рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред "рдЬрд╛рд▓"ред J рдореЗрдВ рд╢рдмреНрдж рдХреЗ рд╕рд╛рдорд╛рдиреНрдп рдЕрд░реНрдереЛрдВ рдореЗрдВ рдХреЛрдИ рдЕрдкрд╡рд╛рдж рдирд╣реАрдВ рд╣реИ, рдЗрд╕рдХреЗ рдмрдЬрд╛рдп рд╕рдВрдШ "::" рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
рд╕рдВрдШ "::" рдЕрдкрдиреА рдмрд╛рдИрдВ рдУрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХреЛ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░рддрд╛ рд╣реИ, рдФрд░ рдпрджрд┐ рдпрд╣ рдПрдХ рддреНрд░реБрдЯрд┐ рдХреЗ рд╕рд╛рде рд╕рдорд╛рдкреНрдд рд╣реБрдЖ, рддреЛ рдпрд╣ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХреЛ рджрд╛рдИрдВ рдУрд░ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░рддрд╛ рд╣реИред рдПрдХ рдЙрджрд╛рд╣рд░рдг:
v =: [: :: 3: 1 v 2 3 v 7 3
рдпрд╣ рдХреНрд░рд┐рдпрд╛ рд╣рдореЗрд╢рд╛ 3 рд╡рд╛рдкрд╕ рдЖрдПрдЧреА, рдХреНрдпреЛрдВрдХрд┐ рдЬреИрд╕рд╛ рдХрд┐ рд╣рдордиреЗ рдХрд╣рд╛, рдмрд╛рдИрдВ рдУрд░ рдХреА рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХреЛ рдкрд╣рд▓реЗ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛ред рдФрд░ рдмрд╛рдИрдВ рдУрд░ рд╣рдордиреЗ рдХреНрд░рд┐рдпрд╛-рдЖрддреНрдорд╣рддреНрдпрд╛ рдбрд╛рд▓ рджреАред рдЗрд╕рд▓рд┐рдП, рдХреНрд░рд┐рдпрд╛ "рд╡реА" рдХреЗ рдкреНрд░рддреНрдпреЗрдХ рдХреЙрд▓ рдХреЗ рд╕рд╛рде рд╕рдВрдпреЛрдЬрди "::" рдЖрддреНрдорд╣рддреНрдпрд╛ рдХреЛ рдкрдХрдбрд╝рддрд╛ рд╣реИ "[:" рдФрд░ рдЙрд╕ рдХреНрд░рд┐рдпрд╛ рдХреЗ рд╕рднреА рддрд░реНрдХреЛрдВ рдХреЛ рдкрд╛рд░рд┐рдд рдХрд░рддрд╛ рд╣реИ рдЬрд┐рд╕реЗ рд╣рдордиреЗ рджрд╛рдИрдВ рдУрд░ рд▓рд┐рдЦрд╛ рдерд╛, рдЕрд░реНрдерд╛рддреНред рдХреНрд░рд┐рдпрд╛ рд╕реНрдерд┐рд░рд╛рдВрдХ "3:"ред
3.1ред рд▓рдЧрд╛рддрд╛рд░ рд╕рдВрдШреЛрдВ
рдЕрдм рддрдХ, рд╣рдордиреЗ рдХреЗрд╡рд▓ рдПрдХрд▓ рдХреНрд░рд┐рдпрд╛рдУрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рд╣реИред рдЕрдиреБрдХреНрд░рдорд┐рдХ рдЧрдгрдирд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╕рдВрдШ "@" рдпрд╛ рд╡рд┐рд╢реЗрд╖ рдХреНрд░рд┐рдпрд╛ "[:" рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдЬреЛ рдХреНрд░рд┐рдпрд╛ рдХреА рд╕рдВрд░рдЪрдирд╛ рдореЗрдВ рдкрд╣рд▓рд╛ рддрддреНрд╡ рд╣реИ, рдЫреЛрдбрд╝ рджрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдФрд░ рдЕрдиреБрдХреНрд░рдорд┐рдХ рдЧрдгрдирд╛ рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ:
([: +: +:) 10 NB. (+: (+: 10)) 40 (+: @ +:) 10 NB. (+: (+: 10)) 40
рд╣рдорд╛рд░реЗ рд╕рдВрдЧреНрд░рд╣ рдореЗрдВ рдЕрдЧрд▓рд╛ рд╕рдВрдШ "рдФрд░" рд╣реИ, рдЬрд┐рд╕рдХрд╛ рд╕рд┐рджреНрдзрд╛рдВрдд рдЗрд╕ рдкреНрд░рдХрд╛рд░ рд╣реИред
u&.vy NB. v_ uvy x u&.vy NB. v_ (vx) u (vy). +:&.*: 10 14.1421
рдЬрд╣рд╛рдБ "v_inversion" рдХрд╛ рдЕрд░реНрде рдХреНрд░рд┐рдпрд╛ рдХреЗ "v" рдХреЗ рд╡рд┐рдкрд░реАрдд рд╣реЛрддрд╛ рд╣реИред рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдореЗрдВ "+: &ред *:" рдХреНрд░рд┐рдпрд╛ рдЬрд┐рд╕рдореЗрдВ рд╕реЗ рд╡реНрдпреБрддреНрдХреНрд░рдо рд▓рд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ "*:" (рдХреНрдпреЛрдВрдХрд┐ рдпрд╣ рд╕рдВрдШ рдХреЗ рджрд╛рдИрдВ рдУрд░ рдЦрдбрд╝рд╛ рд╣реИ "&"ред)ред рдФрд░ рдХреНрд░рд┐рдпрд╛ рдХрд╛ рдЙрд▓рдЯрд╛ "*:" "%:" рд╣реИред рдпрд╛рдиреА рд╡рд░реНрдЧ рдХреЗ рд╡рд┐рдкрд░реАрдд рд╡рд░реНрдЧрдореВрд▓ рд▓реЗ рд░рд╣рд╛ рд╣реИред
рд╣рдорд╛рд░реЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧреА рдПрдХ рдФрд░ рд╕рдВрдШ "&" рд╣реИ, рдЬреЛ рдХреНрд░рд┐рдпрд╛ рдореЗрдВ рдПрдХ рд╕рдВрдЬреНрдЮрд╛ (рдСрдкрд░реЗрдВрдб рд╡реИрд▓реНрдпреВ) рдХреЛ рдЬреЛрдбрд╝рдХрд░ рдПрдХ рдбрд╛рдпреИрдбрд┐рдХ рдХреЙрд▓ рд╕реЗ рдПрдХ рдПрдХрд╛рджрд╢ рдмрдирд╛рддрд╛ рд╣реИред рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рдзрд╛рд░рдгрд╛ рдХреЗ рд╕рд╛рде, рд╣рдо рдХрд╣ рд╕рдХрддреЗ рд╣реИрдВ рдХрд┐ рдЗрд╕ рд╕рдВрдШ рдиреЗ рдХрд░реАрдиреЗ рдХрд╛ рдХрд╛рдо рдХрд┐рдпрд╛ рд╣реИред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП:
inc =: 1&+ NB. inc 41 42 inc _3 _2 div3 =:
рд╣рдо рдХреЗрд╡рд▓ рдореЛрдирд╛рдб рдорд╛рдорд▓реЗ рдХреЗ рд▓рд┐рдП рд╡реЗрддрди рд╡реГрджреНрдзрд┐ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВ:
inc =: 1&+ : [: inc 1 2 1 inc 2 |domain error: inc | 1 inc 2
4. рдХреНрд░рд┐рдпрд╛рд╡рд┐рд╢реЗрд╖рдг
рдкрд╣рд▓реЗ рд╣рдордиреЗ рдХреНрд░рд┐рдпрд╛рд╡рд┐рд╢реЗрд╖рдгреЛрдВ рдХрд╛ рдЙрд▓реНрд▓реЗрдЦ рдХрд┐рдпрд╛ рдерд╛ред рдЬреЗ рднрд╛рд╖рд╛ рдХреЗ рд╕рдВрджрд░реНрдн рдореЗрдВ, рдПрдХ рдХреНрд░рд┐рдпрд╛ рд╡рд┐рд╢реЗрд╖рдг рдПрдХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╣реИ рдЬреЛ рдПрдХ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдПрдХ рддрд░реНрдХ рдХреЗ рд░реВрдк рдореЗрдВ рд▓реЗрддреА рд╣реИ рдФрд░ рдПрдХ рдирдИ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдПрдХ рдЕрд▓рдЧ рд╡реНрдпрд╡рд╣рд╛рд░ рдХреЗ рд╕рд╛рде рдмрдирд╛рддреА рд╣реИред
рд╣рдо рд╡рд┐рд╢реЗрд╖рдг "~" рджреЗрддреЗ рд╣реИрдВ, рдЬреЛ рдЕрдкрдиреЗ рдбрд╛рдпрдбрд┐рдХ рдХреЙрд▓ рдореЗрдВ рддрд░реНрдХреЛрдВ рдХреЛ рд╕реНрд╡реИрдк рдХрд░рддрд╛ рд╣реИ ("xu ~ y" рдХреЛ "yux" рдХреЗ рд▓рд┐рдП рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ) рдФрд░ рдУрдкреЗрд░рд╛ рдХреА рдореЛрдирд╛рдбрд┐рдХ рдХреЙрд▓ рдХреЛ рдмрджрд▓реЗ, рдУрдкреЗрд░рд╛ рдХреА рдирдХрд▓ рдХрд░рддреЗ рд╣реБрдП ("u ~ y" "yuy" рдХреЗ рд▓рд┐рдП рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ)ред
рд╕рдмрд╕реЗ рдЕрдзрд┐рдХ рдЗрд╕реНрддреЗрдорд╛рд▓ рдХреА рдЬрд╛рдиреЗ рд╡рд╛рд▓реА рдХреНрд░рд┐рдпрд╛рд╡рд┐рд╢реЗрд╖рдгреЛрдВ рдореЗрдВ рд╕реЗ рдПрдХ рдХреНрд░рд┐рдпрд╛ рд╡рд┐рд╢реЗрд╖рдг ("рдмреАрдЪ рдореЗрдВ") рд╣реИ, рдЬрд┐рд╕реЗ рд╣рдо рд╕рд░рдгрд┐рдпреЛрдВ рддрдХ рдЕрдиреБрднрд╛рдЧ рд╕реНрдердЧрд┐рдд рдХрд░ рджреЗрдВрдЧреЗред
5. рд╣реБрдХ рдФрд░ рдХрд╛рдВрдЯреЗ
рдЬреЗ рдХреЗ рдкрд╛рд╕ рдХрд╛рд░реНрдпреЛрдВ рдХреА рд╕рдВрд░рдЪрдирд╛ рдХрд╛ рдПрдХ рдмрд╣реБрдд рд╣реА рдЕрдЬреАрдм рддрд░реАрдХрд╛ рд╣реИ - рдпрджрд┐ рд▓рдЧрд╛рддрд╛рд░ 2 рдХреНрд░рд┐рдпрд╛рдУрдВ рдХрд╛ рд╕рдВрдХреЗрдд рджрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рдЗрд╕рдХрд╛ рдорддрд▓рдм рдпрд╣ рдирд╣реАрдВ рд╣реИ рдХрд┐ рдЙрдиреНрд╣реЗрдВ рдХреНрд░рдорд┐рдХ рд░реВрдк рд╕реЗ рд▓рд╛рдЧреВ рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛ред рдбрд╛рдпрдбрд┐рдХ рдФрд░ рдореЙрдиреЗрдбрд┐рдХ рдХреЙрд▓ рдХреЗ рд▓рд┐рдП рдЕрд▓рдЧ рд╕реЗ рдЙрдирдХреЗ рдЕрдкрдиреЗ рд╡рд┐рд╢реЗрд╖ рдХреЙрд▓ рдСрд░реНрдбрд░ рд╣реЛрдВрдЧреЗред 2 рдХреНрд░рд┐рдпрд╛рдУрдВ рдХреЗ рд▓рд┐рдП рдЗрд╕ рддрд░рд╣ рдХреА рд░рдЪрдирд╛ рдХреЛ рд╣реБрдХ (рд╣реБрдХ) рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред рдХреНрд░рд┐рдпрд╛ v рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реЗрдВ, рдЬреЛ рдХреНрд░рд┐рдпрд╛ рдХрд╛ рд╣реБрдХ рдХреЙрд▓ рд╣реИ f рдФрд░ g:
v =: fg
рдпрджрд┐ рдЖрдк v рдХреЛ рдХреБрдЫ рд╕рдВрдЬреНрдЮрд╛ y рдкрд░ рдПрдХ рд╕рдиреНрдпрд╛рд╕реА рдХрд╣рддреЗ рд╣реИрдВ:
vy
рддрдм рдпрд╣ рдХреЙрд▓ рдЗрд╕рдХреЗ рдмрд░рд╛рдмрд░ рд╣реЛрдЧреА:
yf (gy)
рдпрд╣ рдзреНрдпрд╛рди рджрд┐рдпрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдП рдХрд┐, рдХреНрд░рд┐рдпрд╛ v рдХреЗ рдореЛрдиреИрдбрд┐рдХ рдЖрд╣реНрд╡рд╛рди рдХреЗ рдмрд╛рд╡рдЬреВрдж, рд╣реБрдХ рдХреЗ рддрддреНрд╡реЛрдВ рдореЗрдВ рд╕реЗ рдПрдХ (рдЕрд░реНрдерд╛рддреН рдПрдл) рдХреЛ рдХреЗрд╡рд▓ рдСрдкрд░реЗрдВрдб рдХреЗ рдмрд╛рдИрдВ рдУрд░ рджреЛрд╣рд░рд╛рд╡ рдХреЗ рд╕рд╛рде рдПрдХ рд░рдВрдЧ рдХреЗ рд░реВрдк рдореЗрдВ рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред
рдЕрдЧрд░ рд╣рдо v рдХреЛ рдХреБрдЫ рд╕рдВрдЬреНрдЮрд╛рдУрдВ x рдФрд░ y рдкрд░ рдПрдХ рдбрд╛рдИрдб рдХрд╣рддреЗ рд╣реИрдВ:
xvy
рддрдм рдпрд╣ рдХреЙрд▓ рдЗрд╕рдХреЗ рдмрд░рд╛рдмрд░ рд╣реЛрдЧреА:
xf (gy)
рдЖрдЗрдП рд╣рдо рдХреНрд░рд┐рдпрд╛ рдЬрд╛рд▓реА
┬л#┬╗
рдпрд╛рдж рдХрд░рддреЗ рд╣реИрдВ, рдЬреЛ рдПрдХ рдореЛрдирдб рдХреЙрд▓ рдореЗрдВ рд╕реНрдЯреНрд░рд┐рдВрдЧ / рдПрд░реЗ рдХреА рд▓рдВрдмрд╛рдИ рд▓реМрдЯрд╛рддреА рд╣реИ, рдФрд░ рдбрд╛рдпрдб рдореЗрдВ рджрд╛рд╣рд┐рдиреЗ рдСрдкреЗрд░реЗрдВрдб рдХреЛ рдЙрддрдиреА рдмрд╛рд░ рдХреЙрд▓ рдХрд░рддреА рд╣реИ рдЬрд┐рддрдирд╛ рдХрд┐ рдмрд╛рдПрдВ рдСрдкреЗрдВрдб рдореЗрдВ рд╕рдВрдХреЗрдд рдорд┐рд▓рддрд╛ рд╣реИред рдПрдХ рдбрд╛рдИрдб рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реЗрдВ:
v =: # #
рд╣рдо рдЙрдкрд░реЛрдХреНрдд рдпреЛрдЬрдирд╛ рдХреЗ рдЕрдиреБрд╕рд╛рд░ рдХреНрд░рд┐рдпрд╛ v рдХреЗ рдбрд╛рдпрдбрд┐рдХ рдХреЙрд▓ рдХрд╛ рд╡рд┐рд╕реНрддрд╛рд░ рдХрд░рддреЗ рд╣реИрдВ:
# (# y)
рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, v рдПрдХ рд╕рдВрдЦреНрдпрд╛ рдХреЛ рдСрдкрд░реЗрдВрдб y, x рдмрд╛рд░ рдХреА рд▓рдВрдмрд╛рдИ рдХреЗ рдмрд░рд╛рдмрд░ рдХреЙрдкреА рдХрд░рддрд╛ рд╣реИред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП:
2 v '1234' 4 4
рдпрд╣ рдорд╛рдирд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ рдХрд┐ 3 рд▓рдЧрд╛рддрд╛рд░ рдХреНрд░рд┐рдпрд╛ рдПрдХ рд╣реБрдХ рд╕реЗ рдПрдХ рд╣реБрдХ рд╣реИред рд╣рд╛рд▓рд╛рдВрдХрд┐, рдпрд╣ рдРрд╕рд╛ рдирд╣реАрдВ рд╣реИ - рдЗрд╕рдХреЗ рдмрдЬрд╛рдп, рдПрдХ рдХрд╛рдВрдЯрд╛ рд░рдЪрдирд╛ (рддрдерд╛рдХрдерд┐рдд рдХрд╛рдВрдЯрд╛) рд▓рд╛рдЧреВ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рддреЛ, рдХрд╛рдВрдЯрд╛ рдХрд╛ рдореЛрдирдб рдХреЙрд▓
(fgh) y
рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЙрд▓ рдХреЗ рдмрд░рд╛рдмрд░:
(fy) g (hy)
рдЗрд╕ рддрд░рд╣ рдХреА рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХрд╛ рдПрдХ рдЙрджрд╛рд╣рд░рдг рд╣рдорд╛рд░реЗ рд▓рд┐рдП рдкрд╣рд▓реЗ рд╕реЗ рдЬреНрдЮрд╛рдд рдХреНрд░рд┐рдпрд╛ рд╣реИ, рдЬреЛ рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХреА рдПрдХ рдФрд╕рдд рдХреА рдЧрдгрдирд╛ рдХрд░рддрд╛ рд╣реИ:
mean =: +/
рдРрд╕реА рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЗ рдмрд░рд╛рдмрд░ рд╣реИ:
((+/ @ [ )
рдПрдХ рдФрд░ рдХрд╛рдВрдЯрд╛ рдЙрджрд╛рд╣рд░рдг рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд░реЗрдВ:
v =: # # # v '12345' 5 5 5 5 5
рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, рдпрд╣ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдСрдкрд░реЗрдВрдб рдХреА рд▓рдВрдмрд╛рдИ рдХреЗ рдмрд░рд╛рдмрд░ рдПрдХ рд╕рдВрдЦреНрдпрд╛ рдХреЛ рдХреЙрдкреА рдХрд░рддреА рд╣реИ, рдЬрд┐рддрдиреА рдмрд╛рд░ рдСрдкрд░реЗрдВрдб рдХреА рд▓рдВрдмрд╛рдИред
рдкрд┐рдЫрд▓реЗ рдХреНрд░рд┐рдпрд╛ рдХреЛ рдХрд╛рдВрдЯреЗ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдП рдмрд┐рдирд╛ рдлрд┐рд░ рд╕реЗ рд▓рд┐рдЦрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ:
((#@]) # (#@])) '12345' 5 5 5 5 5
рдбрд╛рдпрдб рдХреЙрд▓ рдкрд░ рд╕рдВрдЬреНрдЮрд╛ x рдФрд░ y рдкрд░ рдХрд╛рдВрдЯрд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реЗрдВ:
x (fgh) y
рдЬреЛ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХреЗ рдмрд░рд╛рдмрд░ рд╣реЛрдЧрд╛:
(xfy) g (xhy)
рд╣рдо рдЕрдкрдиреЗ рдкреБрд░рд╛рдиреЗ рдорд┐рддреНрд░ рдХреА рд╕рд╣рд╛рдпрддрд╛ рд╕реЗ рд░рдВрдЬрдХ рдХрд╛рдВрдЯреЗ рдХрд╛ рд╡рд░реНрдгрди рдХрд░рддреЗ рд╣реИрдВ - рдХреНрд░рд┐рдпрд╛ рдХрд╛ рдЕрд░реНрде рд╣реИ:
2 mean 3 1.66667 1.66667
рд╣рдо рдЗрд╕ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХреЛ рдкреНрд░рдХрдЯ рдХрд░реЗрдВрдЧреЗ:
(2 +/ 3)
рд╣рдореЗрдВ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХрд╛ рджрд╛рд╣рд┐рдирд╛ рднрд╛рдЧ рддреАрди рд╕реЗ 2 рдЧреБрдирд╛ рдЕрдзрд┐рдХ рд╣реИред рдФрд░ рдмрд╛рдпрд╛рдБ рдмрд╛рдПрдБ рдФрд░ рджрд╛рдПрдБ рдСрдкрд░реЗрдВрдб рдХреЗ рдпреЛрдЧ рдХреА рдЧрдгрдирд╛ рдХрд░рддрд╛ рд╣реИред рдЗрд╕ рдкреНрд░рдХрд╛рд░ рд╣рдореЗрдВ рдорд┐рд▓рддрд╛ рд╣реИ:
5
рдпрд╣ рд╕рдордЭрдирд╛ рд╡рд┐рд╢реЗрд╖ рд░реВрдк рд╕реЗ рдорд╣рддреНрд╡рдкреВрд░реНрдг рд╣реИ рдХрд┐ рдЬреЗ рдореЗрдВ рдпрджрд┐ 4 рдХреНрд░рд┐рдпрд╛рдПрдВ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХреА рдЬрд╛рддреА рд╣реИрдВ, рддреЛ рдпрд╣ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдПрдХ рдХрд╛рдВрдЯрд╛ рд╕реЗ рдПрдХ рд╣реБрдХ рд╣реЛрдЧреА, рдпрджрд┐ 5 рдПрдХ рдХрд╛рдВрдЯрд╛ рд╕реЗ рдПрдХ рдХрд╛рдВрдЯрд╛ рд╣реИ, 6 - рдПрдХ рдХрд╛рдВрдЯрд╛ рд╕реЗ рдПрдХ рдХрд╛рдВрдЯрд╛, рдЖрджрд┐ред рдпрд╛рдиреА рднрд╛рд╡ "(# # # # # # #)" рдФрд░ "(# (# # (# # # #))" рд╕рдорддреБрд▓реНрдп рд╣реИрдВред
рд╣рдо рджрд┐рдЦрд╛рддреЗ рд╣реИрдВ рдХрд┐ рдЧрдгрдирд╛ рдХреЗ рдХреНрд░рдо рдХреЛ рдмрджрд▓рдиреЗ рдХреЗ рд▓рд┐рдП рдХреЛрд╖реНрдардХреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХреИрд╕реЗ рдХрд░реЗрдВред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП:
(# # #) 3 1
рд▓реЗрдХрд┐рди
(# (# #)) 3 1 1 1 1 1 1 1 1 1
рдЕрдВрддрд┐рдо рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЗ рдмрд░рд╛рдмрд░ рд╣реИ:
3 # (3 # (# 3) 3 # 1 1 1 NB. 3 .
рдЖрдЗрдП рдХрд╛рд░реНрдпреЛрдВ рдХреА рд╕рдВрд░рдЪрдирд╛ рдХреЗ рд╕рд╛рде рдПрдХ рдФрд░ рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рдЙрджрд╛рд╣рд░рдг рджрд┐рдЦрд╛рдПрдВ
(* + -
рдпрд╣ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЗ рдмрд░рд╛рдмрд░ рд╣реИ:
3 * ((+ 3) - (
5 рдХреНрд░рд┐рдпрд╛рдУрдВ рдХрд╛ рд╕рдВрдпреЛрдЬрди рдЗрд╕ рддрд░рд╣ рджрд┐рдЦ рд╕рдХрддрд╛ рд╣реИ:
(>: * + -
рдЕрдВрддрд┐рдо рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЗ рдмрд░рд╛рдмрд░ рд╣реИ:
(>: 3) * ((+ 3) - (
рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рднрд╛рд╖рд╛ рдореЗрдВ рдЕрдЧрд▓рд╛ рд▓реЗрдЦ рдЬреЗред рдПрдХ рд╢реМрдХрд┐рдпрд╛ рдХреА рдирдЬрд╝рд░ред рднрд╛рдЧ 3. рд╕рд╛рд░рдгреА