Yellowstone sequence: Difference between revisions
m
→{{header|Haskell}}
(Added Rust solution) |
|||
Line 225:
import Data.Bifunctor (second)
-----------------
yellowstone :: [Integer]
yellowstone = 1 : 2 : (active <$> iterate nextWindow (2, 3, [4 ..]))
where
nextWindow (p2, p1, rest) = (p1, n, residue)
where
Line 242 ⟶ 241:
relativelyPrime a b = 1 == gcd a b
▲----------30 FIRST TERMS, AND CHART OF FIRST 100-----------
main :: IO (Image PixelRGBA8)
main = do
Line 254 ⟶ 251:
▲---------------------CHART GENERATION----------------------
chartRender
:: (Default r, ToRenderable r)
Line 262 ⟶ 258:
renderDia Rasterific (RasterificOptions (mkWidth (fst (envOutputSize env)))) $
fst $ runBackendR env (toRenderable (execEC ec))
------------------------ LOCAL FONT ------------------------
chartEnv :: IO (DEnv Double)
chartEnv = do
| |||