RosettaCodeData/Task/Sleeping-Beauty-problem/Dyalect/sleeping-beauty-problem.dyalect
2023-07-01 13:44:08 -04:00

12 lines
352 B
Text

let experiments = 10000
var heads = 0
var wakenings = 0
for _ in 1..experiments {
wakenings += 1
match rnd(min: 0, max: 10) {
<5 => heads += 1,
_ => wakenings += 1
}
}
print("Wakenings over \(experiments) experiments: \(wakenings)")
print("Sleeping Beauty should estimate a credence of: \(Float(heads) / Float(wakenings))")