1. comapring seqeunces
- Posted by Paul Kerslake <paulk at UNISERVE.COM> Oct 21, 2000
- 373 views
------=_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
- Posted by Caballero Rojo <pampeano at ROCKETMAIL.COM> Oct 24, 2000
- 381 views
--------------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>