Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f0 = map snd.filter (even . fst).zip [0..]
- f1 = map fst.filter ((>0) . snd).zip [0..]
- f a = if any (uncurry (>)) $ zip (f0 a) $ (tail.f0) a then print $ f1 a else print $ product $ f0 a
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
