Lista Scheme

Lista 4 - SCHEME

1.Escreva um procedimento em Scheme maior? que recebe dois números inteiros n e m, e retorna #t se o n for maior do que m e #f no caso contrário.

> (maior? 8 2) #t > (maior? 8 8) #f > (maior? 2 8) #f

(define (maior n m)
(if (> n m) #t
#f
))

2. Escreva um procedimento em Scheme igual? que recebe dois números inteiros n e m, e retorna #t se o n for igual a m e #f no caso contrário.

> (igual? 8 2) #f > (igual? 8 8) #t > (igual? 2 8) #f

(define (igual? n m) (if (= n m) #t #f ) )

3. Escreva um procedimento em Scheme menor? que recebe dois números inteiros n e m, e retorna #t se o n for menor do que m e #f no caso contrário.

> (menor? 8 2) #f > (menor? 8 8) #f > (menor? 2 8) #t

(define (menor n m)
(if (< n m) #t
#f ))

4. Escreva um procedimento em Scheme quociente que recebe dois números inteiros positivos n e m, e devolve o quociente da divisão de n por m. No caso de m ser 0 deverá devolver 0.

> (quociente 8 2) 4 > (quociente 10 3) 4

(define (quociente n m)
(ceiling (/ n m) ))

5. Escreva um procedimento em Scheme resto que recebe dois números inteiros positivos n e m, e devolve o resto da divisão de n por m.

> (resto 8 2) 0 > (resto 10 3) 1

(define (resto n m)
(remainder n m))

6. Escreva um procedimento em Scheme somatorio que recebe um número inteiro positivo n, e devolve a soma de todos os números até n.

> (somatorio 3) 6 > (somatorio 6) 21

(define (somatorio n) (if (= n 1) 1 (+ n (somatorio (- n 1)))))

7. Escreva um procedimento em Scheme soma-quadrados que recebe um número inteiro posi- tivo n, e