Rosetta Code

Lucky and even lucky numbers: Difference between revisions

Page Discussion

Lucky and even lucky numbers (view source)

Revision as of 21:51, 16 April 2016

240 bytes removed ,  8 years ago
→‎{{header|Haskell}}: corrected range function and simplified nth and interval functions
m (→‎{{header|Haskell}}: typos introduced in last change)
(→‎{{header|Haskell}}: corrected range function and simplified nth and interval functions)
Line 135:
nth :: Int -> Lucky -> Int
nth j l = case l of
Lucky -> last (take j (-> luckyNumbers oddNumbers) !! (j-1)
EvenLucky -> lastluckyNumbers (takeevenNumbers j!! (luckyNumbers evenNumbers)j-1)
 
range :: Int -> Int -> Lucky -> [Int]
range x x2 l = case l of
Lucky -> let n = length-> drop (x-1) (take xx2 (luckyNumbers oddNumbers)) in
EvenLucky -> drop (nx-1) (take x2 (luckyNumbers oddNumbersevenNumbers))
EvenLucky -> let n = length (take x (luckyNumbers evenNumbers)) in
drop (n-1) (take x2 (luckyNumbers evenNumbers))
 
interval :: Int -> Int -> Lucky -> [Int]
interval x x2 l = let x'' = (-1 * x2) in
case l of
Lucky -> let n = length-> dropWhile (<x) (takeWhile (<=x'') (luckyNumbers oddNumbers)) in
EvenLucky -> dropdropWhile n(<x) (takeWhile (<=x'') (luckyNumbers oddNumbersevenNumbers))
EvenLucky -> let n = length (takeWhile (<x) (luckyNumbers evenNumbers)) in
drop n (takeWhile (<=x'') (luckyNumbers evenNumbers))
 
lucky :: [String] -> Lucky
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/241071"