落書きノート

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

Haskellで問題を解く

なかなか苦戦しました。こんな感じです。

main = do putStrLn "柴"
          putStrLn "田"
          putStrLn "望"
          putStrLn "洋"


import Text.Printf

main = do putStrLn "柴"
          putStrLn "田"
          putStrLn ""
          putStrLn "望"
          putStrLn "洋"
          putStrLn ""
          sub_print

sub_print = printf "柴\n\n\n\n\n"



import Text.Printf
add :: Int
sub :: Int
add = 82 + 17
sub = 82 - 17

main = do print $ 82 + 17
          print $ 82 - 17
          sub_print
          
sub_print = do printf "82 + 17 = %d\n" ((82 + 17) :: Int)
               printf "82 - 17 = %d\n" ((82 - 17) :: Int)
               printf "82 + 17 = %d\n" add
               printf "82 - 17 = %d\n" sub

import Text.Printf

main = do let x = 63
              y = 18
          printf "xの値は%dです。\n" (x :: Int)
          printf "yの値は%dです。\n" (y :: Int)
          printf "合計は%dです。\n" ((x + y) :: Int)
          printf "平均は%dです。\n" (((x + y) `div` 2) :: Int)

当たり前のことからなかなか躓きます。もう少し頑張ろう…。