Anurag Hooda specdrake

I am interested in Functional Programming, Linux/Unix System Programming, Web Development, Information Security, AI and Machine Learning.

specdrake / phone.hs

Last active May 24, 2020 17:03

	module Phone where
	import Data.List
	import Data.Char

	data DaPhone = Lower (Digit, String) deriving (Eq, Show)
	but1 :: DaPhone
	but1 = Lower ('1', "1")
	but2 :: DaPhone
	but2 = Lower ('2', "abc2")
	but3 :: DaPhone