рдПрдХ рд╣рдереЗрд▓реА рд╕реЗ рддрд╛рд▓реА рдмрдЬрд╛рдиреЗ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ

рдРрд╕реЗ рд╕рдорд╛рдзрд╛рди рд╣реИрдВ рдЬреЛ рдЖрдк рдХреЗрд╡рд▓ рдШрдВрдЯреЛрдВ рддрдХ рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВред

рдЙрдирдореЗрдВ рд╕реЗ рдПрдХ, рдпреЛрдЬрдирд╛ рднрд╛рд╖рд╛ рдореЗрдВ рдПрд╕рдЖрдИрд╕реАрдкреА рд╕реЗ рдПрдХ рдЙрджрд╛рд╣рд░рдг:



 ;  clap.scm рдХреА рд╢реБрд░реБрдЖрдд
 (рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реЗрдВ (a-plus-abs-b ab)
    ((рдпрджрд┐ (> b 0) + -) ab))

 (рдкреНрд░рджрд░реНрд╢рди-рдП-рдкреНрд▓рд╕-рдПрдмреНрд╕-рдмреА 2 -2))
 ;  clap.scm рдХрд╛ рдЕрдВрдд

 semka @ abahachi: ~ / src / рдпреЛрдЬрдирд╛ / рдЯреНрдпреВрдЯрд░ $ guile -s clap.scm
 4


рдпрд╣ рдПрдХ рдЕрджреНрднреБрдд рдмрд╛рдд рд╣реИред

рдпрд╣ рдмрд╕ sums рдФрд░ | b |

рдпрд╣ рдХреИрд╕реЗ рд╕рдордЭрд╛рддрд╛ рд╣реИ? (-;



All Articles