9 lines
164 B
Haskell
9 lines
164 B
Haskell
import Control.Monad
|
|
import System.Random
|
|
|
|
loopBreak n k = do
|
|
r <- randomRIO (0,n)
|
|
print r
|
|
unless (r==k) $ do
|
|
print =<< randomRIO (0,n)
|
|
loopBreak n k
|