Rosetta Code

Lucky and even lucky numbers: Difference between revisions

Page Discussion

Lucky and even lucky numbers (view source)

Revision as of 00:54, 28 March 2016

1 byte added ,  8 years ago
→‎{{header|Haskell}}
(Haskell example using laziness. This example uses regular expressions and data types.)
Line 137:
 
range :: Int -> Int -> Lucky -> [Int]
range x x'x2 l = case l of
Lucky -> let n = length (take x (luckyNumbers oddNumbers)) in
drop (n-1) (take x'x2 (luckyNumbers oddNumbers))
EvenLucky -> let n = length (take x (luckyNumbers evenNumbers)) in
drop (n-1) (take x'x2 (luckyNumbers evenNumbers))
 
interval :: Int -> Int -> Lucky -> [Int]
interval x x'x2 l = let x'' = (-1 * x'x2) in
case l of
Lucky -> let n = length (takeWhile (<x) (luckyNumbers oddNumbers)) in
Line 211:
$ luckyNumbers 1 -100 evenLucky
[2,4,6,10,12,18,20,22,26,34,36,42,44,50,52,54,58,68,70,76,84,90,98]</pre>
 
=={{header|J}}==
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/241062"