#generador congruencial#

generador<-function(n,a,c=0,m,sem){
	z<-numeric(n)
	z[1]<-sem%%m   #semilla módulo m
	for(i in 2:n){
		z[i](a*z[i-1]+c)%%m
		}
		sem<-z[n]  #a partir del último generamos más
		x<-z/m
		salida<-list("semilla"=sem,"numeros"=x)
		return(salida)
	}
##################################
generador(1000,3,c=0,150,5)->randomnumbers
	round(