The open source AI MindForth has today been
updated
with new EnPronoun (English pronoun) mind-module code
for replacing a singular English noun
with "he", "she"
or "it" in response to user queries of the knowledge-
base (KB). The basic AI mindgrid structure was
previously updated with a special "mfn" gender flag
in the En(glish) lexical array. The new "mfn" flag
for "masculine - feminine - neuter" allows the AI
to keep track of the gender of English nouns.
http://www.scn.org/~mentifex/mindforth.txt
is the free AI source code for loading into
http://prdownloads.sourceforge.net/win32forth/W32
FOR42_671.
zip?download
as the special W32FOR42_671.zip that MindForth
requires for optimal functionality.
http://AIMind-i.com is an offshoot.
The English pronoun mind-module is currently as
follows:
: EnPronoun \ 30dec2009 For use with what-do-X-do
queries.
\ ." EnPr: num = " num @ . \ 13apr2010 test; remove.
num @ 1 = IF \ If antecedent num(ber) is singular;
10apr2010
\ ." (SINGULAR) " \ Test; remove; 10apr2010
mfn @ 1 = IF \ if masculine singular; 13apr2010
midway @ t @ DO \ Look backwards for 49=HE;
13apr2010
I 0 en{ @ 49 = IF \ If #49 "he" is found,
49 motjuste ! \ "nen" concept #49 for "he".
I 7 en{ @ aud ! \ Recall-vector for "he".
LEAVE \ Use the most recent engram of "he".
THEN \ End of search for #49 "he"; 13apr2010
-1 +LOOP \ End of loop finding pronoun "he";
13apr2010
SpeechAct \ Speak or display the pronoun "he";
13apr2010
THEN \ end of test for masculine gender-flag;
13apr2010
mfn @ 2 = IF \ if feminine singular; 13apr2010
midway @ t @ DO \ Look backwards for 80=SHE
I 0 en{ @ 80 = IF \ If #80 "she" is found,
80 motjuste ! \ "nen" concept #80 for "she".
I 7 en{ @ aud ! \ Recall-vector for "she".
LEAVE \ Use the most recent engram of "she".
THEN \ End of search for #80 "she"; 13apr2010
-1 +LOOP \ End of loop finding pronoun "she"
SpeechAct \ Speak or display the pronoun "she"
THEN \ end of test for feminine gender-flag; 13apr2010
mfn @ 3 = IF \ if neuter singular; 13apr2010
midway @ t @ DO \ Look backwards for 95=IT;
13apr2010
I 0 en{ @ 95 = IF \ If #95 "it" is found,
95 motjuste ! \ "nen" concept #95 for "it".
I 7 en{ @ aud ! \ Recall-vector for "it".
LEAVE \ Use the most recent engram of "it".
THEN \ End of search for #95 "it"; 13apr2010
-1 +LOOP \ End of loop finding pronoun "it";
13apr2010
SpeechAct \ Speak or display the pronoun "it";
13apr2010
THEN \ end of test for neuter gender-flag; 13apr2010
0 numsubj ! \ safety measure; 13apr2010
THEN \ End of test for singular num(ber) 10apr2010
num @ 2 = IF \ 30dec2009 If num(ber) of antecedent is
plural
( code further conditions for "WE" or "YOU" )
midway @ t @ DO \ Look backwards for 52=THEY.
I 0 en{ @ 52 = IF \ If #52 "they" is found,
52 motjuste ! \ "nen" concept #52 for "they".
I 7 en{ @ aud ! \ 31jan2010 Recall-vector
for "they".
LEAVE \ Use the most recent engram of "they".
THEN \ End of search for #52 "they".
-1 +LOOP \ End of loop finding pronoun "they".
SpeechAct \ 30dec2009 Speak or display the
pronoun "they".
THEN \ 30dec2009 End of test for plural num(ber)
; ( End of EnPronoun )
The above code is not yet fully developed for
keeping track of noun genders in all cases.
It responds to a query such as the following:
Human: what does andru do
Robot: HE HELPS PEOPLE
The introduction of "HE SHE IT" pronouns in MindForth
is a major step forward in open-source AI evolution,
because the handling of gender and the use of
gendered-pronouns makes MindForth more suitable
for porting into versions of an AI Mind that
can speak natural languages that use gender
much more extensively than English does, such as
German, Russian, Spanish, French and Italian.
The same introduction of code to handle gender
brings us closer to a bilingual AI Mind that
will speak either English or German as each
situation with human users may require.
In service of the onrushing Singularity,
AI4U
--
http://cyborg.blogspot.com
http://doi.acm.org/10.1145/307824.307853
http://doi.achttp://doi.acm.org/10.1145/1052883.1052885
http://mentifex.virtualentity.com/aisteps.html

del.icio.us
Digg
Google bookmark
reddit
Simpy
StumbleUpon
Furl
Newsvine
Technorati
Tailrank