Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Вопрос по программированию / 24 сообщений из 24, страница 1 из 1
25.05.2009, 16:00:52
    #36005903
Ювентус
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Значит так
Есть файл который состоит из чисел.Количевство каждого числа есть велечина четная.Только количевство одного числа не четная Какраз надо найти это число

Пример

1,3,4,1,3,3,4,1,5,5,1 здесь результат как видим 3
...
Рейтинг: 0 / 0
25.05.2009, 16:13:11
    #36005946
eee-pc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Значит так.
500р
...
Рейтинг: 0 / 0
25.05.2009, 17:45:30
    #36006229
Ёш
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Код: plaintext
1.
2.
$ echo  1 , 3 , 4 , 1 , 3 , 3 , 4 , 1 , 5 , 5 , 1  | tr ',' '\n' | sort | uniq -c | awk '$1 % 2 { print $2 }'
 3 


--
„Истина — это вовсе не то, что можно убедительно доказать, это то, что
делает всё проще и понятнее“ — Антуан де Сент-Экзюпери
...
Рейтинг: 0 / 0
25.05.2009, 20:52:06
    #36006583
belugin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Код: plaintext
1.
 1 , 3 , 4 , 1 , 3 , 3 , 4 , 1 , 5 , 5 , 1  | group | ?{ !($_.Count %  2  -eq  0 )} | select name
...
Рейтинг: 0 / 0
25.05.2009, 23:54:15
    #36006765
belugin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Код: plaintext
1.
2.
3.
4.
5.
[ 1 ; 3 ; 4 ; 1 ; 3 ; 3 ; 4 ; 1 ; 5 ; 5 ; 1 ] 
    |> Seq.countBy (fun x->x) 
    |> Seq.filter (fun (_, c) -> c %  2  <>  0 ) 
    |> Seq.map fst    
    |> printf "%A"
...
Рейтинг: 0 / 0
26.05.2009, 00:58:42
    #36006793
Сансенд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
xor поэлементно всех чисел в файле, в ответе искомое число
...
Рейтинг: 0 / 0
26.05.2009, 10:43:42
    #36007232
ZyK_BotaN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
reduce( lambda x,y: x^y, (1,3,4,1,3,3,4,1,5,5,1))
...
Рейтинг: 0 / 0
27.05.2009, 11:59:25
    #36010133
RAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
belugin
Код: plaintext
1.
2.
3.
4.
5.
[ 1 ; 3 ; 4 ; 1 ; 3 ; 3 ; 4 ; 1 ; 5 ; 5 ; 1 ] 
    |> Seq.countBy (fun x->x) 
    |> Seq.filter (fun (_, c) -> c %  2  <>  0 ) 
    |> Seq.map fst    
    |> printf "%A"


oO что за язык страшный?
...
Рейтинг: 0 / 0
27.05.2009, 13:03:24
    #36010352
belugin4
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
RAndrew
oO что за язык страшный?

F#
...
Рейтинг: 0 / 0
27.05.2009, 13:34:03
    #36010494
RAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
import Data.List
import System (getArgs)

dropPairs [] = []
dropPairs (x:xs) | x `elem` xs = dropPairs $ delete x xs
                 | otherwise   = x:dropPairs xs

main = do
  file <- fmap head getArgs
  l <- readFile file
  print . head $ dropPairs l
...
Рейтинг: 0 / 0
27.05.2009, 14:46:41
    #36010819
mccc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Сансенд xor поэлементно всех чисел в файле, в ответе искомое число
+!
Код: plaintext
select  1  ^  3  ^  4  ^  1  ^  3  ^  3  ^  4  ^  1  ^  5  ^  5  ^  1 
...
Рейтинг: 0 / 0
27.05.2009, 15:05:18
    #36010901
RAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
ну тогда
Код: plaintext
1.
dropPairs l = foldl1' xor l
...
Рейтинг: 0 / 0
27.05.2009, 15:13:04
    #36010940
belugin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
dropPairs = foldl1' xor
...
Рейтинг: 0 / 0
27.05.2009, 15:21:02
    #36010974
RAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
даже хуже :)
dropPairs = foldl' (flip $ xor . digitToInt) 0
...
Рейтинг: 0 / 0
27.05.2009, 17:10:50
    #36011400
случайный гость
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
mccc,

select 1 ^ 3 ^ 4 ^ 1 ^ 3 ^ 3 ^ 4 ^ 1 ^ 5 ^ 5 ^ 1 ^ 4 ^ 4 ^ 4

= 7
:D))
...
Рейтинг: 0 / 0
27.05.2009, 17:54:03
    #36011542
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
with t as (
select  1  n from dual
union all
select  3  from dual 
union all
select  4  from dual 
union all
select  1  from dual 
union all
select  3  from dual 
union all
select  3  from dual 
union all
select  4  from dual 
union all
select  1  from dual 
union all
select  5  from dual 
union all
select  5  from dual 
union all
select  1  from dual 
)
select n from t group by n having mod(count(n), 2 )= 1 ;
...
Рейтинг: 0 / 0
27.05.2009, 18:31:27
    #36011654
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
mcccСансенд xor поэлементно всех чисел в файле, в ответе искомое число
+!
Код: plaintext
select  1  ^  3  ^  4  ^  1  ^  3  ^  3  ^  4  ^  1  ^  5  ^  5  ^  1 

В общем случае, может оказаться два непарных числа. Тогда решение будет ошибочным.
...
Рейтинг: 0 / 0
27.05.2009, 18:38:02
    #36011667
eee-pc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
maytonmcccСансенд xor поэлементно всех чисел в файле, в ответе искомое число
+!
Код: plaintext
select  1  ^  3  ^  4  ^  1  ^  3  ^  3  ^  4  ^  1  ^  5  ^  5  ^  1 

В общем случае, может оказаться два непарных числа. Тогда решение будет ошибочным.

по условию, оно единственно
...
Рейтинг: 0 / 0
27.05.2009, 18:47:20
    #36011681
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Дай бог. Но препод может сделать проверку на вшивость. XOR - это конечно хакерский hint, но никак не тянет на лабораторную.
...
Рейтинг: 0 / 0
27.05.2009, 23:13:36
    #36012082
Изопропил
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
maytonДай бог. Но препод может сделать проверку на вшивость. XOR - это конечно хакерский hint, но никак не тянет на лабораторную.

тем не менее единственный, дающий O(N).
"Только количевство одного числа не четная" - довольно существенная часть формулировки задачи
...
Рейтинг: 0 / 0
28.05.2009, 03:06:34
    #36012210
ZyK_BotaN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
препод скорее всего и ожидает решение с помощью хора.
...
Рейтинг: 0 / 0
28.05.2009, 12:49:16
    #36012982
mayton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Вряд-ли. Препод ожидает любое решение. Использование xor слишком специфично ИМХО.
...
Рейтинг: 0 / 0
28.05.2009, 16:11:07
    #36013777
ZyK_BotaN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
тогда, небыло бы оговогри "Только количевство одного числа не четная".думаю для этого условия хор - идеальное решение.
...
Рейтинг: 0 / 0
28.05.2009, 22:29:32
    #36014537
mccc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по программированию
Случайный гостьmccc,

select 1 ^ 3 ^ 4 ^ 1 ^ 3 ^ 3 ^ 4 ^ 1 ^ 5 ^ 5 ^ 1 ^ 4 ^ 4 ^ 4 = 7

по условию
Ювентус
Количевство каждого числа есть велечина четная . Только количевство одного числа не четная
подсчитай количество "3" и "4"
...
Рейтинг: 0 / 0
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Вопрос по программированию / 24 сообщений из 24, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]