[Haskell] Please help!!!

Stefan O'Rear stefanor at cox.net
Sat Jun 9 15:52:19 EDT 2007


On Sat, Jun 09, 2007 at 12:22:02PM -0700, AVG wrote:
> 
> What's wrong??
> 
> greatest common divisor
> 
> code:
> 
> 
> 
> mdc :: Int-> Int -> Int
> mdc _ 1 = 1
> mdc 1 _ = 1
> mdc x y
> |x > y = mdc (x-y) y
> |y > x = mdc (y-x) x
> |x==y = x
> 
> mdcl :: [Int]-> [Int]
> mdcl []=[]
> mdcl l = mdcl ([mdc (tira(take 1 l)) (tira(take 1 (drop 1 l)))]++ drop 2 l)
> 
> gcdl :: [Int] -> Int
> gcdl l = tira l
> 
> tira :: [Int] -> Int
> tira []=0
> tira [x]=x

http://haskell.org/haskellwiki/Homework_help

99% of people who ask with such urgency are looking for homework
answers.  Hint re your actual code: whitespace matters.

Stefan


More information about the Haskell mailing list