การใช้งาน Finding Day of Year ในภาษา Haskell แบบง่ายๆ

การเขียนโปรแกรมด้วย Haskell นั้นไม่เพียงแต่จะทำให้เราได้เรียนรู้ภาษาโปรแกรมแบบฟังก์ชัน แต่ยังช่วยให้เราเข้าใจวิธีการคิดและจัดการกับข้อมูลในรูปแบบที่เชื่อมโยงกัน ในบทความนี้เราจะมาพูดถึงการหาจำนวนวันในปี (Day of Year) ของวันที่ที่เรากำหนด ด้วยภาษา Haskell พร้อมตัวอย่างโค้ดและการอธิบายการทำงาน และแน่นอน!! เราจะยกตัวอย่างใช้จริงในชีวิตประจำวันด้วย

ความหมายของ Day of Year

Day of Year (วันของปี) หมายถึงหมายเลขที่แสดงถึงวันของปีที่มีจำนวนวันติดต่อกัน เช่น วันที่ 1 มกราคมจะถือเป็นวันที่ 1 ของปี และวันที่ 31 ธันวาคมจะถือเป็นวันที่ 365 (หรือ 366 ในปีอธิกสุรทิน) การคำนวณนี้มีการใช้งานที่หลากหลาย เช่น การวิเคราะห์ข้อมูล, การจัดการโปรเจกต์, หรือแม้กระทั่งการพยากรณ์อากาศ

การติดตั้ง Haskell

ก่อนจะเริ่มเขียนโค้ด เราต้องติดตั้ง GHC (Glasgow Haskell Compiler) หากยังไม่มีติดตั้ง สามารถดาวน์โหลดได้ที่ [Haskell official site](https://www.haskell.org/downloads/)

แน่นอนว่าถ้าคุณสนใจการเรียนรู้ภาษา Haskell หรือการเขียนโปรแกรมในรูปแบบอื่น ๆ เช่น Python, Java หรือ C++ สามารถเข้าเรียนที่ EPT ได้!

ตัวอย่างโค้ด Haskell

เราจะเริ่มต้นจากการกำหนดวันที่ที่เราต้องการหาวันที่ภายในปี จากนั้นเราจะสร้างฟังก์ชันให้เรียก True หรือ False ว่าจะมีวันที่ในเดือนนั้น ๆ หรือไม่

 import Data.Time.Calendar (fromGregorian)
import Data.Time.Calendar.OrdinalDate (toOrdinalDate)

-- ฟังก์ชันเพื่อหาวันที่ในปี
dayOfYear :: Integer -> Int -> Int -> Int
dayOfYear year month day = snd (toOrdinalDate (fromGregorian year month day))

main :: IO ()
main = do
    putStrLn "กรุณากรอกปี: "
    yearStr <- getLine
    putStrLn "กรุณากรอกเดือน: "
    monthStr <- getLine
    putStrLn "กรุณากรอกวัน: "
    dayStr <- getLine

    let year = read yearStr :: Integer
        month = read monthStr :: Int
        day = read dayStr :: Int
        dayNum = dayOfYear year month day

    putStrLn $ "วันที่ " ++ monthStr ++ "/" ++ dayStr ++ "/" ++ yearStr ++ " เป็นวันที่ " ++ show dayNum ++ " ของปี"

อธิบายการทำงานของโค้ด

- `Data.Time.Calendar` จะใช้ในการแปลงวันที่จากปี เดือน และวัน มาเป็นวันที่แน่นอนในรูปแบบ Gregorian Calendar

- `Data.Time.Calendar.OrdinalDate` ใช้ในการแปลงวันที่ที่สร้างขึ้นให้อยู่ในรูปแบบ ordinal date

- รับพารามิเตอร์เป็นปี (`year`), เดือน (`month`), และวัน (`day`)

- ใช้ฟังก์ชัน `fromGregorian` เพื่อสร้างวันและ `toOrdinalDate` เพื่อแปลงเป็น ordinal date ซึ่งจะให้เราเป็นเลขวันในปี

- รับข้อมูลปี เดือน และวันจากผู้ใช้

- เรียกใช้งานฟังก์ชัน `dayOfYear` และแสดงผลลัพธ์

Use Cases ในโลกจริง

วันของปีสามารถช่วยในการวิเคราะห์ว่าการขายสินค้าตลอดปีในวันไหนสูงหรือต่ำ เช่น พบว่าในช่วงวันที่ 1 ถึง 30 เมษายนมียอดขายสูงสุด

ถ้าคุณมีการออกแบบโปรเจกต์ การรู้วันของปีสามารถทำให้คุณวางแผนตารางการทำงานได้ดียิ่งขึ้น

ในบางองค์กรหรือธุรกิจ วันของปีดีกว่าใช้ในการจัดทำรายงานประจำปี เพื่อสรุปสถิติ ประเมินผลการดำเนินงาน

สรุป

การหาวันที่ในปีในภาษา Haskell เป็นสิ่งที่ง่ายและสะดวกมาก ๆ ด้วยโค้ดที่กระชับและง่ายต่อการเข้าใจ การนำเสนอการทำงานของโค้ดให้เราเห็นว่าจะสามารถหวังผลกับการใช้งานในโลกจริงได้อย่างไร

หากคุณสนใจศึกษาเพิ่มเติมเกี่ยวกับการเขียนโปรแกรมใน Haskell หรือภาษาอื่น ๆ อย่างจริงจัง มาร่วมกับเราได้ที่ EPT (Expert-Programming-Tutor) ที่จะช่วยเสริมสร้างความรู้และพัฒนาทักษะด้านการเขียนโปรแกรมอย่างมืออาชีพ!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง