Jacobsthal numbers: Difference between revisions

import Data.Numbers.Primes (isPrime)

import Text.Printf (printf)

-------------------- JACOBSTHAL NUMBERS ------------------

jacobsthal :: [Integer]

jacobsthal = jacobsthalish (0, 1)

jacobsthalish :: (Integer, Integer) -> [Integer]

where

go (a, b) = Just (a, (b, 2 * a + b))

--------------------------- TEST -------------------------

main :: IO ()

)

]

format :: (String, Int, [Integer]) -> String

format (k, n, xs) =

" "

(chunksOf 5 $ show <$> take n xs)

table :: String -> [[String]] -> String

table gap rows =