Lucky and even lucky numbers: Difference between revisions

lucky :: [String] -> Lucky

lucky xs =

then EvenLucky

else Lucky

 

isInt :: String -> Bool

 

main :: IO ()

print "Invalid input, missing arguments"

print "Type --help"

else

let l = lucky args in case length numArgs of

1 -> do

print (nth (head numArgs) l)

2 -> if last numArgs > 0

then do

print (range (head numArgs) (last numArgs) l)

else do

print (interval (head numArgs) (last numArgs) l)

print "Invalid input, wrong number of arguments"

print "Type --help"

{{out}}

<pre>$ luckyNumbers 12