🔵 도서관 도서 관리 시스템

// 책 정보 타입 정의
type Book = {
    Title: string
    Author: string
    Available: bool
}

// 파일에서 도서 목록 로드
let loadBooks () =
    try
        let json = System.IO.File.ReadAllText "books.json"
        Newtonsoft.Json.JsonConvert.DeserializeObject<Book list> json
    with
        | _ -> [] // 파일 없을 시 빈 리스트 반환

// 도서 저장
let saveBooks books =
    try
        let json = Newtonsoft.Json.JsonConvert.SerializeObject books
        System.IO.File.WriteAllText("books.json", json)
    with
        | ex -> printfn "저장 중 오류: %s" ex.Message

// 책 추가 함수
let addBook title author =
    let newBook = { Title=title; Author=author; Available=true }
    let books = loadBooks() @ [newBook]
    saveBooks books
    printfn "도서 '%s'가 성공적으로 등록되었습니다." title

// 책 검색 함수
let searchBooks query =
    let books = loadBooks()
    books |> List.filter (fun book ->
        book.Title.Contains(query) || book.Author.Contains(query))
    |> List.map (fun book ->
        sprintf "[%s] %s - 대출 가능: %b" book.Title book.Author book.Available)
    |> List.iter printfn

// 메인 함수
[<EntryPoint>]
let main _ =
    printfn "=== 도서관 관리 시스템 ==="
    printf "추가할 책 제목: ";
    let title = System.Console.ReadLine() |> Option.ofObj
    printf "저자 이름: ";
    let author = System.Console.ReadLine() |> Option.ofObj

    match (title, author) with
    | Some t, Some a -> addBook t a
    | _ -> printfn "잘못된 입력입니다."

    // 검색 기능 테스트
    searchBooks "파이썬"
    System.Console.ReadLine() |> ignore
    0