haskellでライフゲームを作りたい

Question

haskellでライフゲームの様な物を作りたいと考えています
そのために二重リストの中の特定の場所をget_columで探し、その座標を別のリストに保存します。
その後nextでその座標を中心に周りを更新するという事を考えました。
しかし、中心の上と左を更新する方法が思いつきません。
リストを逆走する方法があれば教えてください

--頭の列の場所を知る
get_colum::[[Int]]->Int->[Int]
get_colum[[]] _=[-1]
get_colum (x:xs) y
    |x==[]=[]
    |xs==[]= (get_array x 0) : y :[100]--最後の行100を消すとバグる
    |get_array x 0==100=get_colum xs (y+1)--ない(100)ので次の列
    |otherwise = 
        trace (show (drop ((get_array x 0)+1) x:xs)) $ --デバッグ
--        (get_array x 0) : y : get_colum xs (y+1)--みつけたら次の行を探す
        (get_array x 0) : y : get_colum (drop ((get_array x 0)+1) x:xs) (y)--みつけたら次の列を探す
--行を知る 0から初めて文字が見つかるまで1を足していく
get_array::[Int]->Int->Int
get_array (x:xs) y
    |(x:xs)==[]=100--最後まで行ったとき
    |x==2=y
    |otherwise= get_array xs y+1
--頭の場所の更新
next:: [Int]->[[Int]]->[[Int]]
next (x:y:z) [[]]=[]
next (x:y:z) (t:ts)
    |x==100=[]
    |y==0 =
        take x t:next z ts