我遇到的情况是我使用定义为类型同义词的元组,所以我不能真正使用记录结构。 有没有办法获得这些元素?
这里更具体的是我的意思:
type Movie = (Title, Regisseur, MainActors, ReleaseDate, Genre, SalesPrice)
type Title = String
type SalesPrice = Int
etc
如何才能获得Title
和ReleaseDate
作为示例。除了为元组中的每个位置定义一个getter函数。
答案 0 :(得分:7)
另一个选择是导入包Control.Lens
。
>>> import Control.Lens
>>> let movie = ( "The Terminator"
, "James Cameron"
, ["Arnold Schwartzenegger", "Michael Biehn"]
, 1984
,"Science Fiction"
, 19.99)
>>> movie ^. _1
"The Terminator"
>>> movie ^. _4
1984
我不建议您这样做。请改用记录语法。
data Movie = Movie
{ title :: String
, director :: String
, mainActors :: [String]
, releaseDate :: Int
, genre :: String
, price :: Double
} deriving (Eq,Ord,Show)
现在你可以做到
>>> let movie = Movie "The Terminator" "James Cameron"
["Arnold Schwartzenegger", " Michael Biehn"]
1984 "Science Fiction" 19.99
>>> title movie
"The Terminator"
>>> releaseDate movie
1984
答案 1 :(得分:4)
您需要为元组的每个组件定义(或派生)一个getter。
E.g。
title :: Movie -> Title
title (t,_,_,_,_,_,_) = t
通过使用记录,可以使这些访问者更简单。
答案 2 :(得分:2)
您可以使用uniplate使用uniplate获取特定类型的所有元组元素。请注意,uniplate会将不同类型的同义词视为相同。
import Data.Generics.Uniplate.Data
.
.
.
let [title] = childrenBi movie
如果您想要区分字段,可能最好使用记录语法:Haskell record syntax