integerToBinaryString F# | C# Online Compiler

integerToBinaryString F# by DwyGuy

let rec integerToBinaryStringHelper i acc =
    if i = 0 then
        acc
    elif i % 2 = 0 then
        integerToBinaryStringHelper (i >>> 1) ("0" + acc)
    else
        integerToBinaryStringHelper (i >>> 1) ("1" + acc)

let integerToBinaryString i =
    if i = 0 then
        "0"
    else
        integerToBinaryStringHelper i ""

printfn "%s" (integerToBinaryString 10)

​x
 
let rec integerToBinaryStringHelper i acc =
    if i = 0 then
        acc
    elif i % 2 = 0 then
        integerToBinaryStringHelper (i >>> 1) ("0" + acc)
    else
        integerToBinaryStringHelper (i >>> 1) ("1" + acc)
​
let integerToBinaryString i =
    if i = 0 then
        "0"
    else
        integerToBinaryStringHelper i ""
​
printfn "%s" (integerToBinaryString 10)

Player 1:
Cards: [6♠] [A♣] [9♠] [7♥] [3♦]
Result: Ace High

Player 2:
Cards: [J♠] [9♣] [2♠] [5♦] [A♥]
Result: Ace High

Player 3:
Cards: [K♥] [J♣] [5♣] [3♣] [4♦]
Result: King High

Player 4:
Cards: [3♠] [8♠] [6♣] [7♠] [Q♣]
Result: Queen High

The winner is: Player 2 with a Ace High

Cached Result
Last Run:	11:53:38 pm
Compile:	0.142s
Execute:	0.025s
Memory:	64kb
CPU:	0.031s

View IL Code