Удаление повторяющихся элементов в списке

@AnnaKon · Регистрация: 13.06.2015

Студворк — интернет-сервис помощи студентам

Всем привет. Только начали изучать F#, поэтому есть затруднение с написанием программы.
Нужно удалить из списка повторяющиеся элементы двумя способами:
Первый. Если элемент в списке встречается более 1 раза, удалить его повторения. Т.е. [1; 2; 2; 3] -> [1;2;3]
Второй. Если элемент в списке встречается более 1 раза, удалить все вхождения этого эл-та. Т.е. [1;1;2]->[2]
Прошу помочь с любым из этих примеров, с остальным разберусь сама

@pycture · 13.06.2015, 15:34

Сообщение от AnnaKon

Прошу помочь с любым из этих примеров, с остальным разберусь сама

ну сама так сама http://ideone.com/4gAlV4

F#
1
2
3
4
5
let rec removeDups xs =
    match xs with
    | h :: k :: t when h = k -> removeDups (h :: t)
    | h :: t                 -> h :: removeDups t
    | []                     -> []

@Ev_Hyper · 13.06.2015, 16:33

Сообщение от AnnaKon

Второй. Если элемент в списке встречается более 1 раза, удалить все вхождения этого эл-та. Т.е. [1;1;2]->[2]

AnnaKon, второй:

F#
1
2
let remove lst =
    lst |> List.filter(fun x-> (lst |> List.filter(fun y -> y = x)).Length = 1)

или нужно без использовать стандартных функций?

@diadiavova · 13.06.2015, 16:34

pycture, так это ведь удалит повторы, только если они рядом будут идти.

@Ev_Hyper · 13.06.2015, 17:21

Сообщение от AnnaKon

Первый. Если элемент в списке встречается более 1 раза, удалить его повторения. Т.е. [1; 2; 2; 3] -> [1;2;3]

AnnaKon, первый:

F#
1
2
let removes lst =
    lst |> Seq.distinct |> Seq.toList

Сообщение от diadiavova

так это ведь удалит повторы, только если они рядом будут идти.

верно. Но можно просто добавить сортировку:

F#
1
2
3
4
5
6
7
let removeD xs =
    let rec removeDups xs = 
        match xs with
        | h :: k :: t when h = k -> removeDups (h :: t)
        | h :: t                 -> h :: removeDups t
        | []                     -> []
    removeDups (xs |> List.sort)

естественно порядок не сохранится.

@diadiavova · 13.06.2015, 17:27

Сообщение от Ev_Hyper

естественно порядок не сохранится.

Если порядок не важен, то это обычно в условии оговаривается. В принципе с сохранением порядка можно так сделать.

F#
1
2
3
4
5
6
7
let distinct (l:'a list) =
    let rec dist src result = 
        match src with
        | h::t when List.exists ((=) h) result -> dist t result
        | h::t ->  dist t (h::result)
        | _ -> result
    List.rev (dist l [])

Но как-то это тоже не очень красиво. А если уж совсем обнаглеть, то можно с помощью Seq.distinct решить )))

@Ev_Hyper · 13.06.2015, 17:40

Сообщение от diadiavova

Но как-то это тоже не очень красиво.

diadiavova, красиво. Но тип можно не указывать явно:

F#
1
2
3
let distinct l =
    let rec dist src result =
    ...

@diadiavova · 13.06.2015, 17:45

Сообщение от Ev_Hyper

diadiavova, красиво. Но тип можно не указывать явно:

А там по-моему чойт ругался компилятор. Возможно не на окончательный вариант, а в процессе. А насчет Seq.distinct, вот

F#
1
let listdistinct l = l |> Seq.ofList |> Seq.distinct |> Seq.toList

@pycture · 13.06.2015, 17:57

F#
1
2
3
4
5
6
7
8
9
10
let rec remove1 xs =
        match xs with
        | h :: t -> h :: remove1 (List.filter ((<>)h) t)
        | []     -> []
 
let rec remove2 xs =
        match xs with
        | h :: t when List.exists ((=)h) t -> remove2 (List.filter ((<>)h) t)
        | h :: t -> h :: remove2 t
        | []     -> []

@Ev_Hyper · 13.06.2015, 18:01

Сообщение от diadiavova

А насчет Seq.distinct, вот

diadiavova, я его уже приводил в 5 посте

Сообщение от diadiavova

А там по-моему чойт ругался компилятор. Возможно не на окончательный вариант, а в процессе.

ругался до использования List.exists

Еще 1 вариант:

F#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
let removeD2 lst = 
    let equal xs el = 
        let rec eq lst = 
            match lst with
            | h::t when h = el -> false
            | h::t -> eq t 
            | [] -> true
        eq xs
    
    let rec dist xs = 
        match xs with
        | h::t when (equal t h = false) -> dist t
        | h::t                          -> h::dist t
        | []                            -> []
    dist (lst |> List.rev)
    |> List.rev

F#
1
2
3
[1; 2; 2; 3; 1; 0; 2; 1] |> printfn "%A"
 
[1; 2; 2; 3; 1; 0; 2; 1] |> removeD2 |> printfn "%A"

Code
1
2
[1; 2; 2; 3; 1; 0; 2; 1]
[1; 2; 3; 0]

@pycture · 13.06.2015, 18:13

F#
1
2
3
4
5
6
7
let remove1 xs =
    let rec loop f xs =
        match xs with
        | h :: t when f h -> loop f t
        | h :: t -> h :: loop (fun x -> h = x || f x) t
        | []     -> []
    loop (fun _ -> false) xs

Добавлено через 11 минут

F#
1
2
3
4
5
6
7
8
9
10
11
12
let rec remove1 xs =
        match xs with
        | h :: t -> match List.partition ((=)h) t with
                    | _, t -> h :: remove1 t
        | []     -> []
 
let rec remove2 xs =
        match xs with
        | h :: t -> match List.partition ((=)h) t with
                    | [], t -> h :: remove2 t
                    | _ , t -> remove2 t
        | []     -> []

@diadiavova · 13.06.2015, 18:34

Сообщение от Ev_Hyper

diadiavova, я его уже приводил в 5 посте

Точно, не заметил.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

Удаление повторяющихся элементов в списке

Решение

Решение

Решение

Решение

@AnnaKon 1 / 1 / 1 Регистрация: 13.06.2015 Сообщений: 9

	Удаление повторяющихся элементов в списке 13.06.2015, 15:14. Показов 3595. Ответов 11 Метки нет (Все метки) Всем привет. Только начали изучать F#, поэтому есть затруднение с написанием программы. Нужно удалить из списка повторяющиеся элементы двумя способами: Первый. Если элемент в списке встречается более 1 раза, удалить его повторения. Т.е. [1; 2; 2; 3] -> [1;2;3] Второй. Если элемент в списке встречается более 1 раза, удалить все вхождения этого эл-та. Т.е. [1;1;2]->[2] Прошу помочь с любым из этих примеров, с остальным разберусь сама 0

@diadiavova 7258 / 2605 / 744 Регистрация: 11.04.2015 Сообщений: 4,149 Записей в блоге: 43
	13.06.2015, 16:34
	pycture, так это ведь удалит повторы, только если они рядом будут идти. 0