F# Learn 01 “与"操作符

来源:互联网 发布:学霸有多努力知乎 编辑:程序博客网 时间:2024/06/14 10:29

下面的代码输出了二进制数值的每一位状态

 

let HasBeenPressed di =     let mutable v = 1       let s = System.Convert.ToString(int di, 2)    printfn "十进制:%i 二进制:%s" di s    for i = 0 to s.Length-1 do        if i = 0 then v <- 1 else v <- v * 2                if (di &&& v) <> 0 then printfn "第%i位按下" (i+1)    printfn ""[<EntryPoint>]let main argv =     let di = 65535  
    let r = System.Random()     
while true do r.Next(0, 65535) |> HasBeenPressed System.Threading.Thread.Sleep 1000 System.Console.ReadKey() |> ignore 0


原创粉丝点击