?

Log in

LiveJournal for tigrazone.

View:User Info.
View:Friends.
View:Calendar.
View:Website (CMS bonez от Тигры).
View:Memories.
You're looking at the latest 20 entries. Missed some entries? Then simply jump back 20 entries.

Monday, August 22nd, 2016

*
Subject:выход со сбрасываниями
Time:8:16 am.

Friday, June 17th, 2016

*
Subject:Propellerheads Rebirth Collection
Time:9:42 am.
Propellerheads Rebirth Collection

Friday, November 27th, 2015

2|*
Subject:explode на delphi/pascal
Time:12:25 am.
unit xplode;
{$R-,X+,V-}

interface
type
TArray = array of string;

function explode(separator, str : string) : TArray;
function explode1(separator, str : string) : TArray;

var
lmax:cardinal;
Rezult:tarray;

implementation
uses StrUtils;

function explode;
var
len,l0,l1,mizer,pp : cardinal;
i   : cardinal;
begin
mizer:=1000;SetLength(Rezult,mizer);l0:=mizer;
pp:=pos(separator, str);
if (pp = 0) or (str = '') or (separator = '') then
begin
  SetLength(Rezult,1);
  Rezult[0] := str;
end
else
begin
  len := 1;l1:=len;
  while pp <> 0 do
  begin
    i := pp;
    while l1>mizer do
    begin
    l0:=l0+mizer;
    if lmax<l0 then begin lmax:=l0;SetLength(Result, l0);end;
    l1:=l1-mizer;
    end;

      Rezult[len - 1] := copy(str, 1, i - 1);
    delete(str, 1, i - 1 + length(separator));
    inc(len);
    pp:=pos(separator, str);
  end;

    Rezult[len - 1] := str;
    Result:=Rezult;
    SetLength(Result, len);
end;
end;

//ускоренная версия explode - без удаления части строки и лишних копирований
//используется функция posEx из модуля StrUtils

function explode1;
var
len,l0,l1,mizer,pp,ls,pp0, lstr : longint;

begin
mizer:=1000;SetLength(Rezult,mizer);l0:=mizer;
pp:=pos(separator, str);
lstr:=length(str);

     ls:=length(separator);

  if (pp = 0) or (lstr = 0) or (ls = 0) then
begin
  SetLength(Rezult,1);
  Rezult[0] := str;
end
else
begin
  len := 1;l1:=len;

     pp0:=1;

    while pp <> 0 do
  begin
    while l1>mizer do
    begin
        l0:=l0+mizer;
        if lmax<l0 then begin lmax:=l0;SetLength(Result, l0);end;
        l1:=l1-mizer;
      end;    

       
Rezult[len - 1] := copy(str, pp0, pp - pp0);    

       
inc(len);  

       
pp0:=pp+ls;        

       
pp:=posEx(separator, str, pp0);
    end;  

       
if pp0<lstr then
          Rezult[len - 1] := copy(str, pp0, lstr - pp0+ls);    

       
Result:=Rezult;
      SetLength(Result, len);
  end;
end;

initialization
lmax:=0;
{$R+,X-,V+}
end.


и программа для теста:


program explodes;
{$APPTYPE CONSOLE}
uses xplode, windows, SysUtils;

var arr:tarray;
   str:string;
i:longint;
ttt:single;
   Time: cardinal;

begin

   str:='one two three four five six seven eight nine ten eleven one two three four five six seven eight nine ten eleven one two three four five six seven eight nine ten eleven';

Time := GetTickCount;

for I := 1 to 1000000 do
     arr:=explode(' ',str);

ttt:=GetTickCount-Time;
          ttt:=ttt/1000;

writeln(
format('explode time %.2fs',
      [ttt
      ]
      )
);


Time := GetTickCount;

for I := 1 to 1000000 do
    arr:=explode1(' ',str);

ttt:=GetTickCount-Time;
        ttt:=ttt/1000;

writeln(
format('explode1 time %.2fs',
    [ttt
    ]
    )
);

end.



результат:

E:\prj\!15\explodes>explodes
explode time 6,49s
explode1 time 3,75s

Saturday, April 25th, 2015

*
Subject:гифкота
Time:1:56 pm.

Sunday, March 29th, 2015

*
Time:8:29 pm.
голова моя
как птица
улетит
в небесный край
её ты
иди искай

Sunday, March 15th, 2015

*
Subject:подстольные чтения
Time:6:54 am.
залезь под стол
и сказки почитай
забудь о том,
кто ты
и сколько тебе лет

детей,
 коль есть они,
хватай
 и вместе с ними
под столом валяйся
 и сказочки читай

Tuesday, May 20th, 2014

1|*
Subject:годнота!
Time:3:15 pm.

Sunday, September 29th, 2013

*
Subject:Happy Dakini Day!
Time:9:56 pm.
Оригинал взят у snatalya в Happy Dakini Day!
 photo Yeshe-Tsogyel-as-Queen-of-Gret-Blissa-lj_zps1683413d.jpg
Yeshe Tsogyel as Queen of Great Bliss


Friday, September 20th, 2013

*
Subject:path tracing+explicit direct lighting vs path tracing
Time:12:15 am.






а всего-то разницы - 15 строчек

Friday, August 23rd, 2013

*
Subject:отрицательный всепозволительный
Time:12:20 am.
внезапно неожиданно вдруг не годен как угодно вам не имеет никакого значения потому как себе я всё разрешил

Wednesday, May 29th, 2013

*
Subject:жаркота голота
Time:11:47 pm.

взято на http://hatsumislaundry.tumblr.com/post/43427926306

Wednesday, February 20th, 2013

*
Subject:Создатели Мистера Фримена деанонимизировались, рассказали о себе и пообещали новый сезон мультфильмо
Time:4:17 am.
Создатели Мистера Фримена деанонимизировались, рассказали о себе и пообещали новый сезон мультфильмов

Tuesday, January 15th, 2013

1|*
Subject:ёж с красным рюкзаком домой топал вечерком
Time:11:13 pm.
вышел только что в магазин пополнить запасы и наполнил полный рюкзак. иду уже домой и в меня залетела мысль - а не пройти ли на мусорку поглядеть, может сосны и ёлки выкинул кто после нового года. в домике моём печь, которая греет меня зимними вечерами. а сосны здорово горят и трещат так, ух! на мусорке нашлось аж 8 сосенок, которые радовали людей на новый год. взял я в одну руку 4, в другую тоже 4. не тяжело, но со стороны смешно - чувак с красным рюкзаком весь в сосновых иголках и они во все стороны. натуральный ёж! принёс, положил в прихожей. пахнут на весь дом. а еще радует что они радовали людей на новый год и детвору. и меня согреют и порадуют!

Sunday, December 30th, 2012

*
Subject:dragon rendered in 1h 15 min
Time:9:56 pm.

*
Subject:из под снего
Time:9:45 pm.

Saturday, December 29th, 2012

*
Subject:прыгай не бойся
Time:4:31 pm.

*
Subject:а если присмотреться...
Time:3:26 pm.

Friday, November 30th, 2012

*
Subject:ffffound.com дал фоток пачку
Time:7:36 pm.

*
Subject:Храм Неба.
Time:10:58 am.
Оригинал взят у igorvinogradov в Храм Неба.

Общая планировка и отдельные сооружения храмового комплекса, символизируют отношения между небом и землёй. Изначально он был построен, как Храм Неба и Земли (1420 год, династия Мин), но по истечению 110 лет он стал только Храмом Неба, так как в 1530 году был построен отдельный Храм Земли.

Смотреть и читать дальшеCollapse )



Wednesday, November 21st, 2012

*
Subject:В гости к сказочным троллям.
Time:12:07 am.
Оригинал взят у igorvinogradov в В гости к сказочным троллям.

Поездка организована компанией TUI Ukraine и "ЖЖ-Украина".

С детства я был знаком с лешим, бабой Ягой, чудо-юдом, русалкой, водяным и многими другими сказочными персонажами. И вот пришло время познакомится со сказочными троллями Лапландии. Сказки и легенды о троллях зародились в странах Скандинавии и потом немного расползлись по странам северной Европы.


Смотреть и читать дальшеCollapse )


LiveJournal for tigrazone.

View:User Info.
View:Friends.
View:Calendar.
View:Website (CMS bonez от Тигры).
View:Memories.
You're looking at the latest 20 entries. Missed some entries? Then simply jump back 20 entries.