Generiamo con un programma in Basic tot punti di un bersaglio di raggio 1 che cadono uniformemente in esso. Ne stampiamo 6 per riga.

10 input "n = "; n : dim xp(n) : dim yp(n) : lanci=0 : ok=0
20 while lanci < n
30   x = rnd*2-1 : y = rnd*2-1
40   if x*x+y*y < 1 then gosub 100
50 wend
60 print "x" : for i=1 to n-1 : print xp(i);","; : gosub 200 : next : print xp(n)
70 print "y" : for i=1 to n-1 : print yp(i);","; : gosub 200 : next : print yp(n)
80 end
100 lanci = lanci + 1 : xp(lanci)=x : yp(lanci)=y
110 return
200 if int(i/6)=i/6 then print "" : return

Otteniamo, se introduco n = 300, uscite come le seguenti:

n = 300
x
0.7763696908950806,-0.18678557872772217,0.3674672842025757,-0.27853429317474365,0.19895541667938232,0.11989796161651611,
0.6292387247085571,-0.33225929737091064,0.40196168422698975,-0.08917844295501709,0.8133143186569214,-0.15946567058563232,
...
0.6427971124649048,0.5182818174362183,-0.6846767663955688,0.3776310682296753,0.03852570056915283,0.34667932987213135
y
-0.4916224479675293,-0.2403402328491211,-0.9223859310150146,0.34203481674194336,-0.6526901721954346,0.024179458618164062,
-0.431088924407959,0.49271178245544434,-0.6723535060882568,0.9556078910827637,0.13899874687194824,0.5751609802246094,
...
-0.759850025177002,-0.6516849994659424,0.572913408279419,0.2595250606536865,-0.6975240707397461,0.18514394760131836