F# - 十六进制转ASCII

下面是一个用F#编写的将十六进制字符串转换为ASCII字符的示例代码：

let hexToAscii(hex:string) =
    let rec convertBytes (bytes:string list) =
        match bytes with
        | [] -> []
        | h1::h2::t -> byte (int (h1.ToString() + h2.ToString(), 16)) :: convertBytes t
        | _ -> failwith "Invalid hex string"

    let bytes = hex |> Seq.chunkBySize 2 |> Seq.map (fun x -> x |> List.ofSeq |> List.map string |> List.reduce (+)) |> List.ofSeq
    let asciiBytes = convertBytes bytes
    System.Text.Encoding.ASCII.GetString(asciiBytes)

// 示例用法
let hexString = "48656C6C6F20576F726C64" // "Hello World"的十六进制表示
let asciiString = hexToAscii hexString
printfn "%s" asciiString // 输出 "Hello World"

此代码定义了一个名为hexToAscii的函数，该函数接受一个十六进制字符串作为输入，并返回对应的ASCII字符串。

函数首先将输入的十六进制字符串分割成两个字符的片段，然后将每个片段转换为对应的字节。最后，使用System.Text.Encoding.ASCII.GetString将字节转换为ASCII字符串。

在示例用法中，我们将一个十六进制字符串"48656C6C6F20576F726C64"作为输入，该字符串表示ASCII字符串"Hello World"。然后，我们使用hexToAscii函数将其转换为ASCII字符串，并将结果打印到控制台上。