Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 12:43, 6 April 2022
, 2 years agono edit summary
(Added Forth entry) |
No edit summary |
||
Line 336:
432883
</pre>
=={{header|Haskell}}==
<lang haskell>findPseudoRandom :: Int -> Int
findPseudoRandom seed =
let square = seed * seed
squarestr = show square
enlarged = replicate ( 12 - length squarestr ) '0' ++ squarestr
in read $ take 6 $ drop 3 enlarged
solution :: [Int]
solution = tail $ take 6 $ iterate findPseudoRandom 675248</lang>
{{out}}
<pre>[959861,333139,981593,524817,432883]</pre>
=={{header|J}}==
|