การสร้าง Simple Calculator ด้วยภาษา Haskell

ในยุคนี้การเขียนโปรแกรมไม่ใช่เรื่องที่ยากอีกต่อไป และภาษา Haskell ก็เป็นหนึ่งในภาษาโปรแกรมที่น่าสนใจมาก แม้ว่ามันจะมีความเฉพาะตัว แต่ก็มีความสามารถสูงในการสร้างโปรแกรมที่มีความซับซ้อน ในบทความนี้เราจะมาทำความรู้จักกับการสร้าง Simple Calculator ด้วยภาษา Haskell กัน

อะไรคือ Haskell?

Haskell เป็นภาษาที่เป็นแบบฟังก์ชัน (Functional Programming) และมีการใช้งานกันอย่างกว้างขวางในวงการวิทยาศาสตร์ข้อมูลและซอฟต์แวร์ Haskell เน้นการประมวลผลข้อมูลแบบไม่เปลี่ยนแปลง (Immutable Data Processing) ซึ่งทำให้เราสามารถเขียนโปรแกรมที่มีความแม่นยำสูงขึ้น

ทำไมต้องสร้าง Calculator?

การสร้างเครื่องคิดเลขไม่เพียงแต่จะช่วยให้เรารู้จักกับการเขียนโปรแกรมใน Haskell แต่ยังช่วยเราในความเข้าใจการจัดการกับข้อมูล การใช้ฟังก์ชัน และการจัดการกับปฏิบัติการทางคณิตศาสตร์แบบง่ายๆ

ความต้องการของ Simple Calculator

1. รองรับการคำนวณพื้นฐาน: บวก, ลบ, คูณ, หาร

2. รองรับการรับค่าจากผู้ใช้

3. แสดงผลการคำนวณ

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

เรามาเริ่มเขียนโค้ดกันเลยดีกว่า! ด้านล่างนี้เป็นโค้ดตัวอย่างสำหรับ Simple Calculator ใน Haskell:

 import Text.Read (readMaybe)

-- ฟังก์ชันสำหรับบวก
add :: Double -> Double -> Double
add x y = x + y

-- ฟังก์ชันสำหรับลบ
subtract' :: Double -> Double -> Double
subtract' x y = x - y

-- ฟังก์ชันสำหรับคูณ
multiply :: Double -> Double -> Double
multiply x y = x * y

-- ฟังก์ชันสำหรับหาร
divide :: Double -> Double -> Maybe Double
divide _ 0 = Nothing  -- เช็คหารด้วยศูนย์
divide x y = Just (x / y)

-- ฟังก์ชันหลักสำหรับรับค่าจากผู้ใช้และแสดงผล
main :: IO ()
main = do
    putStrLn "กรุณาเลือกปฏิบัติการ (1: บวก, 2: ลบ, 3: คูณ, 4: หาร):"
    operation <- getLine
    putStrLn "กรุณาใส่ตัวเลขตัวที่ 1:"
    num1Str <- getLine
    putStrLn "กรุณาใส่ตัวเลขตัวที่ 2:"
    num2Str <- getLine

    let num1 = readMaybe num1Str :: Maybe Double
        num2 = readMaybe num2Str :: Maybe Double

    case (operation, num1, num2) of
        ("1", Just x, Just y) -> putStrLn $ "ผลลัพธ์: " ++ show (add x y)
        ("2", Just x, Just y) -> putStrLn $ "ผลลัพธ์: " ++ show (subtract' x y)
        ("3", Just x, Just y) -> putStrLn $ "ผลลัพธ์: " ++ show (multiply x y)
        ("4", Just x, Just y) ->
            case divide x y of
                Just result -> putStrLn $ "ผลลัพธ์: " ++ show result
                Nothing -> putStrLn "ไม่สามารถหารด้วยศูนย์ได้!"
        _ -> putStrLn "กรุณากรอกข้อมูลให้ถูกต้อง!"

วิธีการทำงานของโค้ด

Use Case ในโลกจริง

การสร้าง Simple Calculator ใน Haskell นี้สามารถยกตัวอย่างการใช้งานในหลายๆ ด้าน เช่น:

เริ่มต้นที่ EPT

หากคุณสนใจเรียนรู้การเขียนโปรแกรมหรือเพิ่มเติมความเข้าใจเกี่ยวกับภาษา Haskell สามารถเข้ามาที่ EPT ร่วมเป็นส่วนหนึ่งในการเรียนรู้และฝึกฝน โดยคุณจะได้พบกับการสอนที่น่าสนใจและเข้ากับความเข้าใจของคุณ

การเรียนรู้การเขียนโปรแกรมไม่เคยสะดุด! มาร่วมเดินทางค้นพบโลกของการเขียนโปรแกรมที่ EPT ด้วยกันเถอะ!

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