Haskell Debug

Question

Come posso stampare una lista o qualcosa in Haskell ad ogni chiamata, ad esempio:

funct a list = funct (a + 1) (a : list) 
       print list here ??????? but how ? 

Answer 1

Per il debugging, c'è

import Debug.Trace 

funct :: Integer -> [Integer] -> Bool 
funct a list = trace (show list) $ funct (a + 1) (a : list) 

dove trace :: String -> a -> a. Utilizza unsafePerformIO sotto il cofano, quindi è il male e solo per il debug.

Tenere presente che a causa di una valutazione lenta, l'output di debug può apparire in ordine sorprendente e intercalare con l'output che il programma normalmente genera.

Con

module TraceIt where 

import Debug.Trace 

funct :: Integer -> [Integer] -> Bool 
funct 10 list = null list 
funct a list = trace (show list) $ funct (a + 1) (a : list) 

ottengo

*TraceIt> funct 1 [] 
[] 
[1] 
[2,1] 
[3,2,1] 
[4,3,2,1] 
[5,4,3,2,1] 
[6,5,4,3,2,1] 
[7,6,5,4,3,2,1] 
[8,7,6,5,4,3,2,1] 
False 

come previsto.

Answer 2

Come suggerito da Daniel Fisher, ma solo con unsafePerformIO.

> import System.IO.Unsafe 
> let funct a list = unsafePerformIO $ do { print list; return $ funct (a + 1) (a : list) } 

Date un'occhiata al similar question descrive ciò che sta realmente accadendo quando si utilizza unsafePerformIO.