powered by simpleCommunicator - 2.0.17     © 2024 Programmizd 02
Map
Форумы / Просто Трёп [закрыт для гостей] / Чат гопоты
25 сообщений из 153, страница 5 из 7
Чат гопоты
    #338393
Ветер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ZаЛупина  30.03.2023, 16:16
[игнорируется]
видимо, тот чувак из бельгии так и читал в его ответах между строк
люди вообще лучше управляемы текстом между строками, чем текстом в строках
так как логические инструменты не осуществляют фильтрацию и так далее
так что в этом направлению сия шайтан-арба и будет развиваться приоритетно ящитаю.
...
Рейтинг: 0 / 0
Чат гопоты
    #345405
Просто Трёп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Недавно ИИ LLaMA от Meta слили на торренты и энтузиасты уже придумали, как запустить ее локально. Нейросеть максимально похожа на ChatGPT на базе GPT-3, но в ней нет цензуры, так как она практически не взаимодействовала с людьми.

https://pikabu.ru/story/teper_kazhdyiy_mozhet_zapustit_svoy_chatgpt_bez_tsenzuryi_i_zapretov_na_kompyutere_dostatochno_vsego_4_gb_operativki_10110129?utm_source=linkshare&utm_medium=sharing

Фсе. Залупина может поставить себе дома сеть и она будет срать на ПТ за него.
...
Рейтинг: 3 / 0
Чат гопоты
    #345421
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто Трёп  05.04.2023, 08:47
[игнорируется]
Недавно ИИ LLaMA от Meta слили на торренты и энтузиасты уже придумали, как запустить ее локально. Нейросеть максимально похожа на ChatGPT на базе GPT-3, но в ней нет цензуры, так как она практически не взаимодействовала с людьми.

https://pikabu.ru/story/teper_kazhdyiy_mozhet_zapustit_svoy_chatgpt_bez_tsenzuryi_i_zapretov_na_kompyutere_dostatochno_vsego_4_gb_operativki_10110129?utm_source=linkshare&utm_medium=sharing

Фсе. Залупина может поставить себе дома сеть и она будет срать на ПТ за него.
Там сраная куча исходников: https://github.com/ggerganov/llama.cpp
Сделайте инсталлятор для хипстеров, еббадь! И видео запиливания "превед, лама".
Кто первый сделает и выложит, сорвет кучу показов рекламы.
...
Рейтинг: 0 / 0
Чат гопоты
    #345435
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Изменено: 05.04.2023, 09:20 - Antonariy
Рейтинг: 0 / 0
Чат гопоты
    #345441
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Консольно, лампово.
...
Рейтинг: 0 / 0
Чат гопоты
    #345456
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Заставил ИИ наговнокодить на сишарпе реализацию зум-эффекта из картинки в видео, результат:
deda.avi
...
Рейтинг: 1 / 0
Нравится: Гарыныч
Чат гопоты
    #345547
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Screenshot_20230405-122041_Telegram.jpg
...
Рейтинг: 0 / 0
Чат гопоты
    #345551
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Screenshot_20230405-122226_Telegram.jpg
Screenshot_20230405-122236_Telegram.jpg
...
Рейтинг: 0 / 0
Чат гопоты
    #348354
Мудило
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[не активирован]
Чат-бот Google убедительно заявил о причастности Билла Гейтса к геноциду человечества и к вакцинам с микрочипами

https://www.cnews.ru/news/top/2023-04-06_chat-bot_google_ubeditelno_rasskazal
...
Рейтинг: 0 / 0
Чат гопоты
    #349277
ZаЛупина
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
беZ трусиков!
photo_2023-04-08_08-12-33.jpg
...
Рейтинг: 1 / 0
Нравится: Antonariy
Чат гопоты
    #365233
Просто Трёп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У кого-нибудь есть акк чата гопоты? Хотел спросить кое-что.
...
Рейтинг: 0 / 0
Чат гопоты
    #365241
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто Трёп  21.04.2023, 13:55
[игнорируется]
У кого-нибудь есть акк чата гопоты? Хотел спросить кое-что.
Есть
...
Рейтинг: 0 / 0
Чат гопоты
    #365274
Просто Трёп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хотелось бы получить список всех слов литературного английского, состоящих только из букв из списка
q, w, e, r, t, a, s, d, f, g, z, x, c, v, b

Интересно будет взглянуть на результат и на количество. Если чо, это все слова, которые можно набрать левой рукой в кверти.
...
Рейтинг: 0 / 0
Чат гопоты
    #365279
Просто Трёп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Была как-то давно мысля написать скрипт, который бы полазил по интернету и создал такой список. Но, кажется, уже можно не писать.
...
Рейтинг: 0 / 0
Чат гопоты
    #365280
Просто Трёп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Или оно не так работает? Может, надо сперва попросить написать такой скрипт?
...
Рейтинг: 0 / 0
Чат гопоты
    #365291
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто Трёп  21.04.2023, 14:39
[игнорируется]
Хотелось бы получить список всех слов литературного английского, состоящих только из букв из списка
q, w, e, r, t, a, s, d, f, g, z, x, c, v, b

Интересно будет взглянуть на результат и на количество. Если чо, это все слова, которые можно набрать левой рукой в кверти.
У него есть ограничение на длину высера, как мне показалось
...
Рейтинг: 0 / 0
Чат гопоты
    #365299
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pasted_image.png
...
Рейтинг: 0 / 0
Чат гопоты
    #365306
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто Трёп [игнорируется] 

Вот список английских слов, примерно 58000. Можно и на Дельфях написать программу, чтобы копировала в другой список только те, где нет ненужных буков.
http://www.mieliestronk.com/corncob_lowercase.txt
Наверное и другие такие списки в интернете есть
...
Изменено: 21.04.2023, 15:08 - s62
Рейтинг: 0 / 0
Чат гопоты
    #365311
Просто Трёп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ага, значит, пока без работы не останусь!
Спасибо.
...
Рейтинг: 0 / 0
Чат гопоты
    #365319
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто Трёп  21.04.2023, 15:10
[игнорируется]
Ага, значит, пока без работы не останусь!
Спасибо.
Это пока гпт-3!
...
Рейтинг: 0 / 0
Чат гопоты
    #365322
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А когда я спросил про количество таких слов, он их посчитал тупо комбинаторикой букв.
...
Рейтинг: 0 / 0
Чат гопоты
    #365355
Просто Трёп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy  21.04.2023, 15:14
[игнорируется]
А когда я спросил про количество таких слов, он их посчитал тупо комбинаторикой букв.
Тупой гопот!
...
Рейтинг: 0 / 0
Чат гопоты
    #365369
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто Трёп [игнорируется] 

Что-то уже несколько дней работать не хочется. Ну тут и пятница еще. Вот, написал программку и напустил ее на список по ссылке. 1615 слов таких нашла.
Вот код, без особых проверок, может и ошибки в нем есть, написал, но особо не анализировал.
Код: Delphi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
unit MainFrm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo: TMemo;
    Button1: TButton;
    Button2: TButton;
    dlgOpen: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function CheckWord(const aWord: string): boolean;
    function CheckLetter(aLetter: Char): boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 //q, w, e, r, t, a, s, d, f, g, z, x, c, v, b

const
  WrongLetters: array[0..10] of Char = 'hijklmnopuy';

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
  i, f: Integer;
begin
  if dlgOpen.Execute() then
  begin
    List := TStringList.Create;
    f := 0;
    try
      Memo.Lines.BeginUpdate;
      Memo.Clear;
      try
        List.LoadFromFile(dlgOpen.FileName);
        for i := 0 to List.Count - 1 do
          if CheckWord(List[i]) then
            Memo.Lines.Add(List[i])
          else inc(f);
        Caption := IntToStr(Memo.Lines.Count) + ' слов, отброшено ' + IntToStr(f);
      finally
        Memo.lines.EndUpdate;
      end;
    finally
      List.Free;
    end;
  end;
end;

function TForm1.CheckLetter(aLetter: Char): boolean;
var
  i: Integer;
begin
  Result := True;
  for i := Low(WrongLetters) to High(WrongLetters) do
    if aLetter = WrongLetters[i] then
    begin
      Result := False;
      Break;
    end;
end;

function TForm1.CheckWord(const aWord: string): boolean;
var
  i: Integer;
begin
  Result := True;
  for i := 1 to Length(aWord) do
  if not CheckLetter(aWord[i]) then
  begin
    Result := False;
    Break;
  end;
end;

end.
...
Рейтинг: 0 / 0
Чат гопоты
    #365427
Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
s62  21.04.2023, 15:41
[игнорируется]
Просто Трёп [игнорируется] 

Что-то уже несколько дней работать не хочется. Ну тут и пятница еще. Вот, написал программку и напустил ее на список по ссылке. 1615 слов таких нашла.
Вот код, без особых проверок, может и ошибки в нем есть, написал, но особо не анализировал.
Код: Delphi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
unit MainFrm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo: TMemo;
    Button1: TButton;
    Button2: TButton;
    dlgOpen: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function CheckWord(const aWord: string): boolean;
    function CheckLetter(aLetter: Char): boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 //q, w, e, r, t, a, s, d, f, g, z, x, c, v, b

const
  WrongLetters: array[0..10] of Char = 'hijklmnopuy';

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
  i, f: Integer;
begin
  if dlgOpen.Execute() then
  begin
    List := TStringList.Create;
    f := 0;
    try
      Memo.Lines.BeginUpdate;
      Memo.Clear;
      try
        List.LoadFromFile(dlgOpen.FileName);
        for i := 0 to List.Count - 1 do
          if CheckWord(List[i]) then
            Memo.Lines.Add(List[i])
          else inc(f);
        Caption := IntToStr(Memo.Lines.Count) + ' слов, отброшено ' + IntToStr(f);
      finally
        Memo.lines.EndUpdate;
      end;
    finally
      List.Free;
    end;
  end;
end;

function TForm1.CheckLetter(aLetter: Char): boolean;
var
  i: Integer;
begin
  Result := True;
  for i := Low(WrongLetters) to High(WrongLetters) do
    if aLetter = WrongLetters[i] then
    begin
      Result := False;
      Break;
    end;
end;

function TForm1.CheckWord(const aWord: string): boolean;
var
  i: Integer;
begin
  Result := True;
  for i := 1 to Length(aWord) do
  if not CheckLetter(aWord[i]) then
  begin
    Result := False;
    Break;
  end;
end;

end.
А это гпт-4, сравни уровень. И базу нашел, и дельфи приспособил. Но интерпретировать не умеет, это в гпт-5 ожидается.
...
Рейтинг: 0 / 0
Чат гопоты
    #369405
Просто Трёп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
s62  21.04.2023, 15:41
[игнорируется]
Просто Трёп [игнорируется] 

Что-то уже несколько дней работать не хочется. Ну тут и пятница еще. Вот, написал программку и напустил ее на список по ссылке. 1615 слов таких нашла.
Вот код, без особых проверок, может и ошибки в нем есть, написал, но особо не анализировал.
Спойлер
Код: Delphi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
unit MainFrm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo: TMemo;
    Button1: TButton;
    Button2: TButton;
    dlgOpen: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function CheckWord(const aWord: string): boolean;
    function CheckLetter(aLetter: Char): boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 //q, w, e, r, t, a, s, d, f, g, z, x, c, v, b

const
  WrongLetters: array[0..10] of Char = 'hijklmnopuy';

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
  i, f: Integer;
begin
  if dlgOpen.Execute() then
  begin
    List := TStringList.Create;
    f := 0;
    try
      Memo.Lines.BeginUpdate;
      Memo.Clear;
      try
        List.LoadFromFile(dlgOpen.FileName);
        for i := 0 to List.Count - 1 do
          if CheckWord(List[i]) then
            Memo.Lines.Add(List[i])
          else inc(f);
        Caption := IntToStr(Memo.Lines.Count) + ' слов, отброшено ' + IntToStr(f);
      finally
        Memo.lines.EndUpdate;
      end;
    finally
      List.Free;
    end;
  end;
end;

function TForm1.CheckLetter(aLetter: Char): boolean;
var
  i: Integer;
begin
  Result := True;
  for i := Low(WrongLetters) to High(WrongLetters) do
    if aLetter = WrongLetters[i] then
    begin
      Result := False;
      Break;
    end;
end;

function TForm1.CheckWord(const aWord: string): boolean;
var
  i: Integer;
begin
  Result := True;
  for i := 1 to Length(aWord) do
  if not CheckLetter(aWord[i]) then
  begin
    Result := False;
    Break;
  end;
end;

end.
Тоже самое для MS SQL.
Спойлер
База (можно не делать)
Код: SQL
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
CREATE DATABASE [words] ON  PRIMARY
( NAME = N'words', FILENAME = N'D:\MSSQLData\words.mdf' , SIZE = 3072KB , FILEGROWTH = 1024KB )
 LOG ON
( NAME = N'words_log', FILENAME = N'D:\MSSQLData\words_log.ldf' , SIZE = 1024KB , FILEGROWTH = 10%)
GO
ALTER DATABASE [words] SET COMPATIBILITY_LEVEL = 100
GO
ALTER DATABASE [words] SET ANSI_NULL_DEFAULT OFF
GO
ALTER DATABASE [words] SET ANSI_NULLS OFF
GO
ALTER DATABASE [words] SET ANSI_PADDING OFF
GO
ALTER DATABASE [words] SET ANSI_WARNINGS OFF
GO
ALTER DATABASE [words] SET ARITHABORT OFF
GO
ALTER DATABASE [words] SET AUTO_CLOSE OFF
GO
ALTER DATABASE [words] SET AUTO_SHRINK OFF
GO
ALTER DATABASE [words] SET AUTO_CREATE_STATISTICS ON
GO
ALTER DATABASE [words] SET AUTO_UPDATE_STATISTICS ON
GO
ALTER DATABASE [words] SET CURSOR_CLOSE_ON_COMMIT OFF
GO
ALTER DATABASE [words] SET CURSOR_DEFAULT  GLOBAL
GO
ALTER DATABASE [words] SET CONCAT_NULL_YIELDS_NULL OFF
GO
ALTER DATABASE [words] SET NUMERIC_ROUNDABORT OFF
GO
ALTER DATABASE [words] SET QUOTED_IDENTIFIER OFF
GO
ALTER DATABASE [words] SET RECURSIVE_TRIGGERS OFF
GO
ALTER DATABASE [words] SET  DISABLE_BROKER
GO
ALTER DATABASE [words] SET AUTO_UPDATE_STATISTICS_ASYNC OFF
GO
ALTER DATABASE [words] SET DATE_CORRELATION_OPTIMIZATION OFF
GO
ALTER DATABASE [words] SET PARAMETERIZATION SIMPLE
GO
ALTER DATABASE [words] SET READ_COMMITTED_SNAPSHOT OFF
GO
ALTER DATABASE [words] SET  READ_WRITE
GO
ALTER DATABASE [words] SET RECOVERY SIMPLE
GO
ALTER DATABASE [words] SET  MULTI_USER
GO
ALTER DATABASE [words] SET PAGE_VERIFY CHECKSUM
GO
USE [words]
GO
IF NOT EXISTS (SELECT name FROM sys.filegroups WHERE is_default=1 AND name = N'PRIMARY') ALTER DATABASE [words] MODIFY FILEGROUP [PRIMARY] DEFAULT
GO
Таблица:
Код: SQL
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
BEGIN TRANSACTION
SET QUOTED_IDENTIFIER ON
SET ARITHABORT ON
SET NUMERIC_ROUNDABORT OFF
SET CONCAT_NULL_YIELDS_NULL ON
SET ANSI_NULLS ON
SET ANSI_PADDING ON
SET ANSI_WARNINGS ON
COMMIT
BEGIN TRANSACTION
GO
CREATE TABLE dbo.wrds
  (
  wrd nvarchar(50) NOT NULL,
  cnt smallint NOT NULL,
  lgr smallint NOT NULL,
  rgr smallint NOT NULL
  )  ON [PRIMARY]
GO
ALTER TABLE dbo.wrds SET (LOCK_ESCALATION = TABLE)
GO
ALTER TABLE dbo.wrds ADD CONSTRAINT
  PK_wrds PRIMARY KEY CLUSTERED
  (
  wrd
  ) WITH( STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]

GO
COMMIT
процедура:
Код: SQL
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
create procedure calc_word

  @iw nvarchar(50), -- input word
  @icnt smallint out, --chars count
  @lc smallint out, --chars from left group
  @rc smallint out -- chars from right group

as begin

  declare @leftgroup nvarchar(50)
  declare @rightgroup nvarchar(50)
  declare @lcnt smallint, @rcnt smallint --constants

  select @leftgroup = 'qwertasdfgzxcvb', @rightgroup = 'yuiophjklnm'

  select @lcnt = 15, @rcnt = 11 --constants

  select @icnt = len(@iw)

  declare @i smallint, @j smallint --counters
  declare @c nvarchar(1) -- current char

  select @i = 1

  set @lc = 0
  set @rc = 0

  while @i <= @icnt begin

    set @c = substring(@iw, @i, 1)
    set @i = @i + 1

    set @j = 1

    while @j <= @lcnt begin

      if @c = substring(@leftgroup, @j, 1) set @lc = @lc + 1

      set @j = @j + 1

    end

    set @j = 1

    while @j <= @rcnt begin

      if @c = substring(@rightgroup, @j, 1) set @rc = @rc + 1

      set @j = @j + 1

    end

  end

end
Сам ввод данных:
Код: SQL
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
declare @inp nvarchar(max) -- all input words

-- по 10-15 тысяч слов за раз нормально заходит. Если сразу 50000 закинуть, может быть очень долго.
select @inp = 'recovery
recreate
recreated
recreates
recreating
recreation
....
zoos
zulu
zulus'

declare @x xml

set @x = '<t>' + replace(@inp, char(13) + char(10), '</t><t>') + '</t>'

declare @sw nvarchar(50) --singe word
declare @c smallint -- char count in signle word
declare @l smallint -- chars from left group
declare @r smallint -- chars from right group

declare cr cursor for
select P.N.value('.', 'nvarchar(50)') from @x.nodes('/t') P(N)
open cr

fetch next from cr into @sw
while @@fetch_status = 0 begin

  exec calc_word @sw, @c out, @l out, @r out

  insert into wrds (wrd, cnt, lgr, rgr) values (@sw, @c, @l, @r)

  fetch next from cr into @sw

end

close cr

deallocate cr
Для каждого слова сохраняются данные: длинна слова, количество букв из первой группы, количество букв из второй группы. Ну а потом уже селктики какие хочешь верти. Слов, набираемых преимущественно правой рукой поразительно мало. На порядок меньше, чем тех, которые набираются левой рукой.
...
Рейтинг: 0 / 0
25 сообщений из 153, страница 5 из 7
Форумы / Просто Трёп [закрыт для гостей] / Чат гопоты
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (2): Анонимы (2)
Игнорируют тему (2): erbol , папа акуз
Читали форум (22): Анонимы (15), Tosh, Брюквенные годы 2 мин., Буся 2 мин., megabyte 3 мин., basename 4 мин., erbol 8 мин., IT-Клоп 9 мин.
Пользователи онлайн (58): Анонимы (41), Tosh, Bing Bot, anonymous, sergey11 1 мин., Просто Трёп 1 мин., Брюквенные годы 2 мин., Yandex Bot 2 мин., Буся 2 мин., megabyte 3 мин., Сталкер 4 мин., basename 4 мин., паразит 4 мин., Google Bot 4 мин., erbol 7 мин., XEugene 8 мин., serg_tmb 9 мин., IT-Клоп 9 мин.
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]