рдХреНрд░рдордкрд░рд┐рд╡рд░реНрддрдиред 9 рд╡рд╛рдВ рджрд░реНрдЬрд╛ред рд╕рдорддрд╛ рдХрд╛рд░реНрдп

рдЫрд╡рд┐

рдордИ рдардВрдбрд╛ рд╣реЛ рдЧрдпрд╛, рд╣реАрдЯрд┐рдВрдЧ рдмрдВрдж рдХрд░ рджрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛, рдФрд░ рдХрдВрдкреНрдпреВрдЯрд┐рдВрдЧ (рдФрд░ рд╣реАрдЯрд┐рдВрдЧ) рд╢рдХреНрддрд┐рдпрд╛рдВ рдХреЛрдИ рдирд╣реАрдВ рдереАрдВ, рд▓реЗрдХрд┐рди рд╡реЗ рдирд┐рд╖реНрдХреНрд░рд┐рдп рдереЗред рддреЛ рдХреНрдпреЛрдВ рди рдЙрдиреНрд╣реЗрдВ рдХреБрдЫ рдмреЗрдХрд╛рд░ рд╕реЗ рд▓реЛрдб рдХрд┐рдпрд╛ рдЬрд╛рдП , рдЬреЛ рдЧрд░реНрдо рдФрд░ рдордиреЛрд░рдВрдЬрди рдХрд░реЗрдЧрд╛ред

рд▓реЗрдХрд┐рди рдореИрдВ рджреВрд░ рд╕реЗ рд╢реБрд░реВ рдХрд░реВрдБрдЧрд╛ред рджреВрд╕рд░реЗ рджрд┐рди, рдореБрдЭреЗ рдирд┐рдореНрди рд╢рдмреНрдж рдХреЗ рд╕рд╛рде рдПрдХ рд╣рд╛рдИ рд╕реНрдХреВрд▓ рдХреЗ рд▓рд┐рдП рдПрдХ рд╕рдорд╕реНрдпрд╛ рдЖрдИ: тАЬрдХрдИ рд▓рдЧрд╛рддрд╛рд░ рд╕рдХрд╛рд░рд╛рддреНрдордХ рдкреВрд░реНрдгрд╛рдВрдХ рдПрдХ рдкрдВрдХреНрддрд┐ рдореЗрдВ рдЗрд╕ рддрд░рд╣ рд╕реЗ рд▓рд┐рдЦреЗ рдЧрдП рдереЗ рдХрд┐ рд╣рд░ рддреАрди рд▓рдЧрд╛рддрд╛рд░ рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХрд╛ рдпреЛрдЧ рдкреВрд░реА рддрд░рд╣ рд╕реЗ рдЗрд╕ рдЯреНрд░рд┐рдкрд▓ рдХреА рдмрд╛рдИрдВ рд╕рдВрдЦреНрдпрд╛ рд╕реЗ рд╡рд┐рднрд╛рдЬрд┐рдд рд╣реИред "рдЕрдВрддрд┐рдо рдкрдВрдХреНрддрд┐ рд╕рдВрдЦреНрдпрд╛ рд╡рд┐рд╖рдо рд╣реЛрдиреЗ рдкрд░ рдЕрдзрд┐рдХрддрдо рдХрд┐рддрдиреА рд╕рдВрдЦреНрдпрд╛рдПрдБ рд▓рд┐рдЦреА рдЬрд╛ рд╕рдХрддреА рд╣реИрдВ?"

рдЗрд╕ рдкреНрд░рддрд┐рдмрдВрдз рдХреЗ рд╕рд╛рде, рдпрд╣ рд╕рд╛рдмрд┐рдд рдХрд░рдирд╛ рдЖрд╕рд╛рди рд╣реИ рдХрд┐ рд╡рд┐рд╖рдо рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХреЗ рдкреНрд░рддреНрдпреЗрдХ рдЯреНрд░рд┐рдкрд▓ рдореЗрдВ рднреА рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХреА рддреБрд▓рдирд╛ рдореЗрдВ рдЕрдзрд┐рдХ рд╣реЛрдЧрд╛ред рдФрд░ рдЪреВрдВрдХрд┐ рдЙрдирдХреЗ рдмреАрдЪ рдХрд╛ рдЕрдВрддрд░ рдПрдХ рд╕реЗ рдЕрдзрд┐рдХ рдирд╣реАрдВ рд╣реЛ рд╕рдХрддрд╛ рд╣реИ, рдЕрдиреБрдХреНрд░рдо рдХреА рдЕрдзрд┐рдХрддрдо рд▓рдВрдмрд╛рдИ рдкрд╛рдВрдЪ рд╕рдВрдЦреНрдпрд╛рдУрдВ рддрдХ рд╕реАрдорд┐рдд рд╣реИред рдФрд░ рдПрдХ рдЙрджрд╛рд╣рд░рдг рдХреЗ рд░реВрдк рдореЗрдВ, рд╣рдо рдЕрдиреБрдХреНрд░рдо 4 5 3 2 1 рджреЗ рд╕рдХрддреЗ рд╣реИрдВ ред

рд╡рд┐рд╕реНрддреГрдд рдкреНрд░рдорд╛рдг рдпрд╣рд╛рдВ рдкрд╛рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред

рд▓реЗрдХрд┐рди рдХреНрдпрд╛ рд╣реЛрдЧрд╛ рдЕрдЧрд░ рд╣рдо рдЕрдВрддрд┐рдо рд╕рдВрдЦреНрдпрд╛ рдХреА рд╡рд┐рд╖рдорддрд╛ рдкрд░ рд╕рдВрдХреЗрддрд┐рдд рдкреНрд░рддрд┐рдмрдВрдз рдХреЛ рд╣рдЯрд╛ рджреЗрдВ? рдлрд┐рд░ рджрд╛рдИрдВ рдУрд░ рдЖрдк рд╕рдВрдЦреНрдпрд╛ 7 6 8 рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВ , рдЕрдиреБрдХреНрд░рдо рдХреЛ рдЖрда рд╕рдВрдЦреНрдпрд╛рдУрдВ рддрдХ рд╡рд┐рд╕реНрддрд╛рд░рд┐рдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ ред рдЖрдк рдПрдХ рджрд░реНрдЬрди рднреА рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВ, рдФрд░ рд▓рд╛рдкрддрд╛ рдиреМ рдХреЛ рдмрд╛рдИрдВ рдУрд░ рд╕рдВрд▓рдЧреНрди рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдЦреИрд░, рдФрд░ рд╢рд╛рдпрдж рдпрд╣ рдПрдХрдорд╛рддреНрд░ рдФрд░ рд╕рдмрд╕реЗ рд▓рдВрдмрд╛ рдХреНрд░рдордЪрдп рдирд╣реАрдВ рд╣реЛрдЧрд╛ред

рджрд░рдЕрд╕рд▓, рддрд╛рд░реНрдХрд┐рдХ рд░реВрдк рд╕реЗ рддрд░реНрдХ рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░рддреЗ рд╣реБрдП, рдореБрдЭреЗ рдРрд╕реЗ рджреГрд╢реНрдпреЛрдВ рдХреА рд╕реАрдорд╛рдУрдВ рдХрд╛ рд╕рдмреВрдд рдирд╣реАрдВ рдорд┐рд▓рд╛ рдФрд░ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдХреЗ рд▓рд┐рдП рд╣реЛрдо рд╣реАрдЯрд░ рдореЗрдВ рдПрдХ рдХреИрд▓рдХреБрд▓реЗрдЯрд░ рдХреЛ рд╢рд╛рдорд┐рд▓ рдХрд░рдиреЗ рдХрд╛ рдлреИрд╕рд▓рд╛ рдХрд┐рдпрд╛ ред рд╕рднреА N рдХреА рд╡рд┐рд╕реНрддреГрдд рдЦреЛрдЬ ! рд╡рд┐рдХрд▓реНрдкреЛрдВ рдиреЗ рдЬрд▓реНрджреА рд╕реЗ рд╡рд┐рдзрд┐ рдХреА рд╡рд┐рдлрд▓рддрд╛ рдХреЛ рджрд┐рдЦрд╛рдпрд╛, рд▓реЗрдХрд┐рди рджрд┐рд╢рд╛рддреНрдордХ рдЧрдгрдирд╛ рдиреЗ рдорд╣рддреНрд╡рдкреВрд░реНрдг рдкреНрд░рдЧрддрд┐ рдХреА рдЕрдиреБрдорддрд┐ рджреА, рдФрд░ рдкрд░рд┐рдгрд╛рдо рдПрдХ рд╣реА рд╕рдордп рдореЗрдВ рдЕрдкреЗрдХреНрд╖рд┐рдд рдФрд░ рдЕрдкреНрд░рддреНрдпрд╛рд╢рд┐рдд рджреЛрдиреЛрдВ рдереЗред

рдпрд╣ рдкрддрд╛ рдЪрд▓рд╛ рдХрд┐ рд╕рднреА рдПрди рддрдХ рдФрд░ 29 рд╕рд╣рд┐рдд, 1 рд╕реЗ рдПрди рддрдХ рдХреА рд╕рдВрдЦреНрдпрд╛рдУрдВ рдХреЗ рдРрд╕реЗ рдХреНрд░рдорд╛рдВрдХрди рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рдкрд╛рдП рдЬрд╛рддреЗ рд╣реИрдВ, рд╣рд╛рд▓рд╛рдВрдХрд┐, рдПрдХ рдПрдХрд▓ рд╕рдВрд╕реНрдХрд░рдг рдореЗрдВ рд▓рдВрдмрд╛рдИ 27 рдФрд░ 29 рдХреЗ рд▓рд┐рдПред рд▓реЗрдХрд┐рди рдлрд┐рд░ рдЕрдВрддрд░рд╛рд▓ рд╣реИрдВред рдЖрдХрд╛рд░ 30, 31, 32 рдФрд░ 33 рдХреЗ рд╕рд╛рде рдХреНрд░рдордкрд░рд┐рд╡рд░реНрддрди рдХреЗ рд▓рд┐рдП, рдХреЛрдИ рд╕рдорд╛рдзрд╛рди рдирд╣реАрдВ рд╣реИрдВ, рд╕рдВрдЦреНрдпрд╛ 34 рдХреЗ рд▓рд┐рдП, рдПрдХ рд╣реИред

рдРрд╕рд╛
33 23 10 13 7 6 1 29 27 2 25 21 4 17 15 19 11 8 3 5 31 9 22 14 30 26 34 18 16 20 12 28 32 24

рдлрд┐рд░ рджреЛ рдЬрдЧрд╣ред рдорд╛рди 37 рдФрд░ 38 рдХреЗ рд▓рд┐рдП, рдРрд╕реЗ рдХреНрд░рдо рдПрдХрд▓ рдирд╣реАрдВ рд╣реИрдВ, рдФрд░ рдлрд┐рд░ рд╡рд┐рдлрд▓рддрд╛ рд╣реИред рдореИрдВ рднреА рд╣рддрд╛рд╢ рдерд╛, рдЕрдЧрд▓реЗ рджрд╕ рдкреВрд░реА рддрд░рд╣ рд╕реЗ рдЦрд╛рд▓реА рд╣реЛ рдЧрдП, рд▓реЗрдХрд┐рди рднрд╛рдЧреНрдп рдиреЗ рдореБрд╕реНрдХреБрд░рд╛рддреЗ рд╣реБрдП, рдПрди = 51 рдХреЗ рд▓рд┐рдП рдЖрд╡рд╢реНрдпрдХ рдкрд╛рд░рдЧрдорди рдЕрднреА рднреА рдкрд╛рдпрд╛ рд╣реИред

рдпреЗ рд░рд╣реА рд╡реЛ
46 45 1 44 49 39 10 29 21 37 5 32 23 41 51 31 20 11 9 2 43 35 8 27 13 14 25 3 47 40 7 33 16 17 15 19 26 50 28 22 6 38 34 4 30 18 42 48 36 12 24

рдЙрдирдореЗрдВ рд╕реЗ рджреЛ рднреА рд╣реИрдВ, рд▓реЗрдХрд┐рди рд╡реЗ рдЕрдзрд┐рдХрд╛рдВрд╢ рднрд╛рдЧ рдХреЗ рд▓рд┐рдП рдкреНрд░рддрд┐рдЪреНрдЫреЗрдж рдХрд░рддреЗ рд╣реИрдВред

рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдЦрд╛рд▓реАрдкрди рдХреА рдпреЛрдЬрдирд╛ рдлрд┐рд░ рд╕реЗ рдмрдирд╛рдИ рдЧрдИ рд╣реИ, рдХрдо рд╕реЗ рдХрдо 52 рдФрд░ 53 рдирдВрдмрд░ рдХреЗ рд▓рд┐рдП рдХреЛрдИ рд╕рдорд╛рдзрд╛рди рдирд╣реАрдВ рд╣реИ, рд▓реЗрдХрд┐рди рдореИрдВрдиреЗ рдЖрдЧреЗ рдирд╣реАрдВ рджреЗрдЦрд╛ред рдлрд┐рд░ рднреА, рдкреНрд░рддреНрдпреЗрдХ рдХрджрдо рдХреЗ рд╕рд╛рде, рдкреНрд░рддреАрдХреНрд╖рд╛ рд╕рдордп рддреЗрдЬреА рд╕реЗ рдмрдврд╝ рд░рд╣рд╛ рд╣реИ, рдФрд░ рдШрд░ рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдмрд╣реБрдд рдЧрд░реНрдо рд╣реЛ рдЧрдпрд╛ рд╣реИ, рдореИрдВрдиреЗ рдЕрдм рддрдХ рд╡рд╣рд╛рдВ рд░реБрдХрдиреЗ рдХрд╛ рдлреИрд╕рд▓рд╛ рдХрд┐рдпрд╛ред

рдпрджрд┐ рдЖрдк рдПрдХ рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ рд╕рдВрднрд╛рд╡рд┐рдд рд╡рд┐рдХрд▓реНрдкреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреЛ рдХрдо рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рдЖрдк рдирд┐рдореНрди рдЪрд╛рд░реНрдЯ рдХрд╛ рдирд┐рд░реНрдорд╛рдг рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ



рдЦреИрд░, рд╣рд╛рдВ, рдзреНрдпрд╛рди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХреБрдЫ рд╣реИред

рдореВрд▓ рд╕рдорд╕реНрдпрд╛ рдореЗрдВ, рдкреНрд░рд╛рдХреГрддрд┐рдХ рд╢реНрд░реГрдВрдЦрд▓рд╛ рдХреЛ рдПрдХ рд╕реЗ рд╢реБрд░реВ рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рдереАред рдореБрдЦреНрдп рдмрд╛рдд рдпрд╣ рд╣реИ рдХрд┐ рд╕реЗ рд╕рднреА рдирдВрдмрд░реЛрдВ рдХреЛ рд╣реИ рдПрдХ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЦ рдХрд░ рд░рд╣реЗ рд╣реИрдВ рдХреНрд░рдо рдореЗрдВ рдкрд╛рдпрд╛ред рд▓реЗрдХрд┐рди рдореИрдВрдиреЗ рдХреЛрд╢рд┐рд╢ рдХреА, рдпрд╣ рдХреЗрд╡рд▓ рдЦрд░рд╛рдм рд╣реЛ рдЬрд╛рддрд╛ рд╣реИ, рдФрд░ рднреА рдХрдо рд╡рд┐рдХрд▓реНрдк рд╣реИрдВред рдЬреЛ, рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ, рд╕рдордЭрд╛рдиреЗ рдпреЛрдЧреНрдп рд╣реИред рдмрдбрд╝реА рд╕рдВрдЦреНрдпрд╛ рдЯреНрд░рд┐рдкрд▓ рдХреА рдмрд╛рдИрдВ рд╕реНрдерд┐рддрд┐ рдореЗрдВ рд╣реИ, рдЬрд┐рддрдиреА рдХрдо рд╣реЛ рдЙрддрдиреА рдЧреБрдгрд╛ рджреЛ рдЕрдиреНрдп рдХреЗ рдпреЛрдЧ рд╕реЗ рдкреНрд░рд╛рдкреНрдд рдХреА рдЬрд╛ рд╕рдХрддреА рд╣реИ, рдЕрд░реНрдерд╛рддреНред рдХрдо рд╡рд┐рдХрд▓реНрдк рдЙрдкрд▓рдмреНрдз рд╣реИрдВред рдЦреИрд░, рдРрд╕реЗ рдЕрдиреБрдХреНрд░рдореЛрдВ рдХреА рд▓рдВрдмрд╛рдИ рдХреА рдКрдкрд░реА рд╕реАрдорд╛ рдХрд╛ рд╕рд╡рд╛рд▓ рдЦреБрд▓рд╛ рд░рд╣рддрд╛ рд╣реИред рдЖрдпрд╛рдо рдХреА рд╡реГрджреНрдзрд┐ рдХреЗ рд╕рд╛рде, рд╕рдлрд▓рддрд╛ рдХреА рд╕рдВрднрд╛рд╡рдирд╛ рд╕реНрдкрд╖реНрдЯ рд░реВрдк рд╕реЗ рдХрдо рд╣реЛ рдЧрдИ рд╣реИ, рд▓реЗрдХрд┐рди рдХреНрдпрд╛ рдпрд╣ рдЕрд╢рдХреНрдд рд╣реИ? рдпрд╛ рдЖрдЧреЗ, рд╡реЗ рд╢рд╛рдпрдж рд╣реА рдХрднреА, рдРрд╕реЗ (рд╕рдВрдпреБрдХреНрдд рд░рд╛рд╖реНрдЯреНрд░) рджрд┐рд▓рдЪрд╕реНрдк рдХреНрд░рдордкрд░рд┐рд╡рд░реНрддрди рдХрд╛ рд╕рд╛рдордирд╛ рдХрд░реЗрдВрдЧреЗред

рдЕрдВрдд рдореЗрдВ, рд╢рд╛рдпрдж рдЖрдк рд╣реАрдЯрд┐рдВрдЧ рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХрд╛ рдХреЛрдб рд▓рд╛ рд╕рдХрддреЗ рд╣реИрдВ,

рд╕рдЪ рд╡рд╣ рд╣рд╛рд╕реНрдХреЗрд▓ рдкрд░ рд╣реИ
import Data.List (delete)
import Control.Parallel.Strategies
import System.Environment

pvc :: Int -> Int -> [Int] -> [[Int]]
pvc a b [] = [[a,b]]
pvc a b xs = [a:ys | 
    x <- xs, 
    mod (a + b + x) a == 0, 
    ys <- pvc b x (delete x xs)]

gen :: Int -> [[[Int]]]
gen n = 
    let ab = [(a, b) | a <- [1..n], b <- delete a [1..n]]
    in  map hlp ab `using` parList rseq
    where
    hlp (a,b) = pvc a b $ delete a $ delete b [1..n]

main = do
    [n] <- getArgs
    print $ concat $ gen $ read n


All Articles