Many thanks for the help on the original space leak which is now fixed -see
the function pad below and test runs in small constant space. However, that
has merely revealed the next space leak.
The problem appears to be
blockWord8sIn512 :: [Word8] - [[Word8]]
blockWord8sIn512 =
unfoldr g
On 2/4/07, Dominic Steinitz [EMAIL PROTECTED] wrote:
test1 :: Int - [Word8]
test1 n = foldl' (zipWith xor) [0x01..0x40] (blockWord8sIn512 (pad (replicate
n 0x55)))
test2 :: Int - [Word8]
test2 n = foldl' (zipWith xor) [0x01..0x40] (bws (pad (replicate n 0x55)))
The problem really is here:
