рдЖрддреНрдордирд┐рд░реАрдХреНрд╖рдг рдХрд╛рд░реНрдпрдХреНрд░рдореЛрдВ рдХреЗ рдореБрджреНрджреЗ рдкрд░

рдЖрддреНрдордирд┐рд░реАрдХреНрд╖рдг рдПрдХ рдкреНрд░реЛрдЧреНрд░рд╛рдо рд╣реИ рдЬреЛ рдЖрдЙрдЯрдкреБрдЯ рдХреЗ рд▓рд┐рдП рдЕрдкрдиреЗ рд╕реНрд╡рдпрдВ рдХреЗ рд╕реНрд░реЛрдд рдХреЛрдб рдХреЛ рдЖрдЙрдЯрдкреБрдЯ рдХрд░рддрд╛ рд╣реИред рд▓реЗрдХрд┐рди рдореБрдЭреЗ рдПрдХ рдФрд░ рджрд┐рд▓рдЪрд╕реНрдк рд╡рд┐рдХрд▓реНрдк рдорд┐рд▓рд╛: рдПрдХ рд╣рд╛рд╕реНрдХреЗрд▓ рдкреНрд░реЛрдЧреНрд░рд╛рдо рдЬреЛ рдПрдХ рдкрд╛рдпрдерди рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХреЛ рдЖрдЙрдЯрдкреБрдЯ рдХрд░рддрд╛ рд╣реИ рдЬреЛ рд░реВрдмреА рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХреЛ рдЖрдЙрдЯрдкреБрдЯ рдХрд░рддрд╛ рд╣реИ рдЬреЛ рдПрдХ рд╣рд╛рд╕реНрдХреЗрд▓ рд╕реНрд░реЛрдд рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХреЛ рдЖрдЙрдЯрдкреБрдЯ рдХрд░рддрд╛ рд╣реИ ред



рджреБрд░реНрднрд╛рдЧреНрдп рд╕реЗ, рдбрд┐рдЬрд╛рдЗрди "рдмрд╣рддрд╛ рд╣реИ" рдереЛрдбрд╝рд╛, рд▓реЗрдХрд┐рди рдпрд╣ рдЖрд╡рд╢реНрдпрдХ рд╣реИ:

 qabc = putStrLn $ b ++ [toEnum 10, 'q', '('] ++ рд╢реЛ b ++ [','] ++ рд╢реЛ c ++ [','] ++ рд╢реЛ a ++ [') ']
 main = q "qabc = putStrLn $ b ++ [toEnum 10, 'q', '('] ++ рд╢реЛ b ++ [','] ++ рд╢реЛ c ++ [','] ++ рд╢реЛ a + + [')'] "" рдбрд┐рдл q (рдП, рдмреА, рд╕реА): рдкреНрд░рд┐рдВрдЯ рдмреА + рдЖрд░рдЖрд░ (резреж) + re рдХреНрдпреВ ('+ рд░реАрдкреНрд░ (рдмреА) +', '+ рд░реАрдкреНрд░ (рд╕реА) +', '+ рд░рд┐рдк (a) + ')' '' 'def e (x) рд╡рд╛рдкрд╕реА 34.chr + x + 34.chr рд╕рд┐рд░реЗ рдкрд░; def q (a, b, c) рдкреНрд░рд┐рдВрдЯ b + 10.chr +' main = q '+ e (b) ) + '+ рдИ (рд╕реА) +' + рдИ (рдП) + '+ 10.рдЪреНрд░ рдПрдВрдб "


рддрджрдиреБрд╕рд╛рд░, рд╣рдореЗрдВ рдпрд╣ рд╢реНрд░реГрдВрдЦрд▓рд╛ рдорд┐рд▓рддреА рд╣реИ: 1 -> 2 -> 3 -> 1, рдФрд░ рдХрд╛рд░реНрдпрдХреНрд░рдо рдЕрдВрддрддрдГ рдЕрдкрдиреЗ рд╕реНрд░реЛрдд рдХреЛрдб рдХреЛ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд░рддрд╛ рд╣реИ :)

рдмреЗрд╢рдХ, рдЗрд╕ рдХреЛрдб рдХрд╛ рдЯреБрдХрдбрд╝рд╛ рднреА рдореЗрд░реЗ рд╕рд╛рде рд╢реНрд░реГрдВрдЦрд▓рд╛ рдореЗрдВ рдЖрдпрд╛ рдерд╛:




All Articles