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

рдРрд╕реЗ рд╕рдорд╛рдзрд╛рди рд╣реИрдВ рдЬреЛ рдЖрдк рдХреЗрд╡рд▓ рдШрдВрдЯреЛрдВ рддрдХ рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВред
рдЙрдирдореЗрдВ рд╕реЗ рдПрдХ, рдпреЛрдЬрдирд╛ рднрд╛рд╖рд╛ рдореЗрдВ рдПрд╕рдЖрдИрд╕реАрдкреА рд╕реЗ рдПрдХ рдЙрджрд╛рд╣рд░рдг:

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

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

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

рдпрд╣ рдПрдХ рдЕрджреНрднреБрдд рдмрд╛рдд рд╣реИред
рдпрд╣ рдмрд╕ sums рдФрд░ | b |
рдпрд╣ рдХреИрд╕реЗ рд╕рдордЭрд╛рддрд╛ рд╣реИ? (-;


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


All Articles