check
= foldr (\x prev
-> if x `
rem`
5 == 0 then x
else prev
) 0
main = do
print $ check
[1,2,3,4,5,10] print $ check
[8,9,7,4,2,78]
Y2hlY2sgPSBmb2xkciAoXHggcHJldiAtPiBpZiB4IGByZW1gIDUgPT0gMCB0aGVuIHggZWxzZSBwcmV2KSAwCgptYWluID0gZG8KCXByaW50ICQgY2hlY2sgWzEsMiwzLDQsNSwxMF0KCXByaW50ICQgY2hlY2sgWzgsOSw3LDQsMiw3OF0=