Составить все подмножества заданного списка

@Vitaliy1992 · Регистрация: 25.04.2015

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

Дан список чисел, составить все подмножества этого списка.

@Ev_Hyper · 09.05.2015, 09:28

Vitaliy1992, не совсем понятно, о чем речь. Можете показать тестовый пример?

@castorsky · 09.05.2015, 16:50

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

не совсем понятно, о чем речь

булеан

@Ev_Hyper · 09.05.2015, 19:13

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

булеан

castorsky, уже не очень хорошо помню курс дискретки. Т.е. если дан список:
[1;2;3]
,то должны получить
[[],[1];[2];[3];[1;2];[1;3];[2;3];[1;2;3]]?

@castorsky · 09.05.2015, 22:07

ага

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

F#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
>let rec subset l =
    match l with
    | [] -> [[]]
    | (x::xs) ->
                let second = subset xs in
                List.append (List.map(fun y -> x::y) second) second;;
 
val subset : 'a list -> 'a list list = <fun>
 
>let set = [1;2;3;4];;
 
val set : int list = [1; 2; 3;4]
 
>subset set;;
 
- : int list list = [[1; 2; 3; 4]; [1; 2; 3]; [1; 2; 4]; [1; 2]; [1; 3; 4]; [1; 3]; [1; 4]; [1]; [2; 3; 4]; [2; 3]; [2; 4]; [2]; [3; 4]; [3]; [4]; []]

@pycture · 10.05.2015, 07:18

F#
1
List.append (List.map(fun y -> x::y) second) second

может быть записано как

F#
1
[for y in second -> x::y] @ second

@Stalkc · 12.05.2015, 19:23

Выходит ошибка "Недопустимое ключевое слово val в выражении. Требуется неполный...". Как исправить?

@castorsky · 12.05.2015, 19:28

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

Как исправить?

попытаться понять что написано в коде и не совать всё подряд в REPL

@Stalkc · 12.05.2015, 19:30

что то вот не получается

@Ev_Hyper · 12.05.2015, 19:40

Stalkc, просто уберите строки, начинающиеся с val, а также угловые скобки. А вообще почитайте о F# Interactive:
https://msdn.microsoft.com/ru-... 33175.aspx

F#
1
2
3
4
5
6
7
8
let rec subset l =
    match l with
    | [] -> [[]]
    | (x::xs) -> let second = subset xs in [for y in second -> x::y] @ second
 
let set = [1;2;3;4]
 
subset set |> printfn "%A"

Code
1
2
3
[[1; 2; 3; 4]; [1; 2; 3]; [1; 2; 4]; [1; 2]; [1; 3; 4]; [1; 3]; [1; 4]; [1];
 [2; 3; 4]; [2; 3]; [2; 4]; [2]; [3; 4]; [3]; [4]; []]
Для продолжения нажмите любую клавишу . . .

http://ideone.com/7mhrcu

Не по теме:

С вас еще 1 задача :D

@Stalkc · 12.05.2015, 19:54

Спасибо огромное!!)

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Vitaliy1992 1 / 1 / 0 Регистрация: 25.04.2015 Сообщений: 7

	Составить все подмножества заданного списка 08.05.2015, 18:25. Показов 2123. Ответов 10 Метки нет (Все метки) Дан список чисел, составить все подмножества этого списка. 0

@Ev_Hyper Заблокирован
	09.05.2015, 09:28
	Vitaliy1992, не совсем понятно, о чем речь. Можете показать тестовый пример? 0

@Stalkc 1 / 1 / 0 Регистрация: 18.12.2012 Сообщений: 12
	12.05.2015, 19:23
	Выходит ошибка "Недопустимое ключевое слово val в выражении. Требуется неполный...". Как исправить? 0

@Stalkc 1 / 1 / 0 Регистрация: 18.12.2012 Сообщений: 12
	12.05.2015, 19:30
	что то вот не получается 0

@Stalkc 1 / 1 / 0 Регистрация: 18.12.2012 Сообщений: 12
	12.05.2015, 19:54
	Спасибо огромное!!) 0

Составить все подмножества заданного списка

Решение