deleted 13 characters in body

Source Link

edited 2 days ago

Tcl, 53 bytes

proc R t {time {puts [expr entier(rand()*4**64)]} $t}

# [Tcl], 8582 bytes
proc R t {time {time {append x [expr rand()>.5]} 128 puts [scan $x[expr %llb]0b$x] unset x} $t}

Try it online!Try it online!

proc R t {time {puts [expr entier(rand()*4**64)]} $t}

# [Tcl], 85 bytes
proc R t {time {time {append x [expr rand()>.5]} 128 puts [scan $x %llb] unset x} $t}

Try it online!

proc R t {time {puts [expr entier(rand()*4**64)]} $t}

# [Tcl], 82 bytes
proc R t {time {time {append x [expr rand()>.5]} 128 puts [expr 0b$x] unset x} $t}

Try it online!

added 303 characters in body

Source Link

edited Oct 28 at 21:35

sergiol

Tcl, 8553 bytes

proc R t {time {time {append xputs [expr entier(rand()>.5]} 128
puts [scan $x %llb]
unset x*4**64)]} $t}

# [Tcl], 85 bytes
proc R t {time {time {append x [expr rand()>.5]} 128 puts [scan $x %llb] unset x} $t}

Try it online!

proc R t {time {time {append x [expr rand()>.5]} 128
puts [scan $x %llb]
unset x} $t}

proc R t {time {puts [expr entier(rand()*4**64)]} $t}

# [Tcl], 85 bytes
proc R t {time {time {append x [expr rand()>.5]} 128 puts [scan $x %llb] unset x} $t}

Try it online!

Source Link

answered Oct 28 at 20:49

sergiol

proc R t {time {time {append x [expr rand()>.5]} 128
puts [scan $x %llb]
unset x} $t}