Ход конем - Страница 2

Старая форма входа

Страница 2 из 3 « 1 2 3 »
Модератор форума: китин

Мир MS Excel » Работа и общение » Мозговой штурм » Ход конем (Мы с конем вдвоем по полю пойдем)

Ход конем

Pelena

Дата: Вторник, 11.12.2012, 18:59 | Сообщение № 21

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Quote (MCH)

Для одного хода с возвратом ИСТИНА/ЛОЖЬ

55 со знаком =

Для двух ходов 243, но надо уточнить: из a1 в b2 мы ведь не можем попасть в отличие от b2 - c3?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

MCH

Дата: Вторник, 11.12.2012, 19:24 | Сообщение № 22

Группа: Админы

Ранг: Старожил

Сообщений: 2003

Репутация: 751 ±

Замечаний: ±

Quote (Pelena)

но надо уточнить: из a1 в b2 мы ведь не можем попасть в отличие от b2 - c3?

Не можем

Ответить

MCH

Дата: Среда, 12.12.2012, 00:29 | Сообщение № 23

Группа: Админы

Ранг: Старожил

Сообщений: 2003

Репутация: 751 ±

Замечаний: ±

Выкладывать, или подождать?

Ответить

Serge_007

Дата: Среда, 12.12.2012, 00:33 | Сообщение № 24

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Если не горит, то хотелось бы ещё подумать...

ЮMoney:41001419691823 | WMR:126292472390

Ответить

MCH

Дата: Четверг, 13.12.2012, 10:10 | Сообщение № 25

Группа: Админы

Ранг: Старожил

Сообщений: 2003

Репутация: 751 ±

Замечаний: ±

Думаю, что можно выкладыватся (кто хочет еще подумать, может не подсматривать)
Для одного хода у меня получилось такое решение в 54 знака с учетом "=":
[vba]

Code

=СУММКВ(МУМНОЖ(КОДСИМВ(ПСТР(A1:B1;{1:2};1));{1:-1}))=5

[/vba]

В качестве дополнительного бонуса, решение с помощью UDF, за какое минимальное кол-во ходов можно попасть из одной клетки в другую

К сообщению приложен файл: 4985066.xls (47.5 Kb) · 7643423.rar (58.2 Kb)

Ответить

Pelena

Дата: Четверг, 13.12.2012, 10:52 | Сообщение № 26

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Мои варианты (55, 217, UDF)

Как-то был разговор, что нельзя использовать посторонние числа, поэтому я не стала применять -96, это добавило несколько знаков

К сообщению приложен файл: Knight-sMove.xls (46.0 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Сообщение отредактировал Pelena - Четверг, 13.12.2012, 10:59

Ответить

Gustav

Дата: Пятница, 14.12.2012, 11:05 | Сообщение № 27

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2757

Репутация: 1139 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Quote (Pelena)

For i% = 1 To 8
For j% = 1 To 8
.....
Next j%, i%

Прикольно! Не знал, что одним Next'ом можно несколько циклов закрывать.

МОИ: Ник, Tip box: 41001663842605

Ответить

RAN

Дата: Пятница, 14.12.2012, 21:39 | Сообщение № 28

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Мой пароль - имя UDF.
Gustav, по мотивам!

Быть или не быть, вот в чем загвоздка!

Ответить

Светлый

Дата: Понедельник, 20.04.2015, 19:28 | Сообщение № 29

Группа: Друзья

Ранг: Старожил

Сообщений: 1830

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

Прошу меня простить. Совсем недавно столкнулся с этим форумом. Заинтересовала задача.
Моё решение для 1, 2, -1 129 символов без =.
Так как время давно вышло, выкладываю:

Код

=ЕСЛИОШИБКА(1--(ПОИСКПОЗ(ЧСТРОК(ДВССЫЛ(A1&":"&B1))*8+ЧИСЛСТОЛБ(ДВССЫЛ(A1&":"&B1));{19;26;9;11;13;18;20;25;29;34;36;41;43};)>2);-1)

Если вместо *8 использовать *10 и подправить {...}, будет понятнее, но это сэкономило мне 2 символа.
Думаю, что можно ещё сэкономить на ЕСЛИОШИБКА, но пока ничего не придумал.

Программировать проще, чем писать стихи.

Сообщение отредактировал Светлый - Понедельник, 20.04.2015, 19:32

Ответить

Rioran

Дата: Четверг, 23.04.2015, 15:11 | Сообщение № 30

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

Интересная задача.

Выкладываю моё решение не для общего зачёта, а интереса собственного ради. Формула для одного хода, без "=" на 115 знаков. Если есть один ход - выдаёт "1", иначе "0".

Код

=ЕСЛИ(3-ABS(ПОИСК(ЛЕВСИМВ(A1;1);"abcdefgh")-ПОИСК(ЛЕВСИМВ(B1;1);"abcdefgh"))=ABS(ПРАВСИМВ(A1;1)-ПРАВСИМВ(B1;1));1;0)

Светлый, отличная математическая задумка, браво. Хотя, конечно, на пару "a1 : j1" будет ложное срабатывание, но это уже детали за рамками изначального условия.

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Четверг, 23.04.2015, 15:19

Ответить

Светлый

Дата: Четверг, 23.04.2015, 19:03 | Сообщение № 31

Группа: Друзья

Ранг: Старожил

Сообщений: 1830

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

Ещё немного поразмыслил. 111 символов для 1, 2, -1 Формула НЕ массивная.

Код

=ЕСЛИОШИБКА(1+(НАЙТИ(СИМВОЛ(ЧСТРОК(ДВССЫЛ(A1&":"&B1))*8+ЧИСЛСТОЛБ(ДВССЫЛ(A1&":"&B1))+55);"JQ@BDIKPTY[`b")>2);-1)

Все комбинации не проверил, но исключил из НАЙТИ символы ?*"

Программировать проще, чем писать стихи.

Сообщение отредактировал Светлый - Четверг, 23.04.2015, 19:14

Ответить

ShAM

Дата: Пятница, 24.04.2015, 07:25 | Сообщение № 32

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Светлый, к сожалению Ваши формулы для этого раздела не подойдут.

По Правилам данного раздела формулы должны работать в 2003-м Экселе.

Ответить

Светлый

Дата: Пятница, 24.04.2015, 12:37 | Сообщение № 33

Группа: Друзья

Ранг: Старожил

Сообщений: 1830

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

ShAM, спасибо за замечание. По неопытности не учёл. Буду теперь проверять в 2003.
Тогда результат весьма скромный: 201 символ

Код

=ЕСЛИ(ЕОШ(НАЙТИ(СИМВОЛ(ЧСТРОК(ДВССЫЛ(A1&":"&B1))*8+ЧИСЛСТОЛБ(ДВССЫЛ(A1&":"&B1))+55);"JQ@BDIKPTY[`b"));-1;1+(НАЙТИ(СИМВОЛ(ЧСТРОК(ДВССЫЛ(A1&":"&B1))*8+ЧИСЛСТОЛБ(ДВССЫЛ(A1&":"&B1))+55);"JQ@BDIKPTY[`b")>2))

Но, если вместо "-1" разрешить другой сигнализатор, что одним и двумя ходами клетки не соединить, можно (вне конкурса) оставить формулу в 96 знаков:

Код

=1+(НАЙТИ(СИМВОЛ(ЧСТРОК(ДВССЫЛ(A1&":"&B1))*8+ЧИСЛСТОЛБ(ДВССЫЛ(A1&":"&B1))+55);"JQ@BDIKPTY[`b")>2)

[offtop]Честно говоря, я весьма впечатлён решениями участников мозгового штурма. Если раньше я считал, что знаю Excel на 20-25%, теперь снизил свою планку <20%. Попытаюсь с новыми знаниями и хитростями пересмотреть свои прежние задачки. Спасибо.

Программировать проще, чем писать стихи.

Ответить

Светлый

Дата: Пятница, 24.04.2015, 13:01 | Сообщение № 34

Группа: Друзья

Ранг: Старожил

Сообщений: 1830

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

Rioran, в Вашей формуле ложное срабатывание на a1-a4 и на a1-d1. Я тоже наступил на эти грабли, поэтому отказался от подобного алгоритма.
Только не воспринимайте, пожалуйста, моё высказывание, как ответное замечание.

Программировать проще, чем писать стихи.

Сообщение отредактировал Светлый - Пятница, 24.04.2015, 13:07

Ответить

Rioran

Дата: Пятница, 24.04.2015, 15:24 | Сообщение № 35

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

Светлый, спасибо за ценное наблюдение. Действительно, стоит добавить в формулу дополнительную проверку. Можно так, увеличив её до 181 знака.

Код

=ЕСЛИ((3-ABS(ПОИСК(ЛЕВСИМВ(A1;1);"abcdefgh")-ПОИСК(ЛЕВСИМВ(B1;1);"abcdefgh"))=ABS(ПРАВСИМВ(A1;1)-ПРАВСИМВ(B1;1)))*((ЛЕВСИМВ(A1;1)=ЛЕВСИМВ(B1;1))=(ПРАВСИМВ(A1;1)=ПРАВСИМВ(B1;1)));1;0)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

Светлый

Дата: Пятница, 24.04.2015, 18:47 | Сообщение № 36

Группа: Друзья

Ранг: Старожил

Сообщений: 1830

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

Rioran, у Вас в формуле используется завуалированная разница разниц координат, а это линейная зависимость(число шагов). При ней 3+0=2+1. Вот и потребовалась дополнительная проверка. Лучше использовать произведение разниц координат(площадь), это всегда будет 2*1=1*2=2 в любых сочетаниях.

Программировать проще, чем писать стихи.

Ответить

Serge_007

Дата: Пятница, 24.04.2015, 18:52 | Сообщение № 37

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Роман, в твоей формуле можно сэкономить 24 символа, просто поменяв ЛЕВСИМВ() и ПРАВСИМВ() на ЛЕВБ() и ПРАВБ()

[offtop]

Цитата Светлый, 24.04.2015 в 12:37, в сообщении № 33

я считал, что знаю Excel на 20-25%

Сергей, подскажите, а как Вы посчитали объем Ваших знаний, не зная всего объема возможностей Excel?
Иными словами: Какую константу Вы поделили и на что, так, что в результате получилось 20-25% ?[/offtop]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

krosav4ig

Дата: Пятница, 24.04.2015, 19:48 | Сообщение № 38

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

ничего своего не придумал, тока поковырялся в формуле Романа

Код

=Ч(И(3-ABS(МУМНОЖ(КОДСИМВ(ЛЕВБ(A1:B1));{1:-1}))=ABS(ПРАВБ(A1)-ПРАВБ(B1));((ЛЕВБ(A1)=ЛЕВБ(B1))=(ПРАВБ(A1)=ПРАВБ(B1)))))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 20:01

Ответить

Светлый

Дата: Пятница, 24.04.2015, 22:25 | Сообщение № 39

Группа: Друзья

Ранг: Старожил

Сообщений: 1830

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

Serge_007, не хлебом единым... не формулами одними живы формулисты. Иногда и пофлудить хочется. Заранее прошу прощения за флуд - отвечаю на вопрос гуру.
Грубо разделим возможности и ресурсы Excel на 50% VBA и 50% функции. Хотя некоторым это покажется спорным. Сознаюсь, в VBA знаю примерно 5% объектов и их свойств. Не возникало необходимости их изучать. Из имеющихся 350 функций свободно могу использовать 200. Реально приходилось использовать 150. Совсем не пользовался финансовыми и большей частью статистических-вероятностных. Глубоко копал циклические ссылки и итерации. Форматирование, условное форматирование и прочий функционал, типа подбор параметра, поиск решения, фильтры, мне знаком, но он на общую оценку не сильно повлияет:

Код

=5%*50%+150/350*50%

Примерно 24%.
Интуиция оказалась близка к хладным числам.
Блин, целая статья получилась. Жалко, что не на месте.