15 lines
204 B
Scheme
15 lines
204 B
Scheme
#lang scheme/base
|
|
|
|
(define (my-+ a b)
|
|
(if (zero? a)
|
|
b
|
|
(my-+ (sub1 a) (add1 b))))
|
|
|
|
(define (my-* a b)
|
|
(if (zero? a)
|
|
b
|
|
(my-* (sub1 a) (my-+ b b))))
|
|
|
|
(provide my-+
|
|
my-*)
|