Haskell:
Làm việc với CSV

{-# LANGUAGE OverloadedStrings #-}

import Data.Csv
import qualified Data.ByteString.Lazy as BL
import qualified Data.Vector as V

-- Giả sử chúng ta đang làm việc với kiểu này
type Person = (String, Int, Bool)

-- Dữ liệu CSV mẫu
csvData :: BL.ByteString
csvData = "John Doe,30,true\nJane Smith,25,false"

-- Giải mã dữ liệu CSV
decodePeople :: BL.ByteString -> Either String (V.Vector Person)
decodePeople = fmap snd . decode NoHeader

-- Mã hóa dữ liệu thành CSV
encodePeople :: V.Vector Person -> BL.ByteString
encodePeople = encode

-- Ví dụ sử dụng
main :: IO ()
main = do
  -- Giải mã
  case decodePeople csvData of
    Left err -> putStrLn err
    Right v -> print v
  
  -- Mã hóa
  let people = V.fromList [("Alice", 23, True), ("Bob", 35, False)]
  BL.putStrLn $ encodePeople people

[("John Doe",30,True),("Jane Smith",25,False)]
"Alice",23,True
"Bob",35,False