Advertisement
jukaukor

nopanheitto.jl

Jul 20th, 2023
15
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.56 KB | None | 0 0
  1. function nopat(m,n)
  2. # m noppaa, n arvontaa
  3. # mikä on todennäköisyys, että noppien arvonnassa
  4. # kaikissa on eri silmäluku
  5. kaikkieri = 0 # kirjaa oikeita heittoja (kaikki eri lukuja)
  6. for k in 1:n # heittokierros alkaa
  7. sama = 0
  8. a = rand(1:6,m) # arvotaan m noppaa
  9. # tutkitaan ovatko noppien silmäluvut uniikkeja
  10. for i = 1 : m-1
  11. for j = i+1:m
  12. sama += (a[j] == a[i])
  13. end
  14. end
  15. if sama == 0
  16. kaikkieri += 1
  17. end
  18. end
  19. return kaikkieri/n
  20. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement