088e249a-9ff2-4cea-96e3-c91a33f4b691 21 3 5 decimal

&[DATE] &[TIME] - &[FILENAME]

n m MyRandom k 1 : k 1 m range R n 1 Random : S k el R sum n / : k k 1 + : 31 line for S S sum m / 21 mat 31 line :

10010 MyRandom 1 el 10010 MyRandom 2 el 21 mat 0.458 0.5 0.486 0.485 0.479 0.544 0.514 0.516 0.492 0.507 101 mat 0.49 21 mat

n m MyRandom k 1 : k 1 m range R n 1 Random : S k el R sum n / : k k 1 + : 31 line for S 31 line :

Transit  [copy/paste] => 10010 MyRandom 0.495 0.514 0.513 0.483 0.494 0.491 0.476 0.533 0.537 0.483 101 mat

0.557 0.44 0.493 0.483 0.512 0.529 0.485 0.494 0.503 0.505 101 mat sum 10 / 0.5

Monte Carlo 'Pi'

N 5000 :

X 2 N 1 Random (* 1 - : Y 2 N 1 Random (* 1 - : 21 line

Fill the circle exclusive of the square Circle i 1 N range U i el X i el X i el (2^Y i el (2^+ 1 < 0 cases : V i el Y i el X i el (2^Y i el (2^+ 1 < 0 cases : 21 line for U V augment 21 line :

Fill the square exclusive of circle Square i 1 N range X i el 0 X i el (2^Y i el (2^+ 1 < X i el cases : Y i el 0 X i el (2^Y i el (2^+ 1 < Y i el cases : 21 line for X Y augment 21 line :

Circle 2 1 sys Square 1 1 sys

Monte Carlo 'Pi'

Square Circle 2 1 sys

Tabulate to explode the coincidences UX i 1 N range U i el X i el X i el (2^Y i el (2^+ 1 < 0 cases : X i el X i el : 21 line for U X augment 21 line :

U UX 1 col : X UX 2 col : 21 line

n U i el X i el ≡ (i 1 N sum : 3897

My_π 4 n N / * : 3.118

Simon Plouffe π  'n' incremental algorithm n pi 116 k^/ 48 k * 1 + / 28 k * 4 + / - 18 k * 5 + / - 18 k * 6 + / - (* (k 0 n sum :

13 pi 3.14159265358979

π 3.14159265358979 ≡