If you do not find what you're looking for, you can use more accurate words.
البرنامج التالي يقوم بحساب أصغر عدد من الأشخاص الموجودين في غرفة ما اولذين يكون احتمال تفرد يوم مولدهم بشكل كامل أقل من 50% (بما يسمى مفارقة عيد الميلاد حيث يكون الاحتمال بالنسبة لشخص واحد 100% بينما لشخصين 364/365... الخ) (الإجابة = 23).
let year_size = 365.;; let rec birthday_paradox prob people = let prob' = (year_size -. float people) /. year_size *. prob in if prob' <0.5 then Printf.printf "answer = %d" (people+1) else birthday_paradox prob' (people+1) ;; birthday_paradox 1.0 1