aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/PatternGuards/pattern-guard-with-let.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE PatternGuards #-}

module PatternGuardWithLet where

safeDivHead :: Int -> [Int] -> Int
safeDivHead n xs
  | y : _ <- xs, let q = quot n y, q >= 0 = q
  | otherwise = 0