Haskell作业1(1)|实现分数的常用运算(2)|计算平方根的Newton-Raphson公式
一、实现分数的常用运算moduleMyFractionwhereimportTest.QuickCheckimportPreludehiding(())typeFraction=(Integer,Integer)ratplus::Fraction->Fraction->Fractionratplus(a,b)(c,d)|a==0=(c,d)|c==0=(a,b)|otherwise=(div(a*