YoEight · February 27, 2014 20:54
diff --git a/Code.hs b/Code.hs
 import Data.Functor.Foldable

 divIfMultiple :: Integral a => a -> [a] -> Maybe [a]
 divIfMultiple x = cata go
  where
    go Nil = Just []
    go (Cons a r)
        | mod a x == 0 = fmap (div a x:) r
        | otherwise    = Nothing
diff --git a/dependencies b/dependencies
 recursion-schemes == 4.0
	import Data.Functor.Foldable

	divIfMultiple :: Integral a => a -> [a] -> Maybe [a]
	divIfMultiple x = cata go
	where
	go Nil = Just []
	go (Cons a r)
	\| mod a x == 0 = fmap (div a x:) r
	\| otherwise = Nothing
No results found