import Nove ( Cell )

import Nove.Verse

terra :: (Eq a, Enum a, Ord a, Bounded a) => Int -> Cell state a
terra x state ns a

terra :: (Eq a, Enum a, Ord a, Bounded a) => Int -> (Dir -> a) -> a -> a
terra x ns a

waves :: (Eq a, Enum a, Bounded a) => Cell state a
waves state ns a

waves :: (Eq a, Enum a, Bounded a) => (Dir -> a) -> a -> a
waves ns a

pulse :: (Enum a, Bounded a, Ord a) => Cell state a
pulse state ns a = prev $ maximum $ ns <$> total

pulse :: (Enum a, Bounded a, Ord a) => (Dir -> a) -> a -> a
pulse ns a = prev $ maximum $ ns <$> total

dois :: (Eq a, Enum a, Bounded a, Ord a, Num a) => Cell state a
dois state ns a

dois :: (Eq a, Enum a, Bounded a, Ord a, Num a) => (Dir -> a) -> a -> a dois ns a

bees :: (Eq a, Enum a, Bounded a, Ord a) => Cell state a
bees state ns a

bees :: (Eq a, Enum a, Bounded a, Ord a) => (Dir -> a) -> a -> a
bees ns a

gene :: (Enum a, Bounded a, Ord a) => [Int] -> [Int] -> Int -> Cell state a
gene survive born n state ns a

gene :: (Enum a, Bounded a, Ord a) => [Int] -> [Int] -> Int -> (Dir -> a) -> a -> a
gene survive born n ns a