GotAI.NET

Форум: Проблемы искусственного интеллекта

 

Регистрация | Вход

 Все темы | Новая тема Стр.4 (4)<< < Пред.   Поиск:  
 Автор Тема: На: NBAI есть скачать альфа версию, скриншоты.
гость
51.15.79.*
На: NBAI есть скачать альфа версию, скриншоты.
Добавлено: 13 сен 17 9:38
Цитата:
Автор: NO.

а я пью, пиздю и учусь, я же не в Москве
зачем вам учиться? сколько лет? учатся в Москве до 21-22 максимум, в селе с 10-15 работают, не несите чепухи пожалуйста
[Ответ][Цитата]
NO.
Сообщений: 8892
На: NBAI есть скачать альфа версию, скриншоты.
Добавлено: 13 сен 17 10:01
Мне можно. У меня есть генеральное разрешение, написано "Этому можно" и подпись "Ленин". А с другой стороны "Учиться, учиться и учиться" золотыми буквами. Первые два слова зачеркнуты и написано "Пить, пиздеть", "исправленному верить, Ленин"
[Ответ][Цитата]
гость
51.15.79.*
На: NBAI есть скачать альфа версию, скриншоты.
Добавлено: 13 сен 17 10:07
Цитата:
Автор: NO.

Мне можно. У меня есть генеральное разрешение, написано "Этому можно" и подпись "Ленин". А с другой стороны "Учиться, учиться и учиться" золотыми буквами. Первые два слова зачеркнуты и написано "Пить, пиздеть", "исправленному верить, Ленин"
понял, ну вы всё равно не сильно высовывайтесь, ленин не ленин похуй, вы деревенский и нужно соответствовать, хотябы от части, взрослому мужику учиться - позор, инфантильных не любят, бьют или в дурку закрывают
[Ответ][Цитата]
Kirzelnik
Сообщений: 28
На: NBAI есть скачать альфа версию, скриншоты.
Добавлено: 13 сен 17 18:17
Изменено: 13 сен 17 18:23
Начальная программа для общения с ИИ, наберите "hello logic", запускать в Blitz3D.

Cлова общения, что было в самом начале Вселенной.
;a
;b begin
;c
;d
;e
;f
;g
;d
;i
;k
;l logic
;m
;n number
;o
;p
;r
;s
;t
;w
;x
;y
;z


Function think(script$)
For o = 1 To NumWord(script)
w$=ReadWord(script,o)
If w ="logic" Print "hello"
Print "*"+w+"*"+NumWord(script)+"*"
Next
End Function


Function NumWord(t$)
wn=1
For o = 1 To Len(t)
If Mid(t,o,1)=" " wn=wn+1
Next
Return wn
End Function


Function ReadWord$(t$,word_ti)
word$="";
word_i=0

For o = 1 To Len(t)
If Mid(t,o,1)=" " And word_i<word_ti
word_i=word_i+1
Else
If word_i=word_ti-1 word$=word$+Mid(t,o,1)
If word_i=word_ti Exit
EndIf
Next
.a1
Return word$
End Function


script$=Input(">")

Think(script)

While Not KeyHit(1)
Wend
End
[Ответ][Цитата]
Kirzelnik
Сообщений: 28
На: NBAI есть скачать альфа версию, скриншоты.
Добавлено: 21 сен 17 20:29
Обновление v0.017



Чат бот. Можно обучать редактируя файл knowlege.txt
[Ответ][Цитата]
Kirzelnik
Сообщений: 28
На: NBAI есть скачать альфа версию, скриншоты.
Добавлено: 22 сен 17 8:38
Простая формула ИИ.

Форумы в интернете, вывод ИИ =
общение = обсуждать что ? ( что = тема )
[Ответ][Цитата]
 Стр.4 (4)1  2  3  [4]<< < Пред.