Re: Programação Funcional - TP1

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Re: Programação Funcional - TP1

Marco Túlio Gontijo e Silva-4
Ol? Henrique,

seu problema Polepos.hs excedeu o tempo limite de execu??o no SPOJ.

Algumas dicas: voc? pode escrever:

cars = map fst startGrid
positions = map snd startGrid

(cars, positions) = unzip

take (length positions) [0..]
[0 .. pred $ length positions]

do scoreBoard <- parseScoreboard n
                      let startGrid = getStartGrid scoreBoard
                      putStrLn $ showGrid startGrid
                      main

parseScoreboard n >>= putStrLn . showGrid . getStartGrid >> main

showGrid Nothing = "-1"
showGrid (Just xs) = foldl1 (++) $ intersperse " " $ map show xs

showGrid = maybe "-1" (foldl1 (++) . intersperse " " . map show)

Talvez fosse mais legal criar um tipo de dados e definir a classe Ord
para eles do que usar tupla e sortBy.

Essas dicas n?o est?o relacionadas com a demora no tempo de execu??o.
Isso se deve, acredito eu, ao seu algoritmo.

--
marcot
http://marcot.iaaeee.org/


Reply | Threaded
Open this post in threaded view
|

Re: Programação Funcional - TP1

Marco Túlio Gontijo e Silva-4
Sorry about this e-mail, I send it by mistake.

Greetings.
--
marcot
http://marcot.iaaeee.org/