main :: IO ()
main = putStrLn "Hello, World!"main :: IO ()
main = do
putStr "Enter your name: "
name <- getLine
putStrLn ("Hello, " ++ name ++ "!")main :: IO ()
main = do
let age = 20
if age >= 18
then putStrLn "You are an adult."
else putStrLn "You are a minor."import Control.Monad (when)
whileLoop :: Int -> IO ()
whileLoop j = when (j <= 5) $ do
putStr (show j ++ " ")
whileLoop (j + 1)
main :: IO ()
main = do
putStrLn "For loop:"
mapM_ (\i -> putStr (show i ++ " ")) [1..5]
putStrLn ""
putStrLn "While loop:"
whileLoop 1
putStrLn ""add :: Int -> Int -> Int
add a b = a + b
main :: IO ()
main = putStrLn ("Sum: " ++ show (add 10 20))main :: IO ()
main = do
let numbers = [10, 20, 30, 40, 50]
mapM_ (\(i, v) -> putStrLn ("Element " ++ show i ++ ": " ++ show v))
(zip [0..] numbers)import Data.Char (toUpper)
main :: IO ()
main = do
let str1 = "Hello"
str2 = " World"
putStrLn ("Length: " ++ show (length str1))
let combined = str1 ++ str2
putStrLn ("Concatenated: " ++ combined)
putStrLn ("Uppercase: " ++ map toUpper combined)main :: IO ()
main = do
let a = 15.0 :: Double
b = 4.0 :: Double
putStrLn ("Add: " ++ show (a + b))
putStrLn ("Subtract: " ++ show (a - b))
putStrLn ("Multiply: " ++ show (a * b))
putStrLn ("Divide: " ++ show (a / b))
