Comments / Profile of toxicdream / Habr

Да если бы вы знали, как это тяжело — синдром Аспергера…
Как я завидую своим брату и сестре — как это здорово быть простым нормальным человеком, иметь кучу друзей и интересов, не испытывать больших проблем с ленью, не пытаться скачать весь топ250 IMDB в HD качестве! Пусть зарплата будет меньше, зато ты можешь смотреть в глаза другому человеку не испытывая дискомфорта и сможешь понять этого человека без слов! И никто не будет считать тебя грубым без причины!

+18

Собираем Mini Bedlam Cube

@toxicdream Feb 25 2011 at 14:06

Тогда даже не знаю чем вам помочь :(

Собираем Mini Bedlam Cube

@toxicdream Feb 25 2011 at 13:34

Для С++ это может выглядеть примерно так

for(int i=1;i<N;i++)
  for(int j=0;j<64;j++)
    C[j] += (A[i] & Base2[j]) > 0;

Собираем Mini Bedlam Cube

@toxicdream Feb 25 2011 at 12:54

Вторая строка
B = Base2
Простите, опечатался.

Собираем Mini Bedlam Cube

@toxicdream Feb 25 2011 at 12:53

Ничего и недолго, специально проверил в Delphi 7 у меня ушло меньше секунды:

var
  B: array [1..64] of UInt64 = (
                   $1,               $2,               $4,               $8,
                  $10,              $20,              $40,              $80,
                 $100,             $200,             $400,             $800,
                $1000,            $2000,            $4000,            $8000,
               $10000,           $20000,           $40000,           $80000,
              $100000,          $200000,          $400000,          $800000,
             $1000000,         $2000000,         $4000000,         $8000000,
            $10000000,        $20000000,        $40000000,        $80000000,
           $100000000,       $200000000,       $400000000,       $800000000,
          $1000000000,      $2000000000,      $4000000000,      $8000000000,
         $10000000000,     $20000000000,     $40000000000,     $80000000000,
        $100000000000,    $200000000000,    $400000000000,    $800000000000,
       $1000000000000,   $2000000000000,   $4000000000000,   $8000000000000,
      $10000000000000,  $20000000000000,  $40000000000000,  $80000000000000,
     $100000000000000, $200000000000000, $400000000000000, $800000000000000,
    $1000000000000000,$2000000000000000,$4000000000000000,$7999999999999999 + 1
  );

  C: array [1..64] of Integer = (
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  );

procedure TForm1.Button1Click(Sender: TObject);
const
  N = 10000;
var
  i, j: Integer;
  A: array [1..N] of UInt64;
begin
  Randomize;
  for i := 1 to N do
    A[i] := UInt64((Random(MaxInt) + 1)) * UInt64((Random(MaxInt) + 1));

  for i := 1 to N do
    for j := 1 to 64 do
      if (A[i] and Base2[j]) <> 0 then
        C[j] := C[j] + 1;

  for j := 1 to 64 do
    Memo1.Lines.Add(IntToStr(C[J]));
end;

Там где я извращался — это из-за глюков среды — не обращайте внимания.
Для вас здесь представляет интерес работа с битами в строке if (A[i] and Base2[j]) <> 0 then
Удачи!

Копируем исходный код без нумерации строк

@toxicdream Feb 25 2011 at 04:43

Что-то у меня в IE7 при копировании теряются переводы строк — вставляется все в одну строку :(

Собираем Mini Bedlam Cube

@toxicdream Feb 25 2011 at 03:55

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

Google запустил поиск рецептов

@toxicdream Feb 25 2011 at 03:37

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

Жил-был самый маленький сервер…

@toxicdream Feb 24 2011 at 19:49

А я хочу собрать на основе этого. Правда еще корпус нужен. В 3000, и даже в 5000 наверное не уложиться, но ведь и класс повыше будет.

Настоящие инновационные компании

@toxicdream Feb 23 2011 at 05:26

Потому что Хюндай :)
На будущее, по таким проблемам пишите в личку автора.

+16

Копируем исходный код без нумерации строк

@toxicdream Feb 23 2011 at 04:37

В Дельфях с рождения есть эта фича.

Настоящие инновационные компании

@toxicdream Feb 23 2011 at 04:11

Яндекс — доблестный поиск, неожиданно :)

+16

О структурном программировании

@toxicdream Feb 23 2011 at 04:04

У меня еще прикольнее: на работе картинки вижу, дома — нет. Думаю проблема не у хабраэффекта.
А официальный хостинг хабра таки хабрасторадж.орг

Будете ли вы ограничивать (или ограничиваете ли уже) ваших детей в доступе к компьютеру?

@toxicdream Feb 22 2011 at 11:08

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

Запретный плод GOTO сладок!

@toxicdream Feb 22 2011 at 04:46

В смысле, тем низкоуровневее он программирует? :)

Intel инвестирует более 5 миллиардов долларов в строительство нового завода в Аризоне

@toxicdream Feb 22 2011 at 04:21

Ну вот видите, америкосы не дураки — понимают, что оутсорсить все в Китай нельзя, надо и про свою экономику не забывать!

1 2 ...

75 76

78 79 ...

87 88