[Haskell] CodeWars|Find the middle element

最新推荐文章于 2017-10-04 20:30:21 发布

huanghongxun

最新推荐文章于 2017-10-04 20:30:21 发布

阅读量251

点赞数

分类专栏： CodeWars Haskell 文章标签： haskell CodeWars

本文链接：https://blog.csdn.net/huanghongxun/article/details/78153967

版权

12 篇文章 0 订阅

订阅专栏

11 篇文章 0 订阅

订阅专栏

题目翻译

本题中你需要写个函数，输入一个三元组，输出三个树中既不是最大的也不是最小的那个数字的下标。

gimme (2, 3, 1) = 0
gimme (5, 10, 14) = 1

只使用maximum和minimum的方法，这是我写的一个比较奇怪的方法。。

gimme :: Ord a => (a, a, a) -> Int
gimme (a, b, c) = 3 - snd (minimum l) - snd (maximum l)
    where l = zip [a, b, c] [0..]

当然正常人都会想到排序的。

gimme :: Ord a => (a, a, a) -> Int
gimme (a, b, c) = snd . (!! 1) . sort $ zip [a,b,c] [0..]

还有更厉害的，不用库函数的方法：

gimme :: Ord a => (a, a, a) -> Int
gimme (a, b, c)
 | b <= a && a <= c || c <= a && a <= b = 0
 | otherwise = 1 + gimme (b, c, a)

关注