Fakultas Ilmu Komputer UI

Skip to content
Snippets Groups Projects

Prompt pattern matching

  • Clone with SSH
  • Clone with HTTPS
  • Embed
  • Share
    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
    0% Loading or .
    You are about to add 0 people to the discussion. Proceed with caution.
    Please register or to comment