haskell - 从列表中提取Haskell中的单个整数

Question

对于 Haskell 来说是全新的。问题 - 我有一个类型构造函数，其值构造函数由 4 个组件组成:

 TrackPoint :: TP { rpm :: Integer
               , time :: Integer
               , distance :: Float
               , speed :: Float 
               } deriving (Show)

我想要 [TrackPoint] 并让它在转速值低于 10,000 时返回时间、距离和速度。我尝试过使用守卫，但没有成功。这位新手将不胜感激任何帮助。

Answer 1

简单的功能:

processTrackPoints :: [TrackPoint] -> [(Integer, Float, Float)]
processTrackPoints tps = 
  map (\tp -> (time tp, distance tp, speed tp)) $
  filter (\tp -> rpm tp > 10000) tps

相同，但尽可能无积分:

processTrackPoints :: [TrackPoint] -> [(Integer, Float, Float)]
processTrackPoints = 
  map (\tp -> (time tp, distance tp, speed tp)) .
  filter ((> 10000) . rpm)

使用守卫:

processTrackPoints :: [TrackPoint] -> [(Integer, Float, Float)]
processTrackPoints ((TP rpm time distance speed) : t)
  | rpm > 10000 = (time, distance, speed) : processTrackPoints t
  | otherwise = processTrackPoints t
processTrackPoints _ = []

当然，这就是全部，假设您已经正确定义了数据类型，如下所示:

data TrackPoint = 
  TP { 
    rpm :: Integer, 
    time :: Integer, 
    distance :: Float, 
    speed :: Float 
  } 
  deriving (Show)