Haskell 入门 1 — 数组(上）

haskell-logo.jpg haskell_list.JPG

List 应该翻译成清单，我们程序员通常就叫 list 或者叫列表。list 无论对于计算机语言和程序都是很重要的，有一门语言就是叫 list 吧。

let lostNumbers = [4,8,15,16,23,42] 
    print lostNumbers

如果我们将数组添加一个其他类型字符串呢，这样做在 list 上是行不通的。需要元素类型保持一致。

main = do
    let lostNumbers = [4,8,15,16,'o',42] 
    print lostNumbers
    

list的合并

在 haskell 中，连接符号为 ++。
main = do
    let lostNumbers = [1,2,3,4] ++ [9,10,11,12] 
    print lostNumbers

在许多语言都将字符串认为字符的集合，

main = do
    let lostNumbers =['w','o'] ++ ['o','t']  
    print lostNumbers
    

为list添加元素

"A SMALL CAT"
[5,1,2,3,4,5]

我们可以尝试 [] 添加到 [[]]

 let createTwoDimensionArr = []:[[]]
    print createTwoDimensionArr

上面是编译不通过，不过如果向下面这样，[[1,2]] 已经有值编译是可以通过的。

let createTwoDimensionArr = []:[[1,2]]
    print createTwoDimensionArr

我可以通过添加操作符 : 来创建一个数组 
```haskell
 let createListWithSomething = 1:2:3:[]
    print createListWithSomething

[[],[1,2]]

根据索引获取数组的元素

let charAtSix = "zidea and matthew" !! 6  
    print charAtSix

'a'

这里推荐一版javascript 函数式编程，我是先看这本书，然后才开始学习haskell，这本书很好，但是翻译不算好所以只好阅读英文原版。书中长篇大论的概念也不是，所以理解起来对于我也有些困难。最近看了 ocaml 和 haskell 然后返回来再看感觉对 FP 有点感觉了。当时书中就介绍 tail head first last 等操作数组的方法，当时感觉疑惑为什么要这样做，看 haskell 后多少明白这样做的原因和好处。

let lostNumbers = 5:[1,2,3,4,5]
let headOfList = head lostNumbers
    print headOfList
    let tailOfList = tail lostNumbers
    print tailOfList
    let lastOfList = last lostNumbers
    print lastOfList
    let initOfList = init lostNumbers
    print initOfList

5
[1,2,3,4,5]
5
[5,1,2,3,4]

对于多维数组，我们可以操作和操作一维数组类似

    let twoDimensionList = [[1,2,3,4],[5,3,3,3],[1,2,2,3,4],[1,2,3]] 
    print twoDimensionList
    let joinTwoDimesionList = [1,2,3]:twoDimensionList
    print joinTwoDimesionList

[[1,2,3,4],[5,3,3,3],[1,2,2,3,4],[1,2,3]]
[[1,2,3],[1,2,3,4],[5,3,3,3],[1,2,2,3,4],[1,2,3]]

数组比较

在 haskell 中的数组比较，

let result = [6,3,2] > [3,2,1]
    print result

λ [2,3,5]>[1,2,3]
True:: Bool
λ [0,3,5]>[1,2,3]
False:: Bool
λ [2,3,5]>[1,2,3]
True:: Bool
λ [2,3,5]>[1,6,3]
True:: Bool
λ [2,3,5]>[2,6,3]
False:: Bool
λ [2,3,5]>[1,6]
True:: Bool
λ [2,3,5]>[3,6]
False:: Bool
λ  

数组长度

length [5,4,3,2,1] 

λ null []
True:: Bool
λ null [1,2,3]
False:: Bool

take 和 drop 操作数组

通过 take 和 drop 从前或从后截取一定长度数组

λ take 1 [1,2,3]
[1]:: Num a => [a]
λ take 2 [1,2,3,,4,5]
<hint>:1:15: parse error on input ‘,’
λ take 2 [1,2,3,4,5]
[1,2]:: Num a => [a]
λ take 0 [1,2,3]
[]:: Num a => [a]

λ drop 3 [1,2,3,4,5,6]
[4,5,6]:: Num a => [a]

sum min max

这些符号就不做多解释了。

product 求乘积

λ product [1,2,3]
6:: Num a => a

elem 查看数组是否包含某个元素

λ 1 `elem` [2,3,4]
False:: Bool