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

#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

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

added 5 characters in body

Source Link

edited Jul 9, 2018 at 18:53

#Excel VBA, 3742 bytes

An anonymous function that takes input from range [A1] and outputs to the console.

k=[A1]:?k:While k:y=k*Rndy=Int(k*Rnd):?y:k=y:Wend

#Excel VBA, 37 bytes

An anonymous function that takes input from range [A1] and outputs to the console.

k=[A1]:?k:While k:y=k*Rnd:?y:k=y:Wend

#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

Source Link

created Jul 9, 2018 at 17:56

#Excel VBA, 37 bytes

An anonymous function that takes input from range [A1] and outputs to the console.

k=[A1]:?k:While k:y=k*Rnd:?y:k=y:Wend

Return to Answer