← Back to branch summary

~ubuntu-branches/ubuntu/vivid/inform/vivid

« back to all changes in this revision

Viewing changes to html/answers2/answer67.html

  • Committer: Bazaar Package Importer
  • Author(s): Jan Christoph Nordholz
  • Date: 2008-05-26 22:09:44 UTC
  • mfrom: (2.1.1 lenny)
  • Revision ID: james.westby@ubuntu.com-20080526220944-ba7phz0d1k4vo7wx
Tags: 6.31.1+dfsg-1
* Remove a considerable number of files from the package
  due to unacceptable licensing terms.
* Repair library symlinks.

Show diffs side-by-side

added added

removed removed

Lines of Context:
html/answers2/answer67.html
1
 
<HTML><HEAD><TITLE>Answer to Exercise 67</TITLE></HEAD>
2
 
<BODY BGCOLOR="#FFFFFF">
3
 
<TABLE><TR><TD Valign="top"><IMG SRC="../icons/exercise.gif" ALT="??"><TD bgcolor="#FAA89B"><B>ANSWER TO EXERCISE 67</B><TR><TD><TD>
4
 
<P>
5
 
 
6
 
 
7
 
<PRE>
8
 
Object -&#62; genies_lamp "brass lamp"
9
 
  with name "brass" "lamp",
10
 
       before
11
 
       [; Rub: if (self hasnt general) give self general;
12
 
               else give self ~general;
13
 
              "A genie appears from the lamp, declaring:^^
14
 
               ~Mischief is my sole delight:^
15
 
               If white means black, black means white!~^^
16
 
               She vanishes away with a vulgar wink.";
17
 
       ];
18
 
Object -&#62; white_stone "white stone" with name "white" "stone";
19
 
Object -&#62; black_stone "black stone" with name "black" "stone";
20
 
...
21
 
[ BeforeParsing;
22
 
   if (genies_lamp hasnt general) return;
23
 
   for (wn=1::)
24
 
   {   switch(NextWordStopped())
25
 
       {   'white': parse-&#62;(wn*2-3) = 'black';
26
 
           'black': parse-&#62;(wn*2-3) = 'white';
27
 
           -1: return;
28
 
       }
29
 
   }
30
 
];
31
 
</PRE>
32
 
 
33
 
</TABLE>
34
 
<HR>Back to <A HREF="../section26.html#ex67">the exercise in section 26</A><HR>
35
 
<SMALL><I>Mechanically translated to HTML from third edition as revised 16 May 1997. Copyright &#169; Graham Nelson 1993, 1994, 1995, 1996, 1997: all rights reserved.</I></SMALL></BODY></HTML>