如何用noop代替printfn

Question

我使用pf作為printfn的縮寫

let pf = printfn

// signature:
val pf : (Printf.TextWriterFormat<'a> -> 'a)

我們可以將pf更改為noop並且不輸出任何內容嗎？ 我嘗試過類似的事情

let pf<'a> (x : (Printf.TextWriterFormat<'a> -> 'a)) = ()

// signature:
val pf : (Printf.TextWriterFormat<'a> -> 'a)

Answer 1

怎么樣：

> let noprintf f = Printf.ksprintf (fun _ -> ()) f;;
val noprintf : f:Printf.StringFormat<'a,unit> -> 'a

> noprintf "Hello, %s!" "world";;
val it : unit = ()
>

Answer 2

這是一個簡單的解決方案

let pf fstring = 
    if false then 
        printfn fstring 
    else 
        fun _ -> Operators.Unchecked.defaultof<'a>;;

注意：這確實存在一些問題，在所有情況下都無法使用-請參閱評論