liquidhaskell-0.8.10.1: tests/pos/T1363.hs

{-# LANGUAGE BangPatterns #-}

module T1363 where

{-@ LIQUID "--exact-data-cons" @-}

{-@ mySum :: Integer -> xs:[Integer] -> Integer / [len xs] @-}
mySum :: Integer -> [Integer] -> Integer
mySum z []     = z
mySum z (x:xs) = mySum (z + x) xs

{-@ reflect mySum @-}

{-@ mySum' :: Integer -> xs:[Integer] -> Integer / [len xs] @-}
mySum' :: Integer -> [Integer] -> Integer
mySum' z []     = z
mySum' z (x:xs) = let !z' = z + x 
                  in mySum' z' xs

{-@ reflect mySum' @-}