---- Se agradece a Carlos Jesùs Rodriguez  y Daniel Rey del grupo del Interior por el ejercicio 5f del práctico 8.
----- Este ejercicio ya está hecho, pero de una forma más larga, con funciones auxiliares.
----- La idea es como se podía hacer sin usar funciones auxiliares. (Por supuesto que de cualquier forma está bien)
------ Sólo lo habíamos planteado como un desafío propio del grupo. 

posicion::[Int]->Int->Int->Int
posicion  [ ] a n   = 0
posicion (a:xs) b n = if (a/=b)  then esta (xs) b (n+1) else n 

Gracias muchachos. 

-------------------------------------------------------------------------------------------------------------------------------------

---- Practico 8 ejer 5 l


--- Se agradece a Juan Pablo Albano tambien del grupo del Interior...... me parece que el grupo del Interior va ganando.......

insertaOrd :: [Int]->Int->[Int]
insertaOrd [ ] a= [a]
insertaOrd  (a:xs) b= if b<a then (b:(a:xs)) else  a:(insertaOrd (xs) b)