Advertisement
Guest User

Untitled

a guest
Nov 21st, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.14 KB | None | 0 0
  1. rand_day() {
  2.     day = randint(range(366));
  3.     coin = rand(0...1);
  4.     if (d[day - 1] <= coin) {
  5.         return day;
  6.     else {
  7.         return rand_day(); 
  8. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement