1
<HTML><HEAD><TITLE>Answer to Exercise 54</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 54</B><TR><TD><TD>
9
with name "coin" "coins//p",
10
description "A round unstamped disc, presumably local currency.",
11
list_together "coins",
13
[; print (string) (self.&name)-->0;
14
if (~~(listing_together ofclass Coin)) print " coins";
17
[; if (listing_together ofclass Coin)
18
{ print (string) (self.&name)-->0; rtrue; }
21
[; if (listing_together ofclass Coin) print "one"; else print "a";
23
Class Gold_coin class Coin with name "gold";
24
Class Silver_coin class Coin with name "silver";
25
Class Bronze_coin class Coin with name "bronze";
26
SilverCoin -> "silver coin";
31
<HR>Back to <A HREF="../section23.html#ex54">the exercise in section 23</A><HR>
32
<SMALL><I>Mechanically translated to HTML from third edition as revised 16 May 1997. Copyright © Graham Nelson 1993, 1994, 1995, 1996, 1997: all rights reserved.</I></SMALL></BODY></HTML>