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

@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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@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

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

Решение