Haskell程式提取給定年份的後兩位數字

本教程將幫助我們提取給定年份的後兩位數字。年份值作為引數傳遞給定義的函式，然後使用Haskell中的各種方法提取後兩位數字。最後顯示最終輸出。

例如，對於輸入年份=2023，後兩位數字=23。

演算法

• 步驟1 - 匯入Data.Char模組以使用digitToInt函式。

• 步驟2 - 定義extractLastTwoDigits函式

• 步驟3 - 程式執行將從main函式開始。main()函式控制整個程式。

• 步驟4 - 初始化名為“year”的變數。它將包含要提取後兩位數字的年份值。

• 步驟5 - 使用'putStrLn'語句顯示年份的最終結果後兩位數字。

使用extractLastTwoDigits函式

extractLastTwoDigits函式以Int作為引數，表示年份。init函式用於從年份中刪除最後一位數字，last函式用於提取年份剩餘數字的最後一位數字。

示例1

import Data.Char (digitToInt)

extractLastTwoDigits :: Int -> String
extractLastTwoDigits year = [(last (init (show year))), last (show year)]

main :: IO ()
main = do
   let year = 2023
   let result = extractLastTwoDigits year
   putStrLn ( "Last two digits of the year are: " ++ result)

輸出

Last two digits of the year are: 23

使用取模運算子

在此示例中，mod函式返回除法的餘數，div函式返回除法的商。透過將年份除以100，然後取餘數，我們可以得到年份的後兩位數字。

示例2

import Data.Char (digitToInt)

extractLastTwoDigits :: Int -> Int
extractLastTwoDigits year = year `mod` 100

main :: IO ()
main = do
   let year = 2021
   let result = extractLastTwoDigits year
   putStrLn ( "Last two digits of the year are: " ++ show result)

輸出

Last two digits of the year are: 21

使用列表推導式

在此示例中，列表推導式用於透過將年份轉換為字串，然後使用digitToInt函式來提取年份的後兩位數字。

示例3

import Data.Char (digitToInt)

extractLastTwoDigits :: Int -> [Int]
extractLastTwoDigits year = [digitToInt x | x <- (drop (length (show year) - 2) (show year))]

main :: IO ()
main = do
    let year = 2018
    let result = extractLastTwoDigits year
    putStrLn ( "Last two digits of the year are: " ++ show result)

輸出

Last two digits of the year are: [1,8]

結論

在Haskell中，有多種方法可以提取輸入年份的後兩位數字。要提取年份的後兩位數字，我們可以使用使用者定義的extractLastTwoDigits函式、取模運算子或列表推導式。年份值作為引數傳遞給這些函式，然後提取年份的後兩位數字。

Akhil Sharma

更新於: 2023年1月23日

360次瀏覽

開啟你的 職業生涯

透過完成課程獲得認證

立即開始