Mian-Chowla sequence: Difference between revisions
m
→{{header|Haskell}}: Tidied
(→{{header|JavaScript}}: Tidied.) |
m (→{{header|Haskell}}: Tidied) |
||
Line 777:
{{Trans|JavaScript}}
<lang haskell>import Data.Set (Set, fromList, insert, member)
------------------- MIAN-CHOWLA SEQUENCE -----------------
mianChowlas :: Int -> [Int]
mianChowlas
reverse
nextMC :: (Set Int, [Int]) -> (Set Int, [Int])
nextMC (sumSet, mcs@(n:_)) =
where
m = until valid succ n▼
--------------------------- TEST -------------------------
main :: IO ()
main =
| |||