[32576] in Perl-Users-Digest
Perl-Users Digest, Issue: 3847 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 29 09:09:17 2012
Date: Sat, 29 Dec 2012 06:09:04 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 29 Dec 2012 Volume: 11 Number: 3847
Today's topics:
Re: exit if item >10 <nospam.gravitalsun.antispam@spamno.hotmail.anispam.com.nospam>
Re: Need porting of Wotan Supercomputer AI into Perl <mentifex@myuw.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 28 Dec 2012 19:30:36 +0200
From: "George Mpouras" <nospam.gravitalsun.antispam@spamno.hotmail.anispam.com.nospam>
Subject: Re: exit if item >10
Message-Id: <kbkkvt$1lqp$1@news.ntua.gr>
wow !
Ο "Rainer Weikusat" έγραψε στο μήνυμα
news:871ueblpj7.fsf@sapphire.mobileactivedefense.com...
"George Mpouras"
<nospam.gravitalsun.antispam@spamno.hotmail.anispam.com.nospam>
writes:
> I think that $#array is faster than scalar(@array) - 1 because scalar
> is counting while $# points to the last offset
Neither scalar(@array) nor $#array counts anything -- they are both
based on using the same internal 'highest-numbered used slot'
variable. As was discussed not that long ago, scalar(@array) is
actually faster because (in 'commonly-used perls') it doesn't need to
deal with the possible case of being assigned to and doesn't need to
take a possible 'base indexing displacement' into account (where it
still exists). When evaluated, $#array ends up pushing a 'magic
scalar' onto the stack which either evaluates to the corresponding
number or provides the 'change array size by assigning to $#array'
facility via assoicated 'magic' (aka a method table). In more recent
perls, this indirection isn't done anymore when the context of the
evaluation is such that an assignment can't happen, eg
$n = $#array
It is still necessary when $#array is used in an lvalue context. This
includes being passed as argument to a subroutine.
------------------------------
Date: Fri, 28 Dec 2012 13:07:32 -0800 (PST)
From: Mentifex <mentifex@myuw.net>
Subject: Re: Need porting of Wotan Supercomputer AI into Perl
Message-Id: <04069800-5359-4bea-bf8d-d8248f30d94c@i2g2000pbi.googlegroups.com>
On Dec 26, 11:35=A0am, "George Mpouras"
<nospam.gravitalsun.antis...@spamno.hotmail.anispam.com.nospam> wrote:
> Please expain with some more words what all this project is about
The Mentifex (Latin for "Mindmaker") AI project
is about my lifelong attempt to create artificial
intelligence ever since I was an undergraduate
majoring in Greek and Latin classics at the
University of Washington in Seattle. There I
was reading the ancient philosophers like Plato
and Aristotle in the original Greek. When I
was reading "De Anima" by Aristotle, I was already
trying to design the inputs and outputs and
memory structures of an artificial mind.
Over the past week, the Mentifex MindForth AI
has become able to make inferences between two
facts, like the ancient syllogism:
"All men are mortal."
"Socrates is a man."
"Therefore Socrates is mortal."
Please read the AiMind discussion at
http://www.chatbots.org/ai_zone/viewthread/240/
for some recent news about the AI project.
Thank you for your interest.
Mentifex (Arthur)
--
http://www.scn.org/~mentifex/AiMind.html
http://www.scn.org/~mentifex/Dushka.html
http://www.scn.org/~mentifex/mindforth.txt
http://www.scn.org/~mentifex/DeKi.txt
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 3847
***************************************
