Описать функцию, которая создаёт новый список из каждого второго элемента исходного списка

@NoviiMir · Регистрация: 23.09.2012

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

@Ev_Hyper · 29.03.2015, 10:04

F#
1
2
3
4
5
6
7
8
//Описать функцию, которая создаёт новый список из каждого второго элемента исходного списка
let second list = 
    List.zip list [0..list.Length-1] |> List.filter(fun x ->(snd x)%2=0)
    |> List.map fst
 
let sp = [0..10]
sp |> printfn "%A" 
second sp |> printfn "%A"

Code
1
2
[0; 1; 2; 3; 4; 5; 6; 7; 8; 9; 10]
[0; 2; 4; 6; 8; 10]

Не по теме:

Не хватает второй перегрузки метода "where" из C#-LINQ

@pycture · 29.03.2015, 11:53

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

Не хватает второй перегрузки метода "where" из C#-LINQ

э-э-э.. где не хватает?

F#
1
2
3
open System.Linq
let sec4 (xs : 'a list) = 
    xs.Where(fun _ i -> i % 2 = 0) |> Seq.toList

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

Кликните здесь для просмотра всего текста

F#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
// кратко
let rec sec1 xs = 
    match xs with a::_::t | a::([] as t) -> a :: sec1 t | _ -> []
 
// быстро
let sec2 xs = 
    let rec loop acc = function 
                       | a::_::t | a::([] as t) -> loop (a::acc) t
                       | _ -> List.rev acc
    loop [] xs
 
// 
let sec3 xs = 
    xs |> List.mapi (fun i e -> if i % 2 = 0 then Some e else None) 
       |> List.choose id
 
open System.Linq
let sec4 (xs : 'a list) = 
    xs.Where(fun _ i -> i % 2 = 0) |> Seq.toList
 
let sec5 (xs : 'a list) = 
    let xs' = ref xs
    [for i in 1..List.length xs do
        let h::t = !xs'
        if i % 2 = 1 then yield h else ()
        xs' := t]
 
let sec6 (xs : 'a list) = 
    seq { 
        let xs' = ref <| List.toSeq xs
        while Seq.isEmpty !xs' |> not do 
                yield Seq.head !xs'
                xs' := Seq.skip 1 !xs' 
                if Seq.isEmpty !xs' |> not then xs' := Seq.skip 1 !xs' 
                }
    |> Seq.toList

http://ideone.com/atPGK0

@Ev_Hyper · 29.03.2015, 11:59

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

э-э-э.. где не хватает?

pycture, такой способ я знаю. Linq в F# выглядит немного избыточным - все таки часть методов доступны и так.

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

Не по теме:

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

http://ideone.com/atPGK0

pycture, а почему большая часть только на ideone, а тут на форуме не показываете?)

@pycture · 29.03.2015, 12:08

Не по теме:

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

а почему большая часть только на ideone, а тут на форуме не показываете?

это такой спойлер. что б изучающие совсем не разленились :)

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

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

Linq в F# выглядит немного избыточным - все таки часть методов доступны и так.

я б не сказал что часть методов Linq доступны. всякие List.filter и пр это всетаки не Linq.

@diadiavova · 11.04.2015, 09:51

Каждое применение zip, filter или map, подразумевает полный обход всех элементов списка. Три обхода для такой задачи как-то многовато.
Вот простой вариант в два обхода (fold и rev)

F#
1
2
3
4
5
6
let filterEven l = 
    List.fold (fun (result, index) el -> 
                if index % 2 = 0 
                then (el::result, index + 1) 
                else (result, index + 1)) ([], 0) l 
                |> fst |> List.rev

Ну и в один обход как-то так можно сделать

F#
1
2
3
4
5
6
let filterEven l = 
    List.foldBack (fun el (result1, result2, index)  -> 
        if index % 2 = 0 
        then (el::result1, result2,  index + 1) 
        else (result1, el::result2, index + 1 )) l ([],[],0) 
        |||> fun r1 r2 i -> if i % 2 = 0 then r2 else r1

@pycture · 11.04.2015, 12:37

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

простой вариант в два обхода

пораждает кучу туплов - негативно скажется на скорости и памяти

один обход как-то так можно сделать

маловероятно что foldBack имеет какоето преймущество перед 2-мя проходами

@diadiavova · 11.04.2015, 13:08

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

пораждает кучу туплов - негативно скажется на скорости и памяти

Вот тут, честно говоря, просто не в курсе.

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

маловероятно что foldBack имеет какоето преймущество перед 2-мя проходами

А как же катаморфизм?

Добавлено через 16 минут
И, кстати, насчет кортежей: зиповка ведь тоже их создает и тоже по одному на каждый элемент списка. Да и генерация [0..list.Length-1] - штука тоже не бесплатная: и сам список сгенерировать надо, да еще тут и подсчет элементов производится, который тоже подразумевает обход списка.

@pycture · 11.04.2015, 13:39

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

катаморфизм

а он утут причем?

зиповка ведь тоже их создает и тоже по одному на каждый элемент списк

создает. вариант без создания (sec2) спрятан выше

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

маловероятно что foldBack имеет какоето преймущество перед 2-мя проходами

https://github.com/fsharp/fsha... re/list.fs
line 192

@diadiavova · 11.04.2015, 14:13

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

вариант без создания (sec2) спрятан выше

Да, круто. Не заметил, поскольку там речь шла о линк-функциях, вчитываться не стал.

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

line 192

Мда...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@NoviiMir 10 / 10 / 2 Регистрация: 23.09.2012 Сообщений: 427

	Описать функцию, которая создаёт новый список из каждого второго элемента исходного списка 21.11.2013, 16:43. Показов 2392. Ответов 9 Метки нет (Все метки) Описать функцию, которая создаёт новый список из каждого второго элемента исходного списка 0

Описать функцию, которая создаёт новый список из каждого второго элемента исходного списка

Решение