Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Monty-Hall-problem/Ursala/monty-hall-problem.ursala
+++ b/Task/Monty-Hall-problem/Ursala/monty-hall-problem.ursala
@ -0,0 +1,17 @@
+#import std
+#import nat
+#import flo
+
+rounds = 10000
+
+car_locations   = arc{1,2,3}* iota rounds
+initial_choices = arc{1,2,3}* iota rounds
+
+staying_wins   = length (filter ==) zip(car_locations,initial_choices)
+switching_wins = length (filter ~=) zip(car_locations,initial_choices)
+
+format = printf/'%0.2f'+ (times\100.+ div+ float~~)\rounds
+
+#show+
+
+main =  ~&plrTS/<'stay:   ','switch: '> format* <staying_wins,switching_wins>