VBNet - Форум - Помогите сделать задачку пожалуйсто. Очень срочно.

Вопрос: Помогите сделать задачку пожалуйсто. Очень срочно. Добавлено: 09.01.11 02:32

Автор вопроса: Ben | ICQ: 419846992

Дана строка, состоящая из слов, разделённых пробелами. Найти все слова, в которых количество повторяющихся символов равно количеству символов, входящих в данное слово точно один раз.

Написать надо в Visual Basic 2008

помогите кто-нибудь. буду очень благодарен.
Ответить

Ответы Всего ответов: 10

Номер ответа: 1 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #1	Добавлено: 09.01.11 06:14
	var result = s.Split(new char[] {' '}).Where(x => x.ToCharArray().Where(c => x.IndexOf(c) != x.LastIndexOf(c)).Distinct().Count() * 2 == x.ToCharArray().Distinct().Count()).ToArray(); Ответить

Номер ответа: 2 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #2	Добавлено: 09.01.11 09:16
	)))))) Препод по любому ахренеет, а ТС не сможет объяснить КАК и ПОЧЕМУ это работает! )) И конечно же поставит ПЯЦЬ! ))) Ответить

Номер ответа: 3 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| \| #3	Добавлено: 09.01.11 09:54
	Sharp он не знает, что такое VS 2008, а ты ему Linq подсовываешь. Как сказал EROS, препод точно ахренеет, так как он сам не знает, что такое Linq. Ответить

Номер ответа: 4 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #4	Добавлено: 09.01.11 11:23
	Тем не менее ответ на его вопрос был дан и ответ вполне корректный.. Он хотел на 2008 - он это получил.. А тот факт что там использовался Linq, или тот факт что ТС не понимает как это работает - никого не интересует(имхо).. Linq тоже часть FW 3.5 Ответить

Номер ответа: 5 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #5	Добавлено: 09.01.11 12:29
	Разве что, он просил васик, а получил шарп. Попробую перевести без ошибок. var result = s.Split(new char[] {' '}).Where(x => x.ToCharArray().Where(c => x.IndexOf(c) != x.LastIndexOf(c)).Distinct().Count() * 2 == x.ToCharArray().Distinct().Count()).ToArray(); Dim Result = s.Split(New Char() {" "}).Where(Function(x) x.ToCarArray.Where(Function(c) x.IndexOf(c) <> x.LastIndexOf(c)).Distinct.Count * 2 = x.ToCarArray.Distinct.Count).ToArray у мя получилось с 1го раза без ошибок?.. Ответить

Номер ответа: 6 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #6	Добавлено: 09.01.11 12:30
	ToCarArray -> ToCharArray -_- Ответить

Номер ответа: 7 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #7	Добавлено: 09.01.11 19:30
	Фак, не смотря на ужасный синтаксис ламбда-выражений в VB, код на VB получился короче чем на C# Ответить

Номер ответа: 8 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #8	Добавлено: 09.01.11 19:32
	только за счет 5 пар скобок.. Ответить

Номер ответа: 9 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #9	Добавлено: 09.01.11 20:02
	и = вместо == Ответить

Номер ответа: 10 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #10	Добавлено: 10.01.11 01:05
	и ; Ответить

Страница: 1 |