Skip to main content
本文に 194 文字追加
ソース リンク
letrec
  • 3,170
  • 1
  • 15
  • 34

引数部分にパターンを使えるので次のように書けます。

getBarcodeString :: Barcode -> String
getBarcodeString (Upca a b c d) = show a ++ show b ++ show c ++ show d
getBarcodeString (Qrcode s    ) = s

main = do
    putStrLn $ getBarcodeString barcode1
    putStrLn $ getBarcodeString barcode2

より素朴にcase式を使うのであれば

getBarcodeString' :: Barcode -> String
getBarcodeString' x = case x of
    Upca a b c d -> show a ++ show b ++ show c ++ show d
    Qrcode s     -> s

となります。

引数部分にパターンを使えるので次のように書けます。

getBarcodeString :: Barcode -> String
getBarcodeString (Upca a b c d) = show a ++ show b ++ show c ++ show d
getBarcodeString (Qrcode s    ) = s

main = do
    putStrLn $ getBarcodeString barcode1
    putStrLn $ getBarcodeString barcode2

引数部分にパターンを使えるので次のように書けます。

getBarcodeString :: Barcode -> String
getBarcodeString (Upca a b c d) = show a ++ show b ++ show c ++ show d
getBarcodeString (Qrcode s    ) = s

main = do
    putStrLn $ getBarcodeString barcode1
    putStrLn $ getBarcodeString barcode2

より素朴にcase式を使うのであれば

getBarcodeString' :: Barcode -> String
getBarcodeString' x = case x of
    Upca a b c d -> show a ++ show b ++ show c ++ show d
    Qrcode s     -> s

となります。

ソース リンク
letrec
  • 3,170
  • 1
  • 15
  • 34

引数部分にパターンを使えるので次のように書けます。

getBarcodeString :: Barcode -> String
getBarcodeString (Upca a b c d) = show a ++ show b ++ show c ++ show d
getBarcodeString (Qrcode s    ) = s

main = do
    putStrLn $ getBarcodeString barcode1
    putStrLn $ getBarcodeString barcode2