@3BEPO3ABP, @Miku, кто сейчас онлайн, покажите всем сообщение выше, пожалуйста.

Нате...на прощание).

@SevenFingers, щас тебе по всем семи пальцам рукам дадут.

6 минут назад, P_woland сказал:

@SevenFingers, щас тебе по всем семи пальцам рукам дадут.

Флешовика любая собака обидеть может.

1 минуту назад, SevenFingers сказал:

Флешовика любая собака обидеть может.

 

Сам сижу. Через 2 дня начну забывать про танки.

Возможно, я сейчас улечу вслед за @SevenFingers, но, как говорится, не могу молчать!

Заранее со всеми прощаюсь. Было честью с вами общаться.

Пока исчо тута йа.

Как часто Фланя отвечает на сообщения?

2 часа назад, P_woland сказал:

Согласен. Но пока нет технической возможности сделать нейронную сеть с количеством нейронов хоть сколько-нибудь сравнимым с кол-вом нейронов головного мозга высших животных. Уж очень медленно на данный момент будет эта сеть в первую очередь обучаться, ну и работать тоже. Не хватает вычислительных мощностей. Но это ведь, как мне представляется, не предел науки, рано или поздно эта техническая преграда будет преодолена.

Дело не в количестве нейронов, вы по ходу вообще не понимаете.

У вашего устройства не будет свободы воли, души, если хотите. Вы даже животное не сможете создать, потому что у него помимо набора инстинктов есть обучаемость, эволюция, а также эмоции.

Все эти игры в бога бесполезны, у вас другая методика создания интеллекта, от слова совсем. Вы пытаетесь масляный фильтр, отсекающий тяжелые частицы за счет центробежной силы, приравнять к интеллектуальному существу, которое пальцы в масло опустило и соринки вытаскивает. Потом берете оба масла и выдаёте, дескать вот мы тут сделали искусственный интеллект, который вот масло процедил, смотрите он это даже лучше сделал чем настоящий.

Не то это совсем. У одноклеточного существа интеллект значительно выше будет чем у любой вашей машины за счет того что у него еще и эволюция вложена в структуру.

1 минуту назад, Pasha838 сказал:

Дело не в количестве нейронов, вы по ходу вообще не понимаете.

У вашего устройства не будет свободы воли, души, если хотите. Вы даже животное не сможете создать, потому что у него помимо набора инстинктов есть обучаемость, эволюция, а также эмоции.

Все эти игры в бога бесполезны, у вас другая методика создания интеллекта, от слова совсем. Вы пытаетесь масляный фильтр, отсекающий тяжелые частицы за счет центробежной силы, приравнять к интеллектуальному существу, которое пальцы в масло опустило и соринки вытаскивает. Потом берете оба масла и выдаёте, дескать вот мы тут сделали искусственный интеллект, который вот масло процедил, смотрите он это даже лучше сделал чем настоящий.

 

Не то это совсем. У одноклеточного существа интеллект значительно выше будет чем у любой вашей машины за счет того что у него еще и эволюция вложена в структуру.

Тяжело общаться с глупым человеком, который, к тому же, ещё и лезет в сферу, в которой не понимает от слова нихрена.

Мне просто интересно. Силы-воли хватит или нет? Обрезание сделать....или медальке корм будет?

Летательный аппарат тяжелее воздуха тоже невозможно было изобрести...

И майский жук по всем законам аэродинамики не может летать.

Фу, таким быть!

53 минуты назад, P_woland сказал:

Возможно, я сейчас улечу вслед за @SevenFingers, но, как говорится, не могу молчать!

  Скрыть содержимое

 

 

Программирование и его обсуждение нужно запретить. Потому что подогрев градуса религии создаёт опасность злоупотреблений и экстремизма возникновения у кого-нить желания писать вредоносные скрипты и читы!

В идеале надо запретить компьютеры, либо на худой конец чтобы все на своих компах сидели под исключительно гостевой, усеченной учеткой, и не могли ничего устанавливать, и боже упаси программировать ))))

Выдавайте мне зеленую шапку и 100500 кристаллов, я здесь определенно самый умный. 

23 минуты назад, P_woland сказал:

Пока исчо тута йа.

 

Да куда ты денешься:)

1 минуту назад, Miku сказал:

Да куда ты денешься:)

Известно, куда...

@Miku, ты можешь без Флани сделать моё сообщение не скрытым? Уж оченно не хочется ждать 250 лет.

2 минуты назад, P_woland сказал:

Тяжело общаться с глупым человеком, который, к тому же, ещё и лезет в сферу, в которой не понимает от слова нихрена.

Я-то как раз всё понимаю, это ты не понимаешь ни хрена и не видишь разницы между программой, не наделенной свободой воли от слова совсем, и живым существом с интеллектом.

Эти байки про ИИ такая же лажа как вечный двигатель или философский камень. Чего ты хочешь? Взять из игр модов, выполнящих определенные действия в зависимости от ситуации, и тупо повысить их способности, добавить им мощностей и скриптов? И дальше чо? Мощный микрокалькулятор получил искусственный интеллект? )))

Чтобы это могло называться искусственным интеллектом оно должно иметь обучаемость, способность само себе писать скрипты на будущее, а не тупо работать на основании одних и тех же, лишь дописывая однообразное. Уметь не только принимать, но и менять свои решения или отказываться от них.

А так получается вы втюхиваете шнягу - в научной фантастике и кино шел речь о разумных роботах и т.п., а на выходе создали автоматы с мощными процессорами, быстрее считающими и назвали это искусственным интеллектом.

По количеству нейронов копировать - это всё равно что копировать внешне руки-ноги, дескать вот, мы сколотили из досок дуболома, у него искусственный интеллект потому что у него как у человека две руки и две ноги и они иногда похоже двигаются, если мы их подвигаем встроенной нами программой.

1 минуту назад, Pasha838 сказал:

Эти байки про ИИ такая же лажа как вечный двигатель

Учи матчасть, невежда!

13 минуты назад, P_woland сказал:

Летательный аппарат тяжелее воздуха тоже невозможно было изобрести...

И майский жук по всем законам аэродинамики не может летать.

Фу, таким быть!

Чушь. Птицы всегда были тяжелее воздуха. Майский жук может летать по законам аэродинамики )))

Вы просто не в том направлении идёте, у вас нет ключевого - двигателя, нет водителя, а вы пытаетесь заставить двигаться машину за счет увеличения её размера и количества колёс ))) Вам это не поможет, абсолютно, у вас нет ничего в составе основной процедуры, а вы её копируете (пустую) и наращиваете мощности для её выполнения, при этом абсолютно не имея понятия, что в неё писать. Это тупик, алхимия с философским камнем.

2 часа назад, P_woland сказал:

@3BEPO3ABP, @Miku, кто сейчас онлайн, покажите всем сообщение выше, пожалуйста.

Кто это сделал? Кому пожать мужественную руку или поцеловать румяную щёчку?

2 минуты назад, SevenFingers сказал:

орех рак однозначно

+++

3 часа назад, P_woland сказал:

Конечно, такие вещи не делают на интерпретаторе команд windows, но всё же я извратился год назад.
 

Скрытый текст

 

Итак, дано 3 файла:

 

Файл test.txt внутри выглядит вот так:

 

Делаем, как написано выше, сохраняем файл под тем же именем. Если при сохранении файла вылезет такое окно:

СОГЛАШАЕМСЯ. То есть тыкаем ОК.

Далее всё просто. Запускаем файл WordsCount.bat методом даблтыка по нему.

Что происходит? Скрипт подсчитывает количество слов, а самое главное - количество УНИКАЛЬНЫХ слов во фрагменте вставленного текста.

 

Исходники:

  Скрыть содержимое

Файл WordsCount.bat

  Показать содержимое

@Echo off
setlocal EnableDelayedExpansion
set t1=%DATE: =0% %TIME: =0%
set "SourceFile=test.txt"
set "String="
set /a NomberOfWords=0
set /a NomberOfCons=0
set /a SkipNomber=1
:ReadNextStringLoop
start "Читаем строку" /wait hlp.bat %SkipNomber% "%SourceFile%"
set /a SkipNomber+=1
call :ReadString2

:GetTokensLoop
call :GetTokens "%String%"
set /a CNT=1

:NextWord
set NULL=""
call set TmpToken="%%Token!CNT!%%"
if %TmpToken% NEQ %NULL% (
if %CNT% EQU 26 (
set "String=!Token26!"
goto :GetTokensLoop
) else (
call :Consider %CNT%
set /a CNT+=1
goto :NextWord
)
) else (
if exist tempFlag.tmp (
del /F /Q tempFlag.tmp
GOTO :END
)
goto :ReadNextStringLoop
)

:END
echo Слово Количество > WordsCount.txt 2>&1
for /L %%b in (1,1,%MassMaxCount%) do (
echo !Word%%b! !Nomber%%b! >> WordsCount.txt 2>&1
)
cls
call :DateTime
echo ------------------
echo Start - %t1%
echo   End - %t2%
echo Прошло с момента запуска скрипта...
echo часов: %subHour%
echo минут: %subMinute%
echo секунд: %subSecond%
echo сотых долей секунды: %subMiliSecond%
echo ------------------
set /a SkipNomber=%SkipNomber%-1
echo Считано строк: %SkipNomber%
echo Произведено сравнений слов: %NomberOfCons%
echo ------------------
echo Найдено слов в тексте: %NomberOfWords%
echo Из них уникальных: %MassMaxCount%
pause
Exit

:Consider
set CounT=%~1
set "Pref=Token"
call set "Word=%%!Pref!!CounT!%%"
if not defined MassMaxCount (
set /a MassMaxCount=1
set /a NomberOfWords+=1
set /a Nomber1=1
set "Word1=!Word!"
exit /b
)
set /a NomberOfWords+=1
for /L %%c in (1,1,%MassMaxCount%) do (
set /a NomberOfCons+=1
if "!Word%%c!" EQU "%Word%" (
set /a Nomber%%c+=1
exit /b
)
)
set /a MassMaxCount+=1
set "Word%MassMaxCount%=%Word%"
set /a Nomber%MassMaxCount%=1
exit /b

:ReadString2
for /F  "UseBackQ Tokens=*" %%a in ("tempFile.tmp") do (
set "String=%%a"
)
cls
echo ----- работаем над строкой -----
echo %String%
del /F /Q tempFile.tmp
exit /b

:GetTokens
for /F "UseBackQ Eol= Tokens=1-25* Delims='`~@№=_#[]{}$*()\;:/?.,-+ " %%A in ('%~1') do (
set Token1=%%A& set Token2=%%B& set Token3=%%C& set  Token4=%%D& set Token5=%%E& set Token6=%%F& set Token7=%%G& set Token8=%%H& set Token9=%%I& set Token10=%%J& set Token11=%%K& set Token12=%%L& set Token13=%%M& set Token14=%%N& set Token15=%%O& set Token16=%%P& set Token17=%%Q& set Token18=%%R& set Token19=%%S& set Token20=%%T& set Token21=%%U& set Token22=%%V& set Token23=%%W& set Token24=%%X& set Token25=%%Y& set Token26=%%Z
)
exit /b

:DateTime
set t2=%DATE: =0% %TIME: =0%
rem Разбиваем переменную на нужные строки, содержащие нужные нам данные.
for /f "tokens=1-7 delims=/-:., " %%A in ( "%t1%" ) do (
    set t1Date=%%A
    set t1Month=%%B
    set t1Year=%%C
    set t1Hour=%%D
    set t1Minute=%%E
    set t1Second=%%F
    set t1MiliSecond=%%G
)
for /f "tokens=1-7 delims=/-:., " %%A in ( "%t2%" ) do (
    set t2Date=%%A
    set t2Month=%%B
    set t2Year=%%C
    set t2Hour=%%D
    set t2Minute=%%E
    set t2Second=%%F
    set t2MiliSecond=%%G
)
rem Собственно, сама разница во времени.
set /a subDate=%t2Date%-%t1Date%
set /a subMonth=%t2Month%-%t1Month%
set /a subYear=%t2Year%-%t1Year%

rem Поправка на разряды при вычитании из меньшего большее.
set /a subMiliSecond=%t2MiliSecond%-%t1MiliSecond%
if %subMiliSecond% LSS 0 (
set /a subMiliSecond+=100
set tmp=-1
) else (set tmp=0)

set /a subSecond=%t2Second%-%t1Second%+%tmp%
if %subSecond% LSS 0 (
set /a subSecond+=60
set tmp=-1
) else (set tmp=0)

set /a subMinute=%t2Minute%-%t1Minute%+%tmp%
if %subMinute% LSS 0 (
set /a subMinute+=60
set tmp=-1
) else (set tmp=0)

set /a subHour=%t2Hour%-%t1Hour%+%tmp%
if %subHour% LSS 0 (
set /a subHour+=24
rem Не забыть добавить %tmp% (-1) к дате, когда буду делать.
set tmp=-1
) else (set tmp=0)

 

 

Файл hlp.bat

  Показать содержимое

@Echo off
if "%~1"=="" (
echo Нельзя запускать этот файл!
pause
exit
) 
if "%~2"=="" (
echo Нельзя, говорю, запускать этот файл, сука!!!
pause
exit
) 
if "%~2" EQU "test.txt" (
goto :SetFrom_To
) else (
echo Check SourceFile Name, блиять!!!
pause
exit
)

:lowerCase
:: Преобразование текстовой строки к нижнему регистру
:: %1 - исходная строка
:: %2 - переменная для записи результата
set strTemp=%~1
for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я) do set strTemp=!strTemp:%%a=%%a!
set %~2=%strTemp%
exit /b

:SetFrom_To
set "FROM1=!"
set "FROM2=""
set "FROM3=?"
set "FROM4=)"
set "FROM5=|"
set "FROM6=&"
set "FROM7=<"
set "FROM8=>"
set "FROM9=("
set "FROM10=;"
set "FROM11=:"
set "TO=."
set /a ReadCount=0
for /F  "UseBackQ Skip=%1 Tokens=*" %%a in ("%~2") do (
set "String=%%a"
setlocal EnableDelayedExpansion
if !ReadCount!==1 (
exit
)
rem Заменяем некоторые проблемные символы в строке
call set "String=%%String:!FROM1!=!TO!%%"
call set "String=%%String:!FROM2!=!TO!%%"
call set "String=%%String:!FROM3!=!TO!%%"
call set "String=%%String:!FROM4!=!TO!%%"
call set "String=%%String:!FROM5!=!TO!%%"
call set "String=%%String:!FROM6!=!TO!%%"
call set "String=%%String:!FROM7!=!TO!%%"
call set "String=%%String:!FROM8!=!TO!%%"
call set "String=%%String:!FROM9!=!TO!%%"
call set "String=%%String:!FROM10!=!TO!%%"
call set "String=%%String:!FROM11!=!TO!%%"
call :lowerCase "!String!" String
echo !String! > tempFile.tmp
endlocal
set /a ReadCount+=1
)

echo The End > tempFlag.tmp
exit

 

 

Файл test.txt обязательно должен быть в кодировке OEM 866 !!!

 

 

Совсем забыл добавить, скрипт создаёт в папке своего нахождения текстовый файл с подробной статистикой того, какое слово сколько раз в тексте встречается.

@Miku, @3BEPO3ABP, @K.0.H.C.T.A.H.T.U.H, па-ма-ги-тииииии!

10 минут назад, P_woland сказал:

 @K.0.H.C.T.A.H.T.U.H, па-ма-ги-тииииии!

1 минуту назад, K.0.H.C.T.A.H.T.U.H сказал:

3 часа назад, P_woland сказал:

Сам сижу. Через 2 дня начну забывать про танки.

5 hours ago, P_woland said:

Конечно, такие вещи не делают на интерпретаторе команд windows, но всё же я извратился год назад.

Чего виндузятники не сделают, лишь бы не использовать linux и не решать подобные задачи в пару строчек)

А так, если отойти от фанбойства, мне дофига нравится K&R сишный код подсчёта слов в строках, прям из их книжки.

Вот прям смотришь на него, и хочется бросить всё, открыть няшную сишку и написать какую-нибудь вундервафлю