Advertisement
Guest User

Untitled

a guest
Oct 1st, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.25 KB | None | 0 0
  1. (define (multiplicacion a  b)
  2.  
  3.   (cond
  4.     [  (= b 1) a]
  5.     [ (= b 0) 0]
  6.     [else (+ a (multiplicacion a (- b 1) ) ) ]
  7.     ))
  8.  
  9.  
  10. (define (elevar a  b)
  11.  
  12.   (cond
  13.     [  (= b 1) a]
  14.     [ (= b 0) a]
  15.     [else (* a (elevar a (- b 1) ) ) ]
  16.     ))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement