如何返回 Haskell 中的中间数字

Question

我有以下函数的开头，并且不确定应该如何返回中间数（即既不是最大也不是最小的数字）：

middleNumber :: Int -> Int -> Int -> Int
middleNumber a b c
    | ...

Answer 1

我建议您将该函数分为两个步骤：首先，对三个数字进行排序。然后，取出中间的元素。对于第一步，还要考虑是否可以一步一步地迈出；每一步都使它更接近完全排序，然后尾递归以使其更接近完全排序。

Answer 2

“中间的数字”比其中一个数字大，但比另一个数字小。而且中间只有一个数字。解决此问题的最机械方法是首先通过

middleNumber a b c
    | a < b && a > c = a

小于 b 但大于 c 来检查 a 是否是中间数字。

现在，如果 a 是中间的数字，但它实际上大于b并且小于c ？还有另一个警卫。如果 b 是中间的数字怎么办？还有2名警卫。如果c是中间的数字怎么办？还有 2 名警卫，总共负责 6 个不同的案件。

（顺便说一句，表达式 | a < b && a > c = a 被称为守卫。如果您还没有牢牢掌握守卫是什么，那么我推荐LYAH # Guards）

当然还有更好的方法来编写函数，但出于理解目的，最好能够手动且系统地分解所有可能的情况，并确定在每种情况下要做什么。 如何设计程序是一本很棒的书，可以帮助您学习如何以这种方式系统化。

Answer 3

强制性的 Rube-Goldberg-answer：

import Control.Applicative

middleNumber a b c = sum $ [sum, negate.minimum, negate.maximum] <*> [[a,b,c]]

[编辑]

这是另一个版本：

middleNumber a b c = fst $ maximumBy (compare `on` abs.snd) [(a,b-c),(b,c-a),(c,a-b)] 

我确信我们可以将其转换为箭头语法以进一步混淆，但我将该任务留给感兴趣的读者。

Answer 4

扩展丹·伯顿（Dan Burton）对警卫的回答，我评估了 a、b、c 案件，每个案件都有自己的警卫。但是，当其中 2 个数字相等时会发生什么？那么中间的数字应该是重复的数字之一。

middleNumber :: Int -> Int -> Int -> Int
middleNumber a b c
    | (a > b && a < c) || (a > c && a < b) = a
    | (b > a && b < c) || (b > c && b < a) = b
    | (c > a && c < b) || (c > b && c < a) = c
    | otherwise = if a == b then a else c

Answer 5

您可以利用守卫和 where 以简单的方式获得相同的结果：

middleNumber :: Int -> Int -> Int -> Int
middleNumber x y z
  | a == x = max y z
  | a == y = max x z
  | a == z = max x y
  where
    a = max x $ max y z

如果您无权访问内置 max。您可以轻松编写自己的。

max' :: Int -> Int -> Int
max' x y
  | x > y = x
  | otherwise = y

Answer 6

我做了一个快速的暴力方法，但这肯定不是最好的解决方案

import Data.List
middleNum :: Int -> Int -> Int -> Int
middleNum a b c = (\[_,m,_] -> m) $ sort $ a:b:c:[]

显然这是一个糟糕的想法，因为它明确依赖于列表中有 3 个项目，但它完成了工作