Intervalosaux xs = init (agrupaR 2 (sacarseguidos xs ) ) Intervalos xs = sort (intervalosseguidos xs ++ intervalosunicos xs ) Prop (x:y:xs) = anterior x y & prop (y:xs)Īlista xs =takeWhile (/=) (++alista (deja xs))Įnpar (xs:xss) = ( head xs, last xs) : enpar xss Prop (x :y :xs ) = anterior x y & prop (y :xs )Īlista xs = takeWhile ( /= ) ( ++alista (deja xs ) )Įnpar (xs :xss ) = ( head xs, last xs ) : enpar xssĬoge (x :y :xs ) | prop (x :y :xs ) = (x :y :xs ) | otherwise = coge ( init ( x :y :xs ) )ĭeja (x :y :xs ) | prop (x :y :xs ) = | otherwise = deja ( init (x :y :xs ) ) ++ Intervalos xs = enpar (alista (sort xs ) ) ¡Lo que sabemos entre todos! ¡Oh, eso es lo que no sabe nadie! Esta es la ilusión y el consuelo de los especialistas. ![]() Intervalo xs = (head xs, last xs) PensamientoĬuando el saber se especializa, crece el volumen total de la cultura. (intervalo xs) es el intervalo correspondiente al segmento xs. (segmentos xs) es la lista de segmentos formados por elementos ![]() Por - ejemplo, - intervalo = (2,4) - intervalo = (6,7) - intervalo = (9,9) Segmentos xs = aux as ] where aux zs = zsĪux (y :ys ) ( (a : as ) :zs ) | y = a - 1 = aux ys ( (y :a : as ) :zs ) | otherwise = aux ys ( : (a : as ) :zs ) (a : as ) = reverse (sort xs ) - (intervalo xs) es el intervalo correspondiente al segmento xs. (segmentos xs) es la lista de segmentos formados por elementos - consecutivos de xs.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |