
I have a question regarding test1 of task 1. It says:
test1 = take 20 (distinct [x `div` 3 | x <- [1..]]) == take 20 [0..]
The problem i see here is that the execution of [x `div` 3 | x <- [1..]] never terminates. That means that this test can never terminate.
My suggestion would be to change it to:
test1 = distinct (take 20 [x `div` 3 | x <- [1..]]) == take 6 [0..]
That way the creation of the list terminates and is checked against the correct list.
Is this correct or did I miss anything?
Regards,
Kai