Padovan sequence: Difference between revisions
m
→{{header|Haskell}}
Line 919:
where
f (a, b, c) = Just (a, (b, c, a + b))
padovanFloor :: [Integer]
Line 924 ⟶ 925:
where
f = Just . (((,) . g) <*> succ)
g = floor . (0.5 +) . (/ s) . (p **) . fromInteger . pred▼
p = 1.324717957244746025960908854
s = 1.0453567932525329623
▲ g = floor . (0.5 +) . (/ s) . (p **) . fromInteger . pred
padovanLSystem :: [String]
Line 932 ⟶ 935:
where
f = Just . ((,) <*> concatMap rule)
rule 'A' = "B"
rule 'B' = "C"
|