1. comapring seqeunces
------=_NextPart_000_0007_01C03B89.0E3226E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Is there a way to compare 2 objects .like so:
object pfsong,ledzepsong
pfsong=3D{"money, it's a gas",
"grab that cash ",
"with both hands " ,
"and make a stash"}
=20
ledzepsong=3D{"theres a lady in short",
"all that glitters is gold",
"and she's buying a ",
"stairway to heaven....."
compare(pfsong,ledzepsong)
What I really looking for is to check if an object that is more than one =
line long is "empty" or not, something like:
if pfsong=3D0 then
puts(1,"nothing in it")
end if
Thanksssss
AuRevioior
----->Thomas
--------/\=3D=3D=3D
all you create and all you destroy, all that you light and evr'yone you =
fight, and everything under the suin is in tune, but the sun is =
ecllipsed by the moon..............
------=_NextPart_000_0007_01C03B89.0E3226E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Is there a way to compare =
2 objects .like=20
so:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>object pfsong,ledzepsong</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>pfsong=3D{"money, it's a =
gas",</FONT></DIV>
<DIV><FONT face=3DArial=20
b that=20
<DIV><FONT face=3DArial=20
h both=20
hands " ,</FONT></DIV>
<DIV><FONT face=3DArial=20
size=3D2> "and =
make a=20
stash"}<BR> </FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ledzepsong=3D{"theres a lady in =
short",</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> =20
"all that =
glitters is=20
gold",</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> =20
"and she's =
buying=20
a ",</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> =20
"stairway to=20
heaven....."</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>compare(pfsong,ledzepsong)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>What I really looking for is to check =
if an object=20
that is more than one line long is "empty" or not, something =
like:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>if pfsong=3D0 then</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>puts(1,"nothing in it")</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>end if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Thanksssss</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>AuRevioior</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>----->Thomas</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>--------/\=3D=3D=3D</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><EM>all you create and all you destroy, =
all that=20
you light and evr'yone you fight, and everything under the suin is in =
tune, but=20
the sun is ecllipsed by the =
------=_NextPart_000_0007_01C03B89.0E3226E0--
2. Re: comapring seqeunces
--------------Boundary-00=_DPDX6RO0000000000000
--------------Boundary-00=_DPDX12S0000000000000
Content-Transfer-Encoding: quoted-printable
mmm... maybe something like:
procedure check_empty(sequence temp)
if length(temp) > 0 then -- check if temp is not empty
for I =3D 1 to length(temp) do -- check all the subsequences
if length(temp[I]) =3D 0 then -- if a subsequence is empty
puts(1,"nothing in it") -- then warn about it
end if
end for
end if
end procedure
object pfsong,ledzepsong
pfsong=3D{"money, it's a gas",
"grab that cash ",
"with both hands " ,
"and make a stash"}
=20
ledzepsong=3D{"theres a lady in short",
"all that glitters is gold",
"and she's buying a ",
"stairway to heaven....."
check_empty(pfsong)
check_empty(ledzepsong)
Hope this helps!
Best Regards,
Red Knight
-------Original Message-------
From: Paul Kerslake=20
To: EUPHORIA at LISTSERV.MUOHIO.EDU
Subject: comapring seqeunces
Is there a way to compare 2 objects .like so:
object pfsong,ledzepsong
pfsong=3D{"money, it's a gas",
"grab that cash ",
"with both hands " ,
"and make a stash"}
=20
ledzepsong=3D{"theres a lady in short",
"all that glitters is gold",
"and she's buying a ",
"stairway to heaven....."
compare(pfsong,ledzepsong)
What I really looking for is to check if an object that is more than one =
line long is "empty" or not, something like:
if pfsong=3D0 then
puts(1,"nothing in it")
end if
Thanksssss
AuRevioior
----->Thomas
--------/\=3D=3D=3D
all you create and all you destroy, all that you light and evr'yone you f=
ight, and everything under the suin is in tune, but the sun is ecllipsed =
by the moon..............
--------------Boundary-00=_DPDX12S0000000000000
--------------Boundary-00=_DPDXWCW0000000000000
Content-Transfer-Encoding: quoted-printable
<html>
<head>
<meta name=3D"GENERATOR" content=3D"IncrediMail 1.0">
</head>
<BODY style=3D"BACKGROUND-POSITION: 0px 0px; FONT-FAMILY: Arial; FONT-SIZ=
E: 12pt; MARGIN: 16px 10px 10px 5px" text=3D#0052a4 vLink=3D#004080 aLink=
=3D#004080 link=3D#004080 bgColor=3D#ede99e background=3Dcid:imv2.jpg scr=
oll=3D"yes" X-FDIS=3D"Oldtimer" X-FCOL=3D"Papers" X-FCAT=3D"General" X-FI=
T=3D"Letter" X-ADF=3D"0" X-AD=3D"E3F15280-2BF7-11D4-BA28-0050DAC68030" X-=
APF=3D"1" X-AP=3D"6486DDE0-3EFD-11D4-BA3D-0050DAC68030" X-ANF=3D"0" X-AN=3D=
"6486DDE0-3EFD-11D4-BA3D-0050DAC68030" X-ASHF=3D"1" X-ASH=3D"BCEB29C0-42D=
3-11D4-BA3E-0050DAC68030" X-ASNF=3D"0" X-ASN=3D"BCEB29C0-42D3-11D4-BA3E-0=
050DAC68030" X-FVER=3D"1.0" X-FID=3D"C3375DD3-5CF3-11D4-AF92-0050DAC67E11=
" SIGCOLOR=3D"8404992" ORGYPOS=3D"0"><TABLE id=3DINCREDIMAINTABLE cellSpa=
cing=3D0 cellPadding=3D2 width=3D"100%" border=3D0>
<TBODY>
<TR>
<TD id=3DINCREDITEXTREGION style=3D"FONT-FAMILY: Arial; FONT-SIZE: 12pt" =
width=3D"100%">
<DIV>mmm... maybe something like:</DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>procedure check_empty(sequ=
ence=20
temp)</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2> if length(temp) >=
; 0 then --=20
check if temp is not empty</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2> for I =3D=
1 to=20
length(temp) do -- check all the subsequences</FONT></DIV>
<DIV><FONT face=3D"Courier New"=20
size=3D2> if length(temp[=
I]) =3D 0=20
then -- if a subsequence is empty</FONT></DIV>
<DIV><FONT face=3D"Courier New"=20
size=3D2> &nbs=
p; =20
puts(1,"nothing in it") -- then warn about it</FONT></DIV>
<DIV><FONT face=3D"Courier New"=20
size=3D2> end if</FONT></=
DIV>
<DIV><FONT face=3D"Courier New" size=3D2> end=20
for</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2> end if</FONT><=
/DIV>
<DIV><FONT face=3D"Courier New" size=3D2>end procedure</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>object pfsong,ledzepsong</=
FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>
<DIV><FONT face=3D"Courier New" size=3D2>pfsong=3D{"money, it's a=20
gas",</FONT></DIV>
<DIV><FONT face=3D"Courier New"=20
size=3D2> &nbs=
p;"grab=20
that cash ",</FONT></DIV>
<DIV><FONT face=3D"Courier New"=20
size=3D2> &nbs=
p;"with=20
both hands " ,</FONT></DIV>
<DIV><FONT face=3D"Courier New"=20
size=3D2> "an=
d make a=20
stash"}<BR> </FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2>ledzepsong=3D{"theres a la=
dy in=20
short",</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2> &=
nbsp; =20
"all that=20
glitters is gold",</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2> &=
nbsp; =20
"and she's=
buying=20
a ",</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2> &=
nbsp; =20
"stairway =
to=20
heaven....."</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>check_empty(pfsong)</FONT>=
</DIV>
<DIV><FONT face=3D"Courier New" size=3D2>check_empty(ledzepsong)</F=
ONT></DIV>
<DIV> </DIV>
<DIV>Hope this helps!</DIV>
<DIV> </DIV>
<DIV>Best Regards,</DIV>
<DIV> Red Knight</DIV>
<DIV> </DIV></DIV>
<DIV><I>-------Original Message-------</I></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV dir=3Dltr id=3Dfromshowfield><U><I>From:</I></U><B> Paul Kersl=
ake=20
<PAULK at UNISERVE.COM></B></DIV>
<DIV dir=3Dltr id=3Dtoshowfield><U><I>To:</I></U><B>=20
EUPHORIA at LISTSERV.MUOHIO.EDU</B></DIV>
<DIV dir=3Dltr id=3Dsubjectshowfield><U><I>Subject:</I></U><B> coma=
pring=20
seqeunces</B></DIV><BR>
<DIV><FONT face=3DArial size=3D2>Is there a way to compare 2 o=
bjects=20
.like so:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>object pfsong,ledzepsong</FONT></D=
IV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>pfsong=3D{"money, it's a gas",</FO=
NT></DIV>
<DIV><FONT face=3DArial=20
size=3D2> &nbs=
p;"grab=20
that cash ",</FONT></DIV>
<DIV><FONT face=3DArial=20
size=3D2> &nbs=
p;"with=20
both hands " ,</FONT></DIV>
<DIV><FONT face=3DArial=20
size=3D2> "an=
d make a=20
stash"}<BR> </FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ledzepsong=3D{"theres a lady in=20
short",</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> &nb=
sp;=20
"all that=20
glitters is gold",</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> &nb=
sp;=20
"and she's=
buying=20
a ",</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> &nb=
sp;=20
"stairway =
to=20
heaven....."</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>compare(pfsong,ledzepsong)</FONT><=
/DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>What I really looking for is to ch=
eck if an=20
object that is more than one line long is "empty" or not, something=
=20
like:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>if pfsong=3D0 then</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>puts(1,"nothing in it")</FONT></DI=
V>
<DIV><FONT face=3DArial size=3D2>end if</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Thanksssss</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>AuRevioior</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>----->Thomas</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>--------/\=3D=3D=3D</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><EM>all you create and all you des=
troy, all=20
that you light and evr'yone you fight, and everything under the sui=
n is in=20
tune, but the sun is ecllipsed by the moon..............</EM></FONT=
></DIV>
<DIV>
<DIV> </DIV></DIV>
<DIV> </DIV></TD></TR>
<TR>
<TD id=3DINCREDIFOOTER width=3D"100%">
<TABLE cellSpacing=3D0 cellPadding=3D0 width=3D"100%">
<TBODY>
<TR>
<TD width=3D"100%"></TD>
<TD id=3DINCREDISOUND vAlign=3Dbottom align=3Dmiddle></TD>
<TD id=3DINCREDIANIM vAlign=3Dbottom align=3Dmiddle></TD></TR></TBODY></T=
ABLE></TD></TR></TBODY></TABLE><SPAN=20
id=3DIncrediStamp><FONT face=3D"Arial, Helvetica, sans-serif"=20
size=3D2>__________________________________________<BR>Created and best v=
iewed=20
with IncrediMail!<BR>Get your free copy at: <A=20
--------------Boundary-00=_DPDXWCW0000000000000
Content-ID: <imv2.jpg>
