Yellowstone sequence: Difference between revisions
m
→{{header|Haskell}}
Line 184:
import Codec.Picture
import Control.Arrow (second)
------------------YELLOWSTONE PERMUTATION------------------
yellowstone :: [Integer]
Line 190:
where
nextWindow :: (Integer, Integer, [Integer]) -> (Integer, Integer, [Integer])
nextWindow (p2, p1, rest) = (p1, n, residue)
where
[rp2, rp1]
active (_, x, _) = x
relativelyPrime :: Integer -> Integer -> Bool
relativelyPrime a b = 1 == gcd a b
----------30 FIRST TERMS, AND CHART OF FIRST 100-----------
main :: IO (Image PixelRGBA8)
Line 210:
chartRender env $
plot (line "Yellowstone terms" [zip [1 ..] (take 100 yellowstone)])
---------------------CHART GENERATION----------------------
chartRender
Line 219:
in renderDia Rasterific (RasterificOptions (mkWidth width)) $
fst $ runBackendR env (toRenderable (execEC ec))
------------------------ LOCAL FONT------------------------
chartEnv :: IO (DEnv Double)
|