Tudnátok segíteni két game of life haskell feladatban ?

Kódom : [link]

Az utolsó két feladatban akadtam el : isOscillator, isSpaceShip.

Az elsőre sikerült írnom egy kódót , de valami nem jó, mert rossz eredményeket kapok. A másodikhoz, pedig nem igazán van ötletem, hogyan is kellene megoldani. Tudna valaki segíteni benne ?

Tesztesetek :

isOscillator row 2 == Just 2

isOscillator column 10 == Just 2

isOscillator caterer 100 == Just 3

isOscillator [] 1 == Just 1

isOscillator single 10 == Nothing

isOscillator row 1 == Nothing

isOscillator glider 2 == Nothing

isOscillator o15 2 == Nothing

isOscillator o15 15 == Just 15

isOscillator o15 5000 == Just 15

isOscillator o312 311 == Nothing

isOscillator o312 312 == Just 312

isSpaceShip glider 8 == Just (1,1)

isSpaceShip row 2 == Nothing

isSpaceShip column 10 == Nothing

isSpaceShip caterer 100 == Nothing

isSpaceShip [] 1 == Nothing

isSpaceShip single 10 == Nothing

isSpaceShip row 1 == Nothing

isSpaceShip glider 2 == Nothing

isSpaceShip o15 2 == Nothing

isSpaceShip o15 66 == Nothing

isSpaceShip o15 5000 == Nothing

isSpaceShip lwss 4 == Just (-2,0)

isSpaceShip lwss 500 == Just (-2,0)

isSpaceShip lwss 3 == Nothing

isSpaceShip five6P6H1V0 7 == Just (-1,0)

isSpaceShip one19P4H1V0 4 == Just (0,-1)

isSpaceShip one19P4H1V0 3 == Nothing

isSpaceShip corderShip 96 == Just (-8,-8)