RosettaCodeData/Task/Binary-digits/Futhark/binary-digits.futhark
2023-07-01 13:44:08 -04:00

6 lines
155 B
Text

fun main(x: i32): i64 =
loop (out = 0i64) = for i < 32 do
let digit = (x >> (31-i)) & 1
let out = (out * 10i64) + i64(digit)
in out
in out