Имя: Пароль:
LIFE
Жизнь форума
OFF: Соревнования в написании кода 1с среди мистян
0 Explorer1c
 
27.08.12
15:29
1. Можно устроить,вот как я это вижу 44% (8)
2. Другое 44% (8)
3. Нивкоем случае,я нехочу позориться 11% (2)
Всего мнений: 18

Добрый вечер друзья,навеяло недавно прошедшей олимпиадой.А почему бы тоже самое не устроить здесь? Например ктото вбрасывает задачу час на выполнение сравниваем код,судьи призы,довольные бабушки  машущие цветочками вслед-помоему круто!
38 Zero on a dice
 
27.08.12
15:47
(34) каюсь, провокацию не распознал
39 Ненавижу 1С
 
гуру
27.08.12
15:47
а теперь (17) но с разным видом скобок, типа так:
([{}]{})
40 ОбычныйЧеловек
 
27.08.12
15:48
(36) после того как он "склеит бабу" ей нужно оказать психологическую помощь? :)
41 Lenka_Boo
 
27.08.12
15:49
Ага. Щас работу брошу и буду соревноваться.
Приз месячную премию компенсирует?

Другое
42 Stim
 
27.08.12
15:50
приз - байк Елены.
43 vhl
 
27.08.12
15:50
(31) Было бы интересно во что-то подобное
44 acsent
 
27.08.12
15:51
Кто призы будет давать?
45 МишКа
 
27.08.12
15:53
Надо подумать

Можно устроить,вот как я это вижу
46 MAnt
 
27.08.12
15:53
Все хвалятся своими 22-мя, а в жизни окажется 15.

Нивкоем случае,я нехочу позориться
47 Explorer1c
 
27.08.12
15:53
Ладно,раз народ туг на подъем задам задачу так
Рб=Типовой

Есть -список инвентарных номеров прочитанный из экселя,

Нужно-сменить счет учета  этих ос на 1января с помощью документа "Корректировка записей"(предположим что в других регистрах ничего менять не надо)
время выполнения 30 мин
время пошло ровно в 16.22 выкладываем позже не считается,раньше-тоже

победителю высылаю фотку обнаженной Анджелы Дэвис
48 NS
 
27.08.12
15:54
(39) Тоже решается в один проход.
Но самое простое решение:
стр=([{}]{});
Пока стрдлина(стр)<>0 цикл
 длин=стрдлина(стр);
 стр=заменить(стр,"()","");
 стр=заменить(стр,"{}","");
 стр=заменить(стр,"[]","");
 Если длин=стрдлина(стр) тогда
   прервать;
 КонецЕсли;
Конеццикла;
Если стрдлина(стр)=0 тогда
 сообщить("Гуд");
Иначе
 Сообщить("Плохо");
КонецЕсли;
49 ОбычныйЧеловек
 
27.08.12
15:57
(47) вообще идея скидывать свои задания на форум для их выполнения - гениальна. Только вот народец на форуме на "слабO" как слАбо реагирует )
50 NS
 
27.08.12
15:58
(47) И чего олимпиадного в этой задаче?
51 Explorer1c
 
27.08.12
15:59
(49)(50)Решение это задачки есть давно ,я ее сделал))) это для разогрева
52 Fish
 
27.08.12
16:00
(51) Тогда выкладывай своё решение.
53 NS
 
27.08.12
16:01
(51)
Еще раз - это не олимпиадная задача. Это задача для кодеров.
54 akaBrr
 
27.08.12
16:02
хочу 1С:Роботы, по аналогии с c-robots
55 Explorer1c
 
27.08.12
16:02
(53)Так я и предлагаю задачи для кодеров,а олимпиадные потом,для тех кто хочет хочет можно выложить цель акции усилить качество кодирования мистян ! Можно сделать призовой фонд денежный!(Это к Волшебнику обращение)

Можно устроить,вот как я это вижу
56 eduspec82
 
27.08.12
16:04
(0) правильный синтаксис названия мероприятия "специальная олимпиада"
57 acsent
 
27.08.12
16:04
(55) тебе надо было девкой прикинуться. 100 постов бы ломался, потом показал бы фотку с 3 размером.
Знаешь бы как кинуись решать
58 eduspec82
 
27.08.12
16:05
59 Explorer1c
 
27.08.12
16:05
(57)Приветствую тебя, Вася-юморист
60 Salimbek
 
27.08.12
16:11
Я, как участник (31), в фигне, типа (47) участвовать не хочу. Там был и прикол и драйв, а тут...
61 Explorer1c
 
27.08.12
16:13
(60)А тут просто смотрим кто как кодит)
62 Fragster
 
гуру
27.08.12
16:13
ну запишите меня в участники

Другое
63 Explorer1c
 
27.08.12
16:13
(62)Через 9 мин выкладывай решение)
64 mikecool
 
27.08.12
16:15
пишу код, 3000 знаков в минуту, но - херня получается (
65 Fragster
 
гуру
27.08.12
16:16
(63) а де задача-то?
66 Explorer1c
 
27.08.12
16:17
(65)(47)
67 Fragster
 
гуру
27.08.12
16:18
(66) это фигня, а не задача, даже не интересон
68 Explorer1c
 
27.08.12
16:19
(67)Это для разгона)
69 Fragster
 
гуру
27.08.12
16:19
(68) меня тогда заочно в 5-й тур
70 Explorer1c
 
27.08.12
16:25
Подедителем первых соревнований кодеров объявляется Fragster,как единственный участник,вот обещаная фотка,ПОЗДРАВИМ победителя,товарищи!

http://commons.wikimedia.org/wiki/File:Angela-Davis-Mar-28-2006.jpg?uselang=ru
71 Explorer1c
 
27.08.12
16:28
Fragster расскажи каково это,быть самым лучшим?
72 Lama12
 
27.08.12
16:28
Задачку нужно отвлеченную от 1С.
Например написать игру в морской бой.
Предварительно согласовав формат обмена ходами между двух баз.
Победитель будет определяться после розыгреша между всеми участинками. Количество боев между каждым участником не меньше 10.
73 Fragster
 
гуру
27.08.12
16:29
(71) померял, у меня теперь 22.1 см!
74 Explorer1c
 
27.08.12
16:30
(72)Накрена отвлеченную от 1с-цель улучшить навыки,позаимствовать новые методы,получить по шапке от товарищей! Этож круто!!!!! Чего такие вялые товарищи,кофе выпейте!
75 Lama12
 
27.08.12
16:33
(74) Ну тогда написать робота по игре в это http://virtonomica.ru/ или что-то подобное.
Кто больше бабла нарубит, тот и выиграл
76 NS
 
27.08.12
16:35
(75) А чем Symple не устраивает? И Паскаль (1С сделан по лицензии на VB, а VB сделан на основе смеси паскаля и бейсика), и Жава синтаксически очень похожи на 1С. Кто мешает поучаствовать?
77 Explorer1c
 
27.08.12
16:39
Ок,мне пора домой ,поэтому следующим задающим назначаю Ирис_яркая работаем товарищи,соревнуемся,тому кто победит скажу сколько девушек было у Ленина,погнали!
78 jump if overflow
 
27.08.12
16:54
может просто сторнировать проводку
01.1 - 08
на 01.Х - 08
79 pumbaEO
 
27.08.12
17:13
Пользователи снегопата сразу отпадают ибо допинг контроль не пройдут.
80 SUA
 
27.08.12
18:08
(76)интерпретатора на 1с-е нету это препятствия =)
хотя... для планетварсов сделали же
81 NS
 
27.08.12
18:19
(80) Не хватит быстродействия. Не та игра.
82 SUA
 
27.08.12
18:23
(81)таймлимитом поиграться можно - не на два порядка же алгоритмы паскаля/явы/си быстрее орудуют
83 NS
 
27.08.12
18:24
(82) :) А ты замерь :) На два-три порядка.
84 NS
 
27.08.12
18:25
полминуты на партию - очень мало, я столкнулся с резкой нехваткой ресурсов.
В 1С-ке придется давать пару часов на партию каждому.
85 NS
 
27.08.12
18:27
Ну или размер доски уменmшать. Например 9x9, и по полчаса каждому на партию.
86 SUA
 
27.08.12
18:38
(84)тады понятно
хотя все будут в равных условиях
к тому же нафига на партию если на ход
87 SherifSP
 
27.08.12
18:41
Это не для новичков)

Нивкоем случае,я нехочу позориться
88 NS
 
27.08.12
18:48
(86) Нафига на ход, если общепринято во всех играх на партию?
89 SUA
 
27.08.12
18:54
(88)нафига на партию планировать - там ессно алгоритмы сложнее прокатят
90 SUA
 
27.08.12
18:56
на ход просто легче рассчитывать - иначе все равно все сведется к "10 быстрых, 5 медленных, 5 тормозных, далее моментально"
91 NS
 
27.08.12
18:56
(89) Я честно говоря не видел ни одного чемпионата среди программ в настольные игры с контролем времени на ход.
Хотя поучаствовал во многих. Организаторам ведь время надо как-то планировать.
92 SUA
 
27.08.12
19:11
(91)здесь вполне конкретный контроль - при доске 15*15 получаем 225 полей и в крайнем случае (который возможен для 2х нубопрограмм) 225 ходов
93 SUA
 
27.08.12
19:12
те же быстрые шахматы вполне себе с контролем на ход играют
94 NS
 
27.08.12
21:26
(93)  вот это новость :) всю жизнь играл в шахматы и не знал :)
95 smaharbA
 
27.08.12
21:27
(94) а в пересчете ?
96 NS
 
27.08.12
21:34
(95) не знаю что значит в пересчете, знаю что контроль x/y это никак не на ход, а как правило на 40 ходов, и это не контроль, а издевательство над программистами.
А x+y, это никак не на ход, очень удобно для программистов, но не очень удобно для организаторов.
97 smaharbA
 
27.08.12
21:36
ху не ху, а на есть и не отменить
98 NS
 
27.08.12
22:09
точнее конечно я наврал - одну такую игру я знаю - ГО.
99 NS
 
27.08.12
22:55
Хотя и в го программы играют со временем на партию.
100 Asmody
 
27.08.12
22:58
напишите бота, чтоб сотки на Мисте брал
101 NS
 
27.08.12
23:15
Такой бот уже написан.
102 Asmody
 
27.08.12
23:38
(101) Нуф-Нуф?!!! да ладно!!!
103 NS
 
28.08.12
00:09
(102) Это одна из версий :)
104 Nirvana
 
28.08.12
00:30
(0) Уже было, и я победила.

Другое
105 Explorer1c
 
28.08.12
08:22
(104)Когда было то? Вот новая скидка задачи написать запрос,который бы
искал всех сотрудников с тремя первыми буквами "мин" в фамилии,погнали) сдача в 10-00
106 MatrosoV AleXXXand_R
 
28.08.12
08:35
А взятки предлагать можно будет за "22 см"?

Другое
107 MatrosoV AleXXXand_R
 
28.08.12
08:36
(106) + то есть - модно ли будет подкупить - через знакомства или еще как? Кто будет оценивать? :)
108 MatrosoV AleXXXand_R
 
28.08.12
08:37
(107) + опечатался
"модно" = "можно"
109 skunk
 
28.08.12
08:40
ВЫБРАТЬ
   ФизическиеЛица.Ссылка
ИЗ
   Справочник.ФизическиеЛица КАК ФизическиеЛица
ГДЕ
   ФизическиеЛица.Наименование ПОДОБНО "мин%"
110 Explorer1c
 
28.08.12
08:52
Победил Skunk! Поздравим второго чемпиона в тяжелом весе по программированию!

И приз победителю

http://gorod.tomsk.ru/uploads/7993/1239382184/1239345642_girls_01.jpg
111 Маратыч
 
28.08.12
08:57
Эт что за задачки для подготовительной группы детсада? Такое стыдно даже на уроках информатики в школах задавать...

Вся прелесть олимпиадных задач по программированию - необходимость нетривиально применять мозги для реализации хитрых алгоритмов. Знание синтаксиса банального запроса - смешно же и несерьезно.
112 Explorer1c
 
28.08.12
09:08
(111) Ок,давайте проясним-тут не будет задачек олимпиадных-тут будут задачи,приближенные к "боевым",просто будем сравнивать кто как решит,например,я бы не сделал эту задачу как Skunk-я просто не знал что так можно))
113 Explorer1c
 
28.08.12
09:08
Хотя можно  и для олимпиадников отдельно сделать соревнования
114 YV
 
28.08.12
09:21
(17)(39) Это же работа со стеком. Обходим строку посимвольно. Каждый прямой символ [({ добавляем в конец массива. Каждый обратный символ ])} убирает соответсвующий ему прямой символ из конца массива.
Если в какой-то момент прямой символ не будет соответствовать обратному, значит скобки расставлены неправильно. Если после обхода массив не пуст, значит скобки расставлены неправильно.
115 Asmody
 
28.08.12
20:41
я придумал задачку.
дан текстовый файл и массив шаблонов для поиска значений. надо вернуть массив, каждый элемент которого будет массивом найденых значений в соответствии с шаблонами из входного массива.
требуется:
1. предложить описание шаблонов чтобы можно было задавать разные условия поиска
2. использовать только штатные средства (без COM-объектов)
3. код должен выполняться на сервере
116 skunk
 
28.08.12
20:48
почему именно на сервере?
117 Asmody
 
28.08.12
20:49
(116) чтобы можно было запихнуть, например, в рег.задание
118 skunk
 
28.08.12
20:54
а под шаблоном ты имел ввиду, что-то типа "мин%"?
119 Новенький_2009
 
28.08.12
20:56
(115) В двух словах решал бы так:
1. шаблон - как where в SQL. And, or, like можно один в один оставить, как и служебные символы
2. цепануться ВИД к txt и выполнить подготовленный запрос

писать код лень.

Можно устроить,вот как я это вижу
120 wladimir90
 
28.08.12
21:09
Только если что-то простое в реализации (если понять), но очень сложное в понимании. Иначе не интересно. Типа логической задачи.

Другое
121 Адинэснег
 
28.08.12
21:10
традиционного ответа опять нет...
122 Asmody
 
28.08.12
21:45
(118) для начала можно и так, в сложном случае — сопоставление с образцом, регулярки и т.п.
123 Fragster
 
гуру
28.08.12
22:57
(122) сделаю через веб сервис на пхп...
124 Asmody
 
28.08.12
23:49
(123) п.2 не катит
125 skunk
 
29.08.12
06:42
ааа ... значит адо для чтения больших файлов тоже юзать низя?
126 skunk
 
29.08.12
08:11
наверное как-то так


   масШаблонов = Новый Массив;
   масШаблонов.Добавить("mas%");
   масШаблонов.Добавить("m_s%");
   масШаблонов.Добавить("%mas%");
   масШаблонов.Добавить("%m_s%");
   масШаблонов.Добавить("%mas");
   масШаблонов.Добавить("%m_s");
   тхтФайл = Новый ТекстовыйДокумент;
   тхтФайл.Прочитать("c:\1\2\history.txt");
   чисСтрок = тхтФайл.КоличествоСтрок();
   тзТекст = Новый ТаблицаЗначений;
   тзТекст.Колонки.Добавить("Строка", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки()));
   Для х = 1 По чисСтрок Цикл
       стзТекст = тзТекст.Добавить();
       стзТекст.Строка = тхтФайл.ПолучитьСтроку(х);
   КонецЦикла;
   стрЗапрос = "ВЫБРАТЬ
               |    тзТекст.Строка
               |ПОМЕСТИТЬ тзРезультат
               |ИЗ
               |    &тзТекст КАК тзТекст
               |;
               |
               |////////////////////////////////////////////////////////////////////////////////
               |ВЫБРАТЬ
               |    тзРезультат.Строка
               |ИЗ
               |    тзРезультат КАК тзРезультат";
   стрУсловие = "";
   флПервый = Истина;
   Для Каждого эмасШаблонов Из масШаблонов Цикл
       Если флПервый Тогда
           стрУсловие =
           "
            |ГДЕ
            |    тзРезультат.Строка ПОДОБНО """ + эмасШаблонов + """";
           флПервый = Ложь;
       Иначе
           стрУсловие = стрУсловие +
           "
            |    ИЛИ тзРезультат.Строка ПОДОБНО """ + эмасШаблонов + """";
       КонецЕсли;
   КонецЦикла;
   стрЗапрос = стрЗапрос + стрУсловие;
   запВыборка = Новый Запрос(стрЗапрос);
   запВыборка.УстановитьПараметр("тзТекст", тзТекст);
   тзРезультат = запВыборка.Выполнить().Выгрузить();
127 Asmody
 
29.08.12
08:22
забавно. из серии "нетрадиционное использование запросов". а как результат раскидывать по массивам?
128 skunk
 
29.08.12
08:23
(127)в смысле?
129 skunk
 
29.08.12
08:33
а понял ...
130 skunk
 
29.08.12
08:35
собственно не думаю, что большая проблема будет ...
131 skunk
 
29.08.12
08:39
просто надо скорее всего смотреть сколько строк из исходного текста возращается в массив ... если процент будет больше 50 ... то надо курить объединеия в запросе ... иначе ... то наверное есть смысл обработать уже полученную тз
132 Asmody
 
29.08.12
08:59
и еще: запрос вернет строки, а не части строк. т.е. придется еще результат анализировать на предмет соответствия.
133 skunk
 
29.08.12
09:08
ну если только нужны только части строк из шаблонов ... то тогда одназначно таблицу расскидывать после выборки
134 Новенький_2009
 
29.08.12
09:58
(126) к txt можно писать запрос сразу, без подсоса в ТЗ
135 kotletka
 
29.08.12
10:00
прально нужен такой конкурс, сразу определим бездельников, которые вместо того чтобы работать в конкурсах участвуют
136 skunk
 
29.08.12
11:39
(134)как?
137 jump if overflow
 
29.08.12
12:09
(114) Конгениально! сам бы не допер .
Закон Брукера: Даже маленькая практика стоит большой теории.