`бцелютно дзверска

[InfiniteChaos]

Ето ви една редица. Опитайте да я изпишете с паскало-образен код, някакъв скрипт или какъвто и да било код, който да е четим и разбираем.
Дори във вида - Броим от 1 до 700, изписваме числото, сумирано с 7...
Най-оригиналният алгоритъм печели, а ако някой успее да открие следващото число ще се покая и ще се оттегля гол в манастир. (В девически метох, разбира се.)*


0
0
0
0
1
0
1
1
1
1
1
2
3
4
7
4
6
12
12
18
26
26
37
57
64
92
110
141
190
260
315
437
525
754
912
1251
1590
2088
2676
3584
4581
6031
7850
10204
13290
17464
22557
29506
38546
49950

* * :knuppel2:

[Bibi]

На мен ми прилича на статистика, подредена по големина.
Струва ми се много вероятно да е свързана със Сетком.
Заглавието също ми изглежда насочващо - Дзвер има 50 публикации, колкото са и числата от редичката, но може и да е съвпадение.

[InfiniteChaos]

Най-вероятно е съвпадение. Но, ей, аз не търся точно да правите ривърс енжинииринг и да гоните моето решение. Гонете алтернативно и интересно такова. Помислете го, като задача, която няма едно-единствено решение. Има много. Дори и такова:
1. Пишем 0.
2. Пишем 0.
3. Пишем 0.
4. Пишем 0.
5. Пишем 1.
....
...
Пишем 49950

И за да не скочите веднага, не, не са произволни чисълца, и да - редицата има следващо число и всъщност е безкрайно дълга.

[Edin_Lud]

Пичеля, пичеля...познах, че Биби ще отговори първа


Ето моя алгоритъм:
1. Пиша 4 пъти 0
2. Пиша 79 двоично - всеки бит на нов ред
3. Броя от 1 до 4
4. 7
5. 2*2, 2*3, 2*(2+3)
6. 12, 12*11/2
7. после пиша числата от списъка...

те така...

//Я...Хаосът постнал почти като моето решение

[InfiniteChaos]

Дубря, виждам не ви се занимава. Нека ви помогна.
Нека Count(str, substr) връща броя на substr в str.
Нека имате безтипова конкатенация (ако сумирате числа - получавата число, ако сумирате низ с число - получавате низът с добавено към него число)
Или 'a' + 5 = 'a5';
Имате нормална целочислена аритметика 5 + 7, както се очаква е 11.
Имате оператор за цикъл и възможност да енумерирате низ - имате Length(str) и str{i} - и-тия му символ.
Впрегнете малко, де, цялата драма се развива в 4-5 цикъла, с тези горните правила. Ако някой се напне, ще подавам още.*

//edit
Два цикъла, 15тина реда.

[Bibi]

Чакай де, много си припрян нещо?
Като премиер пред полагане на клетва си!
По-полечка :coolsmiley:

Към останалите: не трябва ли да измислим безкрайна редица от стрингове?
Щом е безкрайна, най-лесно е да е редицата: "едно", "две", "три"...
Може и "нула" да има. Или да започва от някъде другаде.
След това ще търсим в нея нещо, свързано с условието.
Идеи?

И какво мислите да я направим редовна тази задачка?

//
За жалост всяка числова редица върши работа.
Ще огледам имената на простите числа, но няма да е лесно да се открие що е то

//
Чак сега забелязах това:

Имате нормална целочислена аритметика 5 + 7, както се очаква е 11.

Ако е намесена 11-тична бройна система, ще ни се отели вола!

[MitkoS]

Дубря, виждам не ви се занимава.

Не знам за другите, ама аз се занимавам. А не пиша, защото нямам някакви съществени резултати.

Заложил съм на (търся) някаква комбинация, при която A(N), зависи (определя се) от N, A(N-5), A(N-6), A(N-7) и A(N-8). Засега работя само със събирания, изваждания и функцията "остатък по делене на 5". Насочих се към това, защото A(6)<A(5)* и* A(16)<A(15). Построих няколко редици, които нарастват доста сходно с редицата от условието. EXCEL ми оказва голяма помощ.

ДОБАВЕНО
Сега забелязах подсказките. Ще заложа на два цикъла един в друг - външния върти до 9 или 10, а вътрешния до 5.

[kamenf]

Да се изкажаи аз...
На мен ми прилича, че трябва да получаваме някакъв низ чрез конкатенация на низове които изглеждат като числа и после (тая четворка след седмицата не ми дав амира) примерно да броим колко съвпадения има на еднакви поднизове... Например нещо като: почваме с "0", понеже е число увеличаваме с 1 и получаваме "1", после двата низа ги съединяваме и получаваме "10" - повторения няма - пишем 0. после 10+2 = 12, "10"+"12" = "1012" има едно повторение - пишем 1... Или нещо такова - не че виждам логиката засега, ама на някой може да му светне.

[MitkoS]

А ето и едно много, ама много късо решение. Далеч е от изяществото на решението на Edin Lud, но все пак е решение.

След като InfiniteChaos разреши ползването на разни магически функции (Length(str) и str{i}), в решението ще ползвам далеч по-простата функция за изчисляване на корените на уравнение с едно неизвестно от N-та степен. Единственото магическо свойство ще бъде, че тая функция отпечатва корените на уравнението във възходящ ред. За удобство ще я означа X(A, N), където A са коефициентите пред степените на X, а N е степента на уравнението.

А ето и самото решение:
Стъпка 1. Харесваме си едно число по-голямо от 49950. Например 49951.
Стъпка 2. Сядаме и изчисляваме коефициентите на уравнението:
(x-0) (x-0) (x-0) (x-0)(x-1)(x-0) (x-1) (x-1) (x-1) (x-1) (x-1)(x-2)(x-3)....(x-49950)(x-49951)
Всичко това дотук го правим с лист и молив, така че да не участва в официалния алгоритъм и да не го удължава.

Официален алгоритъм (не 15-тина, а само 2 реда)
Стъпка 3. Зареждаме изчислените коефициенти в A
Стъпка 4. Извикваме функцията X(A, 51) и тя ни изплюва първоначалната редичка с добавен 51-ви елемент 49951

[Bibi]

def i: integer;
def Str: string;
Begin
Натискаме копчето "Цитат";
Str := '[quоte author=InfiniteChaos link=topic=22226.msg150239#msg150239 date=1122546979]
Ето ви една редица. Опитайте да я изпишете с паскало-образен код, някакъв скрипт или какъвто и да било код, който да е четим и разбираем.
Дори във вида - Броим от 1 до 700, изписваме числото, сумирано с 7...
Най-оригиналният алгоритъм печели, а ако някой успее да открие следващото число ще се покая и ще се оттегля гол в манастир. (В девически метох, разбира се.)

[fоnt=Courier New]
';
for i := 1 to Lenght(Str) do
Натискаме копчето <Del>; {469 пъти, докато ни заболи палеца}
Отиваме в края на цитата;
Str := '[/font]
:оfftopic:
:bеt1: :O81: :knuppеl2:
[/quote]';
for i := 1 to Lenght(Str) do
Натискаме копчето <BackSpace>; {още 57 пъти}
End.

[InfiniteChaos]

...
...
49950
65532
85057
111252

* s := '1';
* oc := 0;
* nc := 0;
* for i := 0 to 53 do
* begin
* * c := 1;
* * nc := 0;
* * for j := 2 to Length(s) + 1 do
* * begin
* * * Inc(nc, Integer(s[j - 1] = '3'));
* * * if s[j - 1] = s[j] then
* * * * Inc(c)
* * * else begin
* * * * s1 := s1 + IntToStr(c) + s[j - 1];
* * * * c := 1;
* * * end;
* * end;
* * s := s1;
* * s1 := '';
* * Output(nc - oc);
* * oc := nc;
* end;


Bibi е носителка на приза Най-Оригинален Алгоритъм.

[D3BEP]

На мен ми прилича на статистика, подредена по големина.
Струва ми се много вероятно да е свързана със Сетком.
Заглавието също ми изглежда насочващо - Дзвер има 50 публикации, колкото са и числата от редичката, но може и да е съвпадение.

Извън темата:
Аз да пускам ли други постове?

[Yasen6275]

Аз се предавам. Идея нямама какъв е принципа.

[Avis]

Извън темата:

Аз се предавам. Идея нямам какъв е принципа.

Ми 'бцелютно дзверски, какъв да е. Или пък безкрайно хаотичен...