Можно сделать данный код еще меньше?

@Vaderkos · Регистрация: 31.03.2015

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

Сейчас 195 символов, но можно ли еще меньше?

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
p = int(input())
m = []
for i in range(int(input())):
    m += input()
def f(m):
    w = len(m)
    t = []
    for i in range(2**w):
        s = "{"
        for j in range(w):
            if i & 1 << j:
                s += " " + m[j] + " "
        s += "}"
        t.append(s)
    return t
for y in range(p):
    m = f(m)
for k in m:
    print(k)

@rattrapper · 13.06.2015, 21:41

cybercitizen, тоже долго не мог понять. Нужно посчитать f(M, p), где M - мн-во, p - натуральоне.
$https://www.cyberforum.ru/cgi-bin/latex.cgi?f(M, p) = \left\{\begin{matrix}2^M, p = 1\\ 2^{f(M, p -1)}, p > 1\end{matrix}\right.$

Добавлено через 6 минут
что-то никак с LATEX-ом не договорюсь. В предпросмотре одна формула, в сообщении другая

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

Python
1
2
3
4
def f(M, p):
  if p == 1:
    return subsets(M)
  return subsets(f(M, p - 1))

@cybercitizen · 13.06.2015, 21:47

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

Нужно посчитать f(M, p), где M - мн-во, p - натуральоне.

ты предлагаешь считать скаляр, а ему нужны множества. Впрочем, он сам не хочет объяснить нормально что ему надо. Надо только чтобы код короче был... perl в руки, там всё коротко и не понятно.

Добавлено через 49 секунд
И как это, 2^{Множество}?

@Vaderkos · 13.06.2015, 21:47 **[ТС]**

Я обьясняюсь основываясь на понятиях из дискретной математики

@cybercitizen · 13.06.2015, 21:48

булеан?

Добавлено через 56 секунд

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

Я обьясняюсь основываясь на понятиях из дискретной математики

ага, 1 2 3 4 5 6 7 A = {1,3,5} P(A).

@Vaderkos · 13.06.2015, 21:48 **[ТС]**

Да, извиняюсь, так как учусь на польском то называю множеством. Немного не понял сначала что не понятно вам

@rattrapper · 13.06.2015, 22:13

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

И как это, 2^{Множество}?

cybercitizen, у нас так на дискретке обозначалось мн-во всех подмножеств, думал у всех так

Добавлено через 3 минуты
а обозначали так, помню, потому, что |2^X| = 2^|X|

@Vaderkos · 13.06.2015, 22:26 **[ТС]**

cybercitizen, rattrapper, у нас так P(A)

@rattrapper · 13.06.2015, 22:32

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

булеан

да. раньше не слышал такого названия

@cybercitizen · 13.06.2015, 23:08

Не по теме:

Где-то у меня на erlang, sheme и haskell были такие решения. Не мог же я их удалить. О_о

@Vaderkos · 13.06.2015, 23:13 **[ТС]**

cybercitizen, Я бы был очень благодарен если вы их найдете

@cybercitizen · 14.06.2015, 15:28

Не по теме:

Я бы сам станцевал, если бы их нашел. Надо еще погуглить по ресурсам, где я их мог оставить.

Добавлено через 16 часов 6 минут

scheme

Lisp
1
2
3
4
5
6
7
8
9
(define (subsets set-lst)
  (if (null? set-lst)
      '(())
      ((lambda (r)
         (append r (map (lambda (a) (cons (car set-lst) a)) r)))
       (subsets (cdr set-lst)))))
 
(subsets '(a b c))
;'(() (c) (b) (b c) (a) (a c) (a b) (a b c))

haskell

Haskell
1
2
3
4
5
6
7
8
9
10
subSets [] = [[]]
subSets (x:xs) = r ++ map (x:) r where r = subSets xs
{-
Prelude> :load ./foo.hs
[1 of 1] Compiling Main             ( foo.hs, interpreted )
Ok, modules loaded: Main.
*Main> subSets [1,2,3]
[[],[3],[2],[2,3],[1],[1,3],[1,2],[1,2,3]]
*Main> 
-}

erlang обновляю рантайм. Интересно что эти функциональные алгоритмы один в один на python не переносятся. Алгоритм, который задействован в 1 посте конечно применим к наким языкам как c, pascal. Но никак не к python, где есть встроенные структуры данных и фвп для работы с ними.

@Vaderkos · 14.06.2015, 16:04 **[ТС]**

cybercitizen, Спаибо огромное, а вы не могли бы мне обьяснить, что выполнят каждый код, так как я не знаком с этими языками, и не все понимаю.

Добавлено через 16 минут
Или посоветовать какие то уроки или материалы с помощью которых я пойму.

@cybercitizen · 15.06.2015, 14:23

Ну а это для кого?

Haskell
1
2
3
*Main> subSets [1,2,3]
[[],[3],[2],[2,3],[1],[1,3],[1,2],[1,2,3]]
*Main>

Lisp
1
2
(subsets '(a b c))
;'(() (c) (b) (b c) (a) (a c) (a b) (a b c))

erlang

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
-module(foo).
 
-export([sub_sets/1]).
 
-import(lists, [map/2, append/2]).
 
sub_sets([]) ->
    [[]];
sub_sets([X|Xs]) ->
    F = fun(R) -> 
        lists:append(R, lists:map(fun(A) -> [X|A] end, R))
    end,
    F(sub_sets(Xs)).
%1> c(foo).
%{ok,foo}
%2> foo:sub_sets([1,2,3]).
%[[],[3],[2],[2,3],[1],[1,3],[1,2],[1,2,3]]
%3>

@Vaderkos · 15.06.2015, 14:46 **[ТС]**

cybercitizen, Я имею ввиду как сделать считывание клавиатуры и что бы можно было использовать функцию подобную к

Python
1
2
for y in range(p):
    m = f(m)

Я попробовал так, но не понимаю как делаются циклы и массивы в scheme

Lisp
1
2
3
4
5
6
7
8
9
10
#lang racket
(define (subsets set-lst)
  (if (null? set-lst)
      '(())
      ((lambda (r)
         (append r (map (lambda (a) (cons (car set-lst) a)) r)))
       (subsets (cdr set-lst)))))
(define w (read)) 
 
(display (subsets (list w)))

@cybercitizen · 15.06.2015, 18:25

Не по теме:

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

text.txt

12 3 44 5 22

scheme fom file

Lisp
1
2
3
4
5
6
7
8
9
10
(define *file* "/home/andrew/text.txt")
 
(define (get-data)
  (let ((data (with-input-from-file *file*
                (lambda () (read-string 1000))
                #:mode 'text)))
    (map string->number (string-split data))))
 
(get-data)
;'(12 3 44 5 22)

scheme from stdin

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(define (get-data)
  (let ((data (read (current-input-port))))
    (if (eq? data 'stop)
        '()
        (cons data (get-data)))))
 
(get-data)
;12
;22
;33
;44
;55
;stop
;'(12 22 33 44 55)

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

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

Я попробовал так, но не понимаю как делаются циклы и массивы в scheme

Циклов нет, массивы называются vector. Но у меня всё на списках.

@castorsky · 16.06.2015, 22:56

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

Интересно что эти функциональные алгоритмы один в один на python не переносятся

Потому что императивщина. Надо вывернуть мышление на изнанку.

Python
1
2
3
4
5
6
7
8
9
10
11
12
def cons(item, lst):
    tmp = [item]
    tmp.extend(lst)
    return tmp
 
def subsets(lst):
    if (lst == []):
        return [[]]
    else:
        r = subsets(lst[1:])
        r += map(lambda x: cons(lst[0], x), r)
        return r

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Vaderkos 84 / 83 / 8 Регистрация: 31.03.2015 Сообщений: 447
	13.06.2015, 21:47 [ТС]
	Я обьясняюсь основываясь на понятиях из дискретной математики 0

@Vaderkos 84 / 83 / 8 Регистрация: 31.03.2015 Сообщений: 447
	13.06.2015, 21:48 [ТС]
	Да, извиняюсь, так как учусь на польском то называю множеством. Немного не понял сначала что не понятно вам 0

@Vaderkos 84 / 83 / 8 Регистрация: 31.03.2015 Сообщений: 447
	13.06.2015, 22:26 [ТС]
	cybercitizen, rattrapper, у нас так P(A) 0

@cybercitizen
	13.06.2015, 23:08
	Не по теме: Где-то у меня на erlang, sheme и haskell были такие решения. Не мог же я их удалить. О_о 0

@Vaderkos 84 / 83 / 8 Регистрация: 31.03.2015 Сообщений: 447
	13.06.2015, 23:13 [ТС]
	cybercitizen, Я бы был очень благодарен если вы их найдете 0

@Vaderkos 84 / 83 / 8 Регистрация: 31.03.2015 Сообщений: 447
	14.06.2015, 16:04 [ТС]
	cybercitizen, Спаибо огромное, а вы не могли бы мне обьяснить, что выполнят каждый код, так как я не знаком с этими языками, и не все понимаю. Добавлено через 16 минут Или посоветовать какие то уроки или материалы с помощью которых я пойму. 0

Можно сделать данный код еще меньше?

Решение