F＃鑒別工會和印刷

Question

我試圖解決下面的問題，但很難弄清楚如何以所需的格式打印它，括號和數字/運算符。

我有下面的代碼來創建表達式，但使用匹配模式打印％A不起作用。 我可以訪問值但不能以所需的格式打印它們。 有人有建議嗎？

let one = Const(1)
let two = Const(2)
let three = Const(3)
let Bin1 = BinOpr(one, "+", two)
let Bin2 = BinOpr(Bin1, "*", three)

Answer 1

解決此問題的方法是通過expr上的模式匹配實現toString ，並為Const和BinOpr輸出相應的字符串：

• 對於Const ，您只需將int轉換為字符串即可。
• 對於BinOpr ，您必須構建一個表單的字符串(<expr> <op> <expr>) 。

嘗試自己實現這個功能，並不是那么困難但是如果你遇到困難，我提供下面的解決方案。

---

解

let rec toString expr =
  match expr with
  | Const x -> string x
  | BinOpr (e1, op, e2) -> sprintf "(%s %s %s)" (toString e1) op (toString e2)