落書きノート

ふと自分が気になった事を書いてます

Haskellで不定期練習

import Text.Printf

main :: IO ()
main = do
  putStrLn "整数値"
  n <- getLine
  let ni = read n :: Int
  if ni < 0
    then putStrLn "その値は負です。"
    else return ()



import Text.Printf

main :: IO ()
main = do
  putStrLn "整数値"
  v <- getLine
  let n = read v :: Int
  printf "その絶対値は%dです。\n" $ abs n



import Text.Printf

main :: IO ()
main = do
  putStrLn "変数A"
  a <- getLine
  putStrLn "変数B"
  b <- getLine
  let ai = read a :: Int
  let bi = read b :: Int
  if mod ai bi == 0
    then putStrLn "BはAの約数です。"
    else putStrLn "BはAの約数ではありません。"



import Text.Printf

main :: IO ()
main = do
  putStrLn "変数A"
  a <- getLine
  putStrLn "変数B"
  b <- getLine
  let ai = read a :: Int
  let bi = read b :: Int
  if not $ mod ai bi == 0
    then putStrLn "BはAの約数ではありません。"
    else putStrLn "BはAの約数です。"




import Text.Printf

main :: IO ()
main = do
  putStrLn "整数値"
  v <- getLine
  let n = read v :: Int
  if n > 0 then putStrLn "その値は正です。"
    else if n == 0 then putStrLn "その値は0です。"
    else putStrLn "その値は負です。"




import Text.Printf

main :: IO ()
main = do
  putStrLn "変数a"
  v1 <- getLine
  putStrLn "変数b"
  v2 <- getLine
  let a = read v1 :: Int
  let b = read v2 :: Int
  if a > b then putStrLn "aの方が大きいです。"
    else putStrLn "bの方が大きいです。"




import Text.Printf

main :: IO ()
main = do
  putStrLn "整数値"
  v <- getLine
  let n = read v :: Int
  if mod n 5 == 0 then putStrLn "その値は5で割り切れます。"
    else putStrLn "その値は5で割り切れません。"





import Text.Printf

main :: IO ()
main = do
  putStrLn "整数値"
  v <- getLine
  let n = read v :: Int
  if mod n 10 == 0 then putStrLn "それは10の倍数です。"
    else putStrLn "その値は10の倍数ではありません。"





import Text.Printf

main :: IO ()
main = do
  putStrLn "整数値"
  v <- getLine
  let n = read v :: Int
  if mod n 3 == 0 then putStrLn "その値は3で割り切れます。"
    else if mod n 3 == 1 then putStrLn "その値を3で割った余りは1です。"
    else putStrLn "その値を3で割った余りは2です。"