1 #!/usr/sbin/dtrace -wqs
3 * guess.d - guessing game in D (DTrace)
5 * $Id: guess.d 32 2007-09-15 05:08:49Z brendan $
9 * SEE: http://www.brendangregg.com/guessinggame.html
11 * This is written to demonstrate this language versus the same program
12 * written in other languages.
14 * 11-May-2005 Brendan Gregg Created this.
17 inline string scorefile = "highscores_d";
21 printf("guess.d - Guess a number between 1 and 100\n\n");
25 /* Generate random number */
26 answer = (rand() % 100) + 1;
27 answer = answer > 0 ? answer : - answer;
31 /state == 1 && pid == $pid/
34 printf("Enter guess %d: ", num);
40 /state == 2 && ppid == $pid && arg0 == 3/
49 key = copyin(self->buf, arg0);
50 keys[pos] = *(char *)key;
56 /self->inguess && keys[pos-1] == '\n'/
60 guess = fac * (keys[pos] - '0');
63 guess = pos >= 0 ? guess + fac * (keys[pos] - '0') : guess;
66 guess = pos >= 0 ? guess + fac * (keys[pos] - '0') : guess;
78 /self->doneguess && guess == answer/
80 printf("Correct! That took %d guesses.\n\n", num);
83 printf("Please enter your name: ");
84 system("/usr/bin/read name");
88 /self->doneguess && guess != answer/
92 printf("%s...\n", guess < answer ? "Higher" : "Lower");
94 printf("Enter guess %d: ", num);
100 /state == 3 && curthread->t_procp->p_parent->p_ppid == $pid && arg0 == 0/
106 /* Save high score */
111 name = stringof(copyin(self->buf, arg0 - 1));
112 system("echo %s %d >> %s", name, num, scorefile);
114 /* Print high scores */
115 printf("\nPrevious high scores,\n");
116 system("cat %s", scorefile);