毕达哥拉斯三元组–Haskell实验2-1

实验要求

module MyTriads where

triads :: Int -> [(Int, Int, Int)]
-- triads 的定义

triads2 :: Int -> [(Int, Int, Int)]
---- triads2 的定义

triads n = [(x,y,z)|x<-[1..n],y<-[1..n],z<-[1..n],x*x + y*y == z*z]

triads2 n = [(x,y,z)|x<-[1..n],y<-[1..n],z<-[1..n],x*x + y*y == z*z && x < y]

未经允许不得转载:初音未来Alpha » 毕达哥拉斯三元组–Haskell实验2-1

赞 (0)

评论 0

  • 昵称 (必填)
  • 邮箱 (选填)