Prompt pattern matching
The snippet can be accessed without any authentication.
Authored by
Naufal Alauddin Hilmi
Edited
main.hs 432 B
main :: IO ()
main = do
-- Initialiaze
forever $ do
putStrLn "Ingin melakukan pencarian [1], membuka isi file [2], atau keluar [Any]?"
input <- getLine
case input of
"1" -> -- do something when 1
"2" -> do
input2 <- getLine
case input2 of
"AND" -> -- do something when ADD
"OR -> -- do something when OR
-
kalau gak mau forever, pake loop kayak gini
main :: IO () main = do loop loop :: IO () loop = do input <- getLine case input of "q" -> putStrLn "Quiting" "1" -> do -- do something on one loop "2" -> input2 <- getLine case input2 of "AND" -> do -- do something when ADD loop "OR" -> do -- do something when OR loop
Please register or sign in to comment