This is a multi-part message in MIME format.
------=_NextPart_000_003C_01BF77C1.5EF521E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I have a problem:
This is a family tree where a symbol represents a male individual.
A G
/ \ / =20
B C H =20
/ \ / /
D E F I =20
Define names of the fathers from the family tree as :
(setf (get 'a 'father) '(b c)
(get 'b 'father) '(d e)
(get 'c 'father) '(f)
(get 'g 'father) '(h)
(get 'h 'father) '(i)
)
Define recursive function which returns the latest ancestor of certain =
person.
There are no same names or symbols in the tree.
example:
> (latest-ancestor 'f)
A
> (latest-ancestor 'i)
G
Thank's!!!
Please send the solution of the problem!!!!
e-mail ·············@fer.hr
------=_NextPart_000_003C_01BF77C1.5EF521E0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 face=3DArial size=3D2>I have a =
problem:</FONT></DIV>
<DIV><FONT color=3D#000000 face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 face=3DArial size=3D2>This is a family tree =
where a symbol=20
represents a male individual.</FONT></DIV>
<DIV><FONT color=3D#000000 face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 face=3DArial=20
size=3D2> &nbs=
p; =20
A =
&=
nbsp; &n=
bsp; =20
G</FONT></DIV>
<DIV><FONT color=3D#000000 face=3DArial=20
size=3D2> =20
/ =20
\ =
&=
nbsp; &n=
bsp; =20
/ </FONT></DIV>
<DIV><FONT color=3D#000000 face=3DArial =
size=3D2> =20
B =20
C =
&=
nbsp; =20
H </FONT></DIV>
<DIV><FONT color=3D#000000 face=3DArial =
size=3D2> / =20
\ =20
/ =
&=
nbsp; =20
/</FONT></DIV>
<DIV><FONT color=3D#000000 face=3DArial size=3D2> D =20
E =20
F =
&=
nbsp; =20
I </FONT></DIV>
<DIV><FONT color=3D#000000 face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Define names of the fathers from the =
family tree as=20
:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2> (setf (get 'a 'father) '(b =
c)</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2> =20
(get 'b 'father) '(d e)</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2> =20
(get 'c 'father) '(f)</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2> =20
(get 'g 'father) '(h)</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2> =20
(get 'h 'father) '(i)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> )</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Define recursive function which returns =
the latest=20
ancestor of certain person.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>There are no same names or symbols in =
the=20
tree.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>example:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>> (latest-ancestor 'f)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> A</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>> (latest-ancestor 'i)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> G</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Thank's!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Please send the solution of the=20
problem!!!!</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2>e-mail <A=20
····························@fer.hr">·············@fer.hr</A></FONT></DIV=
>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML>
------=_NextPart_000_003C_01BF77C1.5EF521E0--
> Nikola Kresic wrote:
[...]
> Please send the solution of the problem!!!!
Please post your homework solution requests to comp.lang.lisp.homework
or comp.undergrad.losers.
Robert
Centuries ago, Nostradamus foresaw a time when Robert Monfera would say:
>> Nikola Kresic wrote:
>[...]
>> Please send the solution of the problem!!!!
>
>Please post your homework solution requests to comp.lang.lisp.homework
>or comp.undergrad.losers.
No, no, there's a much more appropriate thing to do.
Those that require such special assistance have a choice:
a) If they want customized assistance, they can feel free to pay the
Low, Low Consulting Rate of $80USD/hr, with a minimum of an 8 hour
charge.
b) Alternatively, in order to maintain academic integrity, it is
important to make sure that proper credit is attributed.
Thus, the student should pass on the email address of their
instructor, and I'll be happy to send solutions in directly, and
thereby avoid the extra middleman.
--
"Ah, fall - when leaves turn to burnished colors upon darkling
branches, collars are turned up against a wind which murmurs of
winter, and homework assignments appear on Usenet. <sigh>"
-- Bob Jarvis
········@ntlug.org - - <http://www.ntlug.org/~cbbrowne/lisp.html>