BARBAR_1.hs

details

attribute	value
description
owner	Akihisa Yamada
uploaded	2020-06-20 22:50:45.0
disk size	243 Bytes
downloadable	true

type

attribute	value
name	no_type
processor id	1
description	this is the default benchmark type for rejected benchmarks and benchmarks that are not associated with a type.
owning community	none

contents

{-# htermination (pePe :: MyBool  ->  MyBool  ->  MyBool) #-} 
import qualified Prelude 
data MyBool = MyTrue | MyFalse 
data List a = Cons a (List a) | Nil 
pePe :: MyBool  ->  MyBool  ->  MyBool;
pePe MyFalse x = x;
pePe MyTrue x = MyTrue;

popout

content may be truncated. 'popout' for larger text window.

actions get anonymous link download benchmark