Hell about Advanced object handling
------=_NextPart_000_000D_01C00AFA.B2A05E50
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
include get.e
atom atom_received, integer_received, sequence_received --David, =
this is too complex for some people
sequence inputted_string
atom_received =3D 'n' --Its a character straing storing some =
digit value right? But why?
integer_received =3D 'n'
sequence_received =3D 'n'
puts(1,"Enter any numeric value (such as 5.004 or -7)\n")
while atom_received =3D 'n' and integer_received =3D 'n' do --Why is =
that??
inputted_string =3D get(0) --See get() is here =
recieveing a EU valid object, but why?
if inputted_string[1] =3D 0 then --Same goes for all code. =
Sigh!!! Is this hell??
if integer(inputted_string[2]) then
integer_received =3D 'y'
puts(1,"\nThank you! This value is an integer!\n\n")
else
if atom(inputted_string[2]) then
atom_received =3D 'y'
puts(1,"\nThank you! This value is an atom!\n\n")
end if
end if
end if
end while
puts(1,"Enter a sequence value (such as {54,-8,2.3} or \"Hi =
There!\")\n")
while sequence_received =3D 'n' do
inputted_string =3D get(0) =20
if inputted_string[1] =3D 0 then
if sequence(inputted_string[2]) then
sequence_received =3D 'y'
end if
end if
end while
puts(1,"\nThank you! Program Finished!\n")
------=_NextPart_000_000D_01C00AFA.B2A05E50
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.2920.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>include get.e</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>atom atom_received, integer_received,=20
sequence_received --David, this is =
too=20
complex for some people<BR>sequence inputted_string</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>atom_received =3D 'n' =
--Its a character straing storing=20
some digit value right? But why?<BR>integer_received =3D=20
'n'<BR>sequence_received =3D 'n'</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>puts(1,"Enter any numeric value (such =
as 5.004 or=20
-7)\n")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>while atom_received =3D 'n' and =
integer_received =3D=20
'n' do --Why is that??<BR> =20
inputted_string =3D get(0) =20
--See get() is here recieveing a EU valid object, but =
why?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> if =
inputted_string[1] =3D 0=20
then --Same goes for all code. Sigh!!! Is this=20
hell??<BR> if=20
integer(inputted_string[2])=20
; =20
integer_received =3D=20
=20
puts(1,"\nThank you! This value is an=20
integer!\n\n")<BR> =
; =20
if atom(inputted_string[2])=20
atom_received =3D=20
puts(1,"\nThank you! This value is an=20
p; =20
end if<BR> end=20
if<BR> end if<BR>end while</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>puts(1,"Enter a sequence value (such as =
{54,-8,2.3}=20
or \"Hi There!\")\n")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>while sequence_received =3D 'n'=20
do<BR> inputted_string =3D =
get(0) =20
<BR> if inputted_string[1] =3D 0=20
then<BR> if=20
sequence(inputted_string[2])=20
; =20
sequence_received =3D=20
'y'<BR> end=20
if<BR> end if<BR>end while</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>puts(1,"\nThank you! Program=20
Finished!\n")</FONT></DIV>
<DIV> </DIV>
------=_NextPart_000_000D_01C00AFA.B2A05E50--
|
Not Categorized, Please Help
|
|
