<div dir="ltr"><div>{-</div><div>I am trying to understand constructor classes and their relationship with ordinary type classes.</div><div>I wrote the code below to help me understand the distinction. The code is only for explanatory purposes, set operations use a tuple syntax.</div><div><br></div><div>I use the naming convention of 'typeVar', 'typeCons', and 'dataCons' for type variables, type constructors, and data constructors respectively.</div><div>Question1:<br></div><div>Is my naming convention correct? </div><div>I am particularly concerned about SetClass3 where the super class seems to use a type constructor but the subclass seems to use the same term as a data constructor.</div><div><br></div><div>Q2:</div><div>In this case constructor classes and type classes seem to provide similar functionality.</div><div>In general what situation are each best suited?</div><div>-}</div><div><br></div><div>import Data.List  </div><div>data SetType typeVar = SetType [typeVar] deriving Show</div><div><br></div><div><br></div><div>class SetClass1 typeCons where </div><div>  member1 ::   Eq typeVar  =>  (typeVar, typeCons typeVar)  -> Bool  </div><div>  intersect1 ::  (Eq typeVar,Show typeVar) =>  (typeCons typeVar, typeCons typeVar) -> typeCons typeVar</div><div> </div><div><br></div><div>class  SetClass2 dataCons typeVar where</div><div>  member2 ::  (typeVar, (dataCons typeVar))  -> Bool  </div><div>  intersect2 :: (dataCons typeVar, dataCons typeVar) -> dataCons typeVar</div><div><br></div><div><br></div><div>class SetClass1 typeCons => SetClass3  typeCons dataVariable where  </div><div> union3 ::  (Eq dataVariable,Show dataVariable) =>  (typeCons dataVariable, typeCons dataVariable) -> typeCons dataVariable</div><div> </div><div>instance SetClass1 SetType where  </div><div> member1 (x ,(SetType y)) = elem  x y</div><div> intersect1 ((SetType x),(SetType y)) = SetType (intersect x y)</div><div> </div><div>instance SetClass2 SetType Int where  </div><div> member2 (x ,SetType y) =   elem  x y</div><div> intersect2 (SetType x,SetType y) = SetType (intersect x y)</div><div><br></div><div>instance SetClass3 SetType Int where  </div><div> union3 (SetType x,SetType y) = SetType (union x y)</div><div><br></div><div><br></div><div>test1a = member1 (1, (SetType [1,2]))</div><div>test1b = intersect1 ((SetType [1,3,4]),(SetType [1,2]))</div><div>test2a = member2 (1, (SetType [1::Int]))</div><div>test2b = intersect2 ((SetType [1::Int]), (SetType [(1::Int)]))</div><div>test3a = union3 ((SetType [1::Int,2::Int,3::Int]),(SetType [4::Int,5::Int]))</div></div>

<br>
<p><span lang="EN-GB"><font size="2">This email originated from DIT. If you received this email in error, please delete it from your system. Please note that if you are not the named addressee, disclosing, copying, distributing or taking any action based on the contents of this email or attachments is prohibited. <a href="http://www.dit.ie/" target="_blank">www.dit.ie</a></font></span></p><p><font size="2">Is ó ITBÁC
a tháinig an ríomhphost seo. Má fuair tú an ríomhphost seo trí earráid, scrios
de do chóras é le do thoil. Tabhair ar aird, mura tú an seolaí ainmnithe, go
bhfuil dianchosc ar aon nochtadh, aon chóipeáil, aon dáileadh nó ar aon ghníomh
a dhéanfar bunaithe ar an ábhar atá sa ríomhphost nó sna hiatáin seo. <a href="http://www.dit.ie/" target="_blank">www.dit.ie</a></font></p><p><a href="http://www.dit.ie/grangegorman" target="_blank"><font size="2">Tá ITBÁC ag aistriú go Gráinseach Ghormáin – DIT is on the move to Grangegorman</font></a></p>