| Store | Cart

mind.pl

From: Arthur T. Murray <uj7...@victoria.tc.ca>
Tue, 12 Aug 2003 04:09:25 -0700 (PDT)
#!/usr/bin/perl -w
#
sub security;
sub sensorium;
sub emotion;
sub think;
sub volition;
sub motorium;
while (1) {
  security();
  sensorium();
  emotion();
  think();
  volition();
  motorium();
}
sub security {
# http://mentifex.virtualentity.com/acm.html#security
} def;
sub sensorium {
  # http://mentifex.virtualentity.com/acm.html#sensorium
  print "Press ENTER or ESCAPE key: ";
  $_ = <STDIN>;
  exit if (/^\027/);
} def;
sub emotion {
  # http://mentifex.virtualentity.com/acm.html#emotion
} def;
sub think {
  # http://mentifex.virtualentity.com/acm.html#think
} def;
sub volition {
  # http://mentifex.virtualentity.com/acm.html#volition
} def;
sub motorium {
  # http://mentifex.virtualentity.com/acm.html#motorium
} def;
#---

Recent Messages in this Thread
Arthur T. Murray Aug 12, 2003 11:09 am
Previous post: Perl AI Weblog