Verify distribution uniformity/Naive: Difference between revisions

=={{header|Nim}}==

<lang Nim>import random, tables

 

proc checkDist(f: proc(): int; repeat: Positive; tolerance: float) =

var counts: CountTable[int]

for _ in 1..repeat:

counts.inc f()

let expected = (repeat / counts.len).toInt # Rounded to nearest.

let allowedDelta = (expected.toFloat * tolerance / 100).toInt

let d = abs(count - expected)

if d > maxDelta: maxDelta = d

let status = if maxDelta <= allowedDelta: "passed" else: "failed"

echo "Checking with a tolerance of ", tolerance, "%."

randomize()

proc rand5(): int = rand(1..5)

 

{{out}}