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.
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,
Mentifex
--