domingo, 24 de octubre de 2010

Lenguajes funcionales

Entrada para laboratorio

Suma de vectores en R

Función sum() Bastante fácil!!
En estos programas utilizo scan() que sirve para leer valores, esta es su forma de funcionar, aparece un 1: para que escribas el primer valor, luego 2: mientras sigas dando enter y escribiendo valores se seguirán guardando, pero cuando presiones dos veces enter deja de leerlos. Después la función sum(x) que suma todos los valores que contiene x.

Ejemplo:
> 
x <- scan()
1: 5
2: 1
3: 10
4: 8
5: 14
6: 7
7: Read 6 items
> sum(x)
[1] 45
Sumar con for
Aquí hago uso de un for para ir sumando cada elemento de x, la función length(x) sirve para obtener cuantos elementos tiene x.

Ejemplo suma:

> x <- scan()
1: 5
2: 1
3: 10
4: 8
5: 14
6: 7
7: Read 6 items
> for(i in 1:length(x))
{ y <- y + (x[i])}
> y
[1] 45

Más ejemplos con for

Ejemplo factorial:

Factorial de 5

> factorial <- 1
> x <- scan()
1: 5
2: Read 1 item
> for(i in 1:x) { factorial <- factorial*i }
> factorial
[1] 120

Factorial de 100

> factorial <- 1
> x <- scan()
1: 100
2: Read 1 item
> for(i in 1:x)
{ factorial <- factorial*i }
> factorial
[1] 9.332622e+157

1 comentario: