Excel VBA, 42 bytes
An anonymous function that takes input from range [A1] and outputs to the console.
k=[A1]:?k:While k:y=Int(k*Rnd):?y:k=y:Wend
Taylor Raine
- 8.8k
- 2
- 28
- 51