0votos

Suma de pares e impares en Clojure

por josejuan hace 3 años

.

Crear una clase que contenga un método al cual se le pase un número y que este retorne la suma de los numeros pares y de los numeros impartes. El numero que se le pasa al método es limitador a los numeros que hay que sumar.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
(defn ipow [e b] (apply product (repeat e b))) 
 
(defn sumParNon [n] 
  (let [nones     (ipow 2 (quot (+ 1 n) 2)) 
        todos     (quot (+ n (ipow 2 n)) 2)] 
    [nones (- todos nones)])) 
 
; prueba.core=> (map (comp println sumParNon) (range 1 21)) 
; [1 0] 
; [1 2] 
; [4 2] 
; [4 6] 
; [9 6] 
; [9 12] 
; [16 12] 
; [16 20] 
; [25 20] 
; [25 30] 
; [36 30] 
; [36 42] 
; [49 42] 
; [49 56] 
; [64 56] 
; [64 72] 
; [81 72] 
; [81 90] 
; [100 90] 
; [100 110] 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.