[Haskell-cafe] list monad and controlling the backtracking
isto.aho at dnainternet.net
Thu Nov 23 16:25:23 EST 2006
Weekly news had a link to article
"Local and global side effects with monad transformers"
and the following is from there (minor modification done):
test5 :: StateT Integer (ListT (Writer [Char])) Integer
test5 = do
a <- lift $ mlist aList
b <- lift $ mlist bList
lift $ lift $ tell ("trying "++show a++" "++show b++"\n")
guard $ a+b<5
return $ a+b
go5 = runWriter $ runListT $ runStateT test5 0
If the aList = [1..5] as well as bList, then there will be 25 tryings.
If aList and bList are [1..10000000], there will be a lot of tryings...
However, guard is saying that we are interested in only values
whose sum is less than 5.
Is it possible to control easily in the above example that when we
have tried out pairs (1,1), (1,2), (1,3), (1,4), that now we are
ready to stop trying from the bList? And then similarly when we
finally arrive to a pair (4,1), that now we are ready to finish
also with aList?
This would give a nice way to build branch & bounding algorithms,
even though it does not take much more lines to do it in some other way.
More information about the Haskell-Cafe