gistfile1.hs

porTresMasUno :: [Bool] -> [Bool]                                               
porTresMasUno xs = False : ys ++ residuo where                                  
    cs = True : zipWith3 gc cs (tail xs) xs                                     
    gc b = if b then (||) else (&&)                                             
    ys = zipWith3 gy cs (tail xs ++ [False]) xs                                 
    gy p q r = (p /= q) /= r                                                    
    residuo = if last cs then [True] else []                                    
                                                                                                                                                
serie :: String -> [[Bool]]                                                     
serie s = takeWhile (not.alto) $ iterate paso $ leer s where                    
    leer = map (\k -> if k == '0' then False else True)                         
    paso xs = ceros ++ siguiente where                                          
        (ceros,actual) = break id xs                                            
        siguiente = porTresMasUno actual                                        
    alto xs = (length $ filter id xs) == 1