Форум на Исходниках.RU

Простая задача

Mr.Delphist — Sun, 03 May 2015 17:33:10 +0000

Mr.Delphist:

Цитата D_KEY @ 03.05.15, 00:53

fatal error: stdafx.h: No such file or directory

Ну, это дефолтная строчка от Студии, ожидается для precompiled headers - можно снести смело

Цитата D_KEY @ 03.05.15, 00:53

error: '_TCHAR' has not been declared

Цитата D_KEY @ 03.05.15, 00:53

undefined reference to `main'

А эта парочка - из студийного же шаблона в ожидании простой/юникодной командной строки. Меняем

int _tmain(int argc, _TCHAR* argv[])

на каноничный

int main()

Должно заработать. Сорри, особо не заморачивался с кросс-компиляторностью ввиду позднего времени поста.

Простая задача

JoeUser — Sun, 03 May 2015 04:48:06 +0000

JoeUser: Ну и мой вариант на Цэ++, не оригинально ... но как-то так :-?

#include <iostream>

#include <sstream>

#include <deque>

using namespace std;

int main() {

string s;

deque<string> deq;

for(stringstream ss("мама мыла раму"); ss>>ws>>s; deq.push_front(s));

for(auto i:deq) cout << i << " ";

}

Простая задача

D_KEY — Sun, 03 May 2015 00:53:16 +0000

D_KEY: Mr.Delphist

Цитата

fatal error: stdafx.h: No such file or directory

Цитата

error: '_TCHAR' has not been declared

Цитата

undefined reference to `main'

Простая задача

Mr.Delphist — Sat, 02 May 2015 21:37:25 +0000

Mr.Delphist: Ну, как-то так:

#include "stdafx.h"

#include <stdio.h>

#include <iostream>

#include <vector>

#include <algorithm>

typedef std::vector<int> Digits;

Digits split_to_digits(int input)

{

std::vector<int> digits;

while (0 < input)

{

int next = input / 10;

digits.push_back(input - next*10);

input = next;

}

return digits;

}

int calc_closest_quasibin(int input)

{

int result = 0;

Digits digits = split_to_digits(input);

for(Digits::reverse_iterator it = digits.rbegin(); it != digits.rend(); ++it)

{

int D = *it;

result *= 10;

if (0 < D)

++result;

}

return result;

}

void print_int(int sum)

{

std::cout << sum << " ";

}

int _tmain(int argc, _TCHAR* argv[])

{

int X;

std::cin >> X;

std::vector<int> summands;

int B;

{

B = calc_closest_quasibin(X);

X -= B;

summands.push_back(B);

} while (0 < X);

std::cout << summands.size() << std::endl;

std::for_each(summands.begin(), summands.end(), print_int);

return 0;

}

Простая задача

Qraizer — Sat, 02 May 2015 21:34:47 +0000

Qraizer:

Цитата applegame @ 02.05.15, 17:31

Не компиляеццо, и я туплю не могу понять почему. Забыл уже плюсы.

А я и не компилял. :wub: Первый параметр нужно в скобочки взять.

std::vector<std::string> buf((std::istream_iterator<std::string>(str)), std::istream_iterator<std::string>());

Простая задача

D_KEY — Sat, 02 May 2015 20:05:46 +0000

D_KEY:

Цитата applegame @ 02.05.15, 19:52

Цитата D_KEY @ 02.05.15, 17:52

Ты про какой из вариантов?

Про Qraizer'овский.

Да, вроде там просто так сепаратор не задашь в таком варианте. Но можно через std::getline сделать, например.

Простая задача

applegame — Sat, 02 May 2015 19:52:12 +0000

applegame:

Цитата D_KEY @ 02.05.15, 17:52

Ты про какой из вариантов?

Про Qraizer'овский.

Простая задача

D_KEY — Sat, 02 May 2015 17:52:13 +0000

D_KEY:

Цитата applegame @ 02.05.15, 17:47

Частное решение на самом деле. Заменяем пробелы например на точку с запятой - "мама;мыла;раму" и капец, так просто уже не получится. Или там где-то можно указать разделитель?

Ты про какой из вариантов?

Простая задача

applegame — Sat, 02 May 2015 17:47:18 +0000

applegame: Частное решение на самом деле. Заменяем пробелы например на точку с запятой - "мама;мыла;раму" и капец, так просто уже не получится. Или там где-то можно указать разделитель?

Добавлено 02.05.15, 17:48

Цитата D_KEY @ 02.05.15, 17:38

Заодно сишный вариант(надо же, сразу заработало, подозрительно)

:D если программа заработала с первого раза - жди подвоха :lol:

Простая задача

D_KEY — Sat, 02 May 2015 17:38:19 +0000

D_KEY:

Цитата applegame @ 02.05.15, 17:31

Поправьте кто-нибудь - http://ideone.com/ljftIF

Классическая ошибка
http://ideone.com/y8CGcR

Добавлено 02.05.15, 17:40
Кстати, это тоже не в пользу плюсов говорит.

Добавлено 02.05.15, 17:42
И лучше так поправить, да
http://ideone.com/99nicx

Добавлено 02.05.15, 17:44
Заодно сишный вариант(надо же, сразу заработало, подозрительно)
http://ideone.com/3K1ST6

Простая задача

applegame — Sat, 02 May 2015 17:37:08 +0000

applegame:

Цитата D_KEY @ 02.05.15, 17:36

Наверное. Но я про Си говорил, т.е. что-нить в духе:

Ну на таком низком уровне сяшка, полагаю, побьет по скорости всех.

Простая задача

D_KEY — Sat, 02 May 2015 17:36:23 +0000

D_KEY:

Цитата applegame @ 02.05.15, 17:31

Цитата D_KEY @ 02.05.15, 17:23

Можем еще скорости посравнивать и посмотреть, победит ли C и насколько.

Ну с регекспами ты точно далеко не уйдешь :)

Наверное. Но я про Си говорил, т.е. что-нить в духе:

char str[] = "мама мыла раму";

char *p = str;

while (*p) {

if (*p == ' ')

*p = '{text}';

++p;

}

--p;

while (p != str) {

if (*p == '{text}')

printf("%s ", (p + 1));

--p;

}

printf("%s\n", p);

Я не проверял, мог ошибиться :)

Простая задача

applegame — Sat, 02 May 2015 17:31:20 +0000

applegame:

Цитата D_KEY @ 02.05.15, 17:23

Можем еще скорости посравнивать и посмотреть, победит ли C и насколько.

Ну с регекспами ты точно далеко не уйдешь :)

Добавлено 02.05.15, 17:33

Цитата Qraizer @ 02.05.15, 17:18

std::istringstream str("мама мыла раму");

std::vector<std::string> buf(std::istream_iterator<std::string>(str), std::istream_iterator<std::string>());

for (auto i = buf.rbegin(); i != buf.rend(); ++i)

std::cout << *i << ' ';

Не компиляеццо, и я туплю не могу понять почему. Забыл уже плюсы. Поправьте кто-нибудь - http://ideone.com/ljftIF

Простая задача

D_KEY — Sat, 02 May 2015 17:23:35 +0000

D_KEY: Вообще вы сравниваете скорее стандартные библиотеки(или встроенные в язык сложные типы), чем сами языки. На бусте примерно так же все выглядит.
Можем еще скорости посравнивать и посмотреть, победит ли C и насколько.

Простая задача

applegame — Sat, 02 May 2015 17:20:32 +0000

applegame:

Цитата Qraizer @ 02.05.15, 17:18

Не, korvin, это как всегда захотелось выпендриться. Нормально если

std::istringstream str("мама мыла раму");

std::vector<std::string> buf(std::istream_iterator<std::string>(str), std::istream_iterator<std::string>());

for (auto i = buf.rbegin(); i != buf.rend(); ++i)

std::cout << *i << ' ';

Да все равно же вырвиглазно. Самое красявое плюсовое решение привел, ИМХО, D_KEY на бусте.

Простая задача

Qraizer — Sat, 02 May 2015 17:18:59 +0000

Qraizer: Не, korvin, это как всегда захотелось выпендриться. Нормально если

std::istringstream str("мама мыла раму");

std::vector<std::string> buf(std::istream_iterator<std::string>(str), std::istream_iterator<std::string>());

for (auto i = buf.rbegin(); i != buf.rend(); ++i)

std::cout << *i << ' ';

К тому же это почти C++98, только auto заменить на какой-нибудь std::vector::const_reverse_iterator

Простая задача

applegame — Sat, 02 May 2015 17:18:04 +0000

applegame:

Цитата korvin @ 02.05.15, 17:04

И не говори, во всех адекватных языках выглядит примерно одинаково приемлемо, а плюсы как всегда…

Да ты просто не осилил плюсы! :sarcasm:

Ана жабе кто-нибудь пример приведет? Там по-моему будет еще страшнее, чем в плюсах, или я не прав?

Простая задача

korvin — Sat, 02 May 2015 17:04:53 +0000

korvin:

Цитата applegame @ 02.05.15, 15:45

Блин, задача проста аки пять копеек, а кракозябров - в лучших традициях буста.

И не говори, во всех адекватных языках выглядит примерно одинаково приемлемо, а плюсы как всегда…

main = putStrLn $ unwords $ reverse $ words "мама мыла раму"

Простая задача

D_KEY — Sat, 02 May 2015 17:02:48 +0000

D_KEY: Да я в качестве защиты буста код привел :)

Простая задача

Qraizer — Sat, 02 May 2015 16:25:41 +0000

Qraizer: На бусте неитересно. Эдак я и spirit подключу.

Простая задача

D_KEY — Sat, 02 May 2015 16:00:14 +0000

D_KEY:

Цитата applegame @ 02.05.15, 15:45

Блин, задача проста аки пять копеек, а кракозябров - в лучших традициях буста.

Не, на бусте будет как-то так(примерно)

boost::copy("мама мыла раму" | boost::adaptors::tokenized(boost::regex("\w+")) | boost::adaptors::reversed, std::ostream_itertor<std::string>(std::cout, " "));

Простая задача

applegame — Sat, 02 May 2015 15:45:11 +0000

applegame: Блин, задача проста аки пять копеек, а кракозябров - в лучших традициях буста.

Простая задача

Qraizer — Sat, 02 May 2015 14:05:43 +0000

Qraizer: Если так уж сильно хочется в одну строку...

for (auto s : [](std::deque<std::string>&& d) { std::copy(std::istream_iterator<std::string>(std::istringstream("мама мыла раму") >> std::hex), std::istream_iterator<std::string>(), std::front_inserter(d)); return d; }(std::deque<std::string>())) std::cout << s << ' ';

Мрак.

Добавлено 02.05.15, 14:09
То же самое, только не в одну строку.

for (auto s : [](std::deque<std::string>&& d)

{

std::copy(std::istream_iterator<std::string>(std::istringstream("мама мыла раму") >> std::hex), // ввод фиктивный, чтобы кастануть r-value в l-value ссылку

std::istream_iterator<std::string>(),

std::front_inserter(d)

);

return d;

}(std::deque<std::string>())

)

std::cout << s << ' ';

Простая задача

DarkEld3r — Sat, 02 May 2015 12:19:53 +0000

DarkEld3r:

Цитата applegame @ 02.05.15, 06:08

Ну вот как-то многословно, по сравнению с тем же D, перлом или питоном. А если сделают connect для итераторов (или таки пары итераторов, ака range?), то вот этого collect() в вектор не будет?

Да, collect пропадёт - он ещё многословно выглядит из-за необходимости указывать в какой контейнер собираем. Ну а без него будет практически как в D.
Ну и нашёл уже стороннюю библиотеку с реализацией connect для итераторов, но решил, что "нечестно" использовать.

В расте итераторы не плюсовые, то есть это не начало/конец, а начало + размер. Наверное, больше на range из D похожи.

Если не в этом примере, а вообще, то немало многословности добавляют все эти unwrap. В такие моменты исключений особенно не хватает - даже если есть очень маленький шанс, что "что-то пойдёт не так" - в апи появляются Option/Result, чтобы дать обработать ошибку. Но имхо, это не всегда так страшно.

Простая задача

applegame — Sat, 02 May 2015 06:08:11 +0000

applegame:

Цитата DarkEld3r @ 01.05.15, 09:20

В условии требовалось получить "раму мыла мама", а не "умар алым амам". :D

Косяк, да. :)
Вот исправлено:
http://dpaste.dzfl.pl/637bd988dc88

import std.stdio;

import std.string;

void main() {

"мама мыла раму".split(" ").reverse.join(" ").writeln;

}

Добавлено 02.05.15, 06:10

Цитата DarkEld3r @ 01.05.15, 09:20

Немного коряво, знаю. Эффективнее было бы через fold, а не collect + connect, но так ещё многословнее. Вроде, connect для итераторов хотят сделать.

Простая задача

DarkEld3r — Fri, 01 May 2015 09:20:49 +0000

DarkEld3r:

Цитата D_KEY @ 01.05.15, 06:50

Меня, например, отсутствие исключений напрягает больше.

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

Цитата applegame @ 30.04.15, 20:35

"мама мыла раму".dup.reverse.writeln;

В условии требовалось получить "раму мыла мама", а не "умар алым амам". :D

Вариант на расте:

println!("{}", "мама мыла раму".split_whitespace().rev().collect::<Vec<_>>().connect(" "));

Немного коряво, знаю. Эффективнее было бы через fold, а не collect + connect, но так ещё многословнее. Вроде, connect для итераторов хотят сделать.

Ну и оригинальная задача на расте:

use std::io::BufRead;

fn main() {

let stdin = std::io::stdin();

let str: String = stdin.lock().lines().next().unwrap().ok().unwrap().to_string();

println!("{}", str.chars().max().unwrap().to_string().parse::<i32>().unwrap());

let mut num: i32 = str.parse().unwrap();

let summand: i32 = str.chars().map(|c| if c == '0' { '0' } else { '1' }).collect::<String>().parse().unwrap();

while num > summand {

print!("{} ", summand);

num -= summand;

}

while num > 0

{

print!("1 ");

num -= 1;

}

Простая задача

applegame — Fri, 01 May 2015 06:53:39 +0000

applegame:

Цитата D_KEY @ 01.05.15, 06:50

Хорошо, скажем иначе. Он все никак не может родиться. Уже 14 лет как.

Не знаю, что по твоему пониманию - родиться. По мне так оно уже взрослое.

Простая задача

D_KEY — Fri, 01 May 2015 06:50:09 +0000

D_KEY:

Цитата applegame @ 01.05.15, 06:32

Нет, о D можно многое сказать, но только не то что он умирает. Скорее наоборот.

Хорошо, скажем иначе. Он все никак не может родиться. Уже 14 лет как.

Добавлено 01.05.15, 06:52

Цитата applegame @ 01.05.15, 06:42

Цитата D_KEY @ 01.05.15, 06:31

А Rust видел? :D

Видел, интересно, но отсутствие серьезного метапрограммирования отбивает охоту.

У них там полноценные макросы вообще-то. Чего тебе еще нужно? Меня, например, отсутствие исключений напрягает больше.

Простая задача

JoeUser — Fri, 01 May 2015 06:47:12 +0000

JoeUser:

Цитата D_KEY @ 01.05.15, 06:31

А Rust видел?

Кстати, как там с поддержкой Android & iOS, ну и процов отличных от ia32?

Простая задача

applegame — Fri, 01 May 2015 06:42:31 +0000

applegame:

Цитата D_KEY @ 01.05.15, 06:31

А Rust видел? :D

Видел, интересно, но отсутствие серьезного метапрограммирования отбивает охоту.

Простая задача

JoeUser — Fri, 01 May 2015 06:40:59 +0000

JoeUser:

Цитата D_KEY @ 01.05.15, 06:31

А Rust видел?

Слышал, но не читал. Гляну на досуге.

Простая задача

applegame — Fri, 01 May 2015 06:32:33 +0000

applegame:

Цитата JoeUser @ 01.05.15, 06:14

нароешь чего путного по "GUI + D" - маякни плс.

Маякнул, для гуи DlangUI работает. И демка с тетрисом заработала и DlangIDE написанная тем же автором на тойже либе тоже заработала. Этого недостаточно?

Добавлено 01.05.15, 06:40

Цитата D_KEY @ 01.05.15, 06:31

Есть мысль, что он уже умирает.

Заблуждаешься. Посмотри на активность коммьюнити, разработчиков библиотек, развития альтернативных компиляторов - LDC, GDC и SDC.
Нет, о D можно многое сказать, но только не то что он умирает. Скорее наоборот.

Простая задача

D_KEY — Fri, 01 May 2015 06:31:07 +0000

D_KEY:

Цитата JoeUser @ 01.05.15, 06:14

Вобщем, я в теме :P, нароешь чего путного по "GUI + D" - маякни плс. Очень понравился язык! Почитал доки бегло - то, что доктор прописал! :lol:

Есть мысль, что он уже умирает.

А Rust видел? :D

Простая задача

JoeUser — Fri, 01 May 2015 06:14:19 +0000

JoeUser: Вобщем, я в теме :P, нароешь чего путного по "GUI + D" - маякни плс. Очень понравился язык! Почитал доки бегло - то, что доктор прописал! :lol:

Простая задача

applegame — Fri, 01 May 2015 06:07:23 +0000

applegame:

Цитата JoeUser @ 01.05.15, 04:05

Возможно. Тогда еще вопросик. Какие либы используешь для GUI? Нашел подборочку, интересуют естественно нативные и работающие.

Добавлено Сегодня, 07:28
Что скажешь по поводу dlangui?

Я не использую либы для GUI. Я в основном пишу серверы/клиенты (в основном web/rest-серверы и клиенты) и скрипты (вместо bash-скриптов). Но я пробовал пару недель назад любопытства ради DlanGUI и оно завелось под Win7 из коробки (использовал dub для сборки). Остальные я не пробовал. Но судя по датам обновлений большинство еще не заброшены.

Простая задача

JoeUser — Fri, 01 May 2015 05:14:44 +0000

JoeUser:

Цитата applegame @ 30.04.15, 20:35

Так пойдет? Опять на D.

Добавлю немножко Перла :lool:

map {print "$_ "} reverse split " ", "мама мыла раму";

Добавлено 01.05.15, 05:31
или вот так:

print join " ", reverse split " ", "мама мыла раму";

Простая задача

JoeUser — Fri, 01 May 2015 04:05:03 +0000

JoeUser:

Цитата applegame @ 30.04.15, 20:35

Твои данные устарели. Под линупсом я давно и успешно кодю под x64

Возможно. Тогда еще вопросик. Какие либы используешь для GUI? Нашел подборочку, интересуют естественно нативные и работающие.

Добавлено 01.05.15, 04:28
Что скажешь по поводу dlangui?

Простая задача

amk — Thu, 30 Apr 2015 21:52:36 +0000

amk: На питоне

print("мама мыла раму"[::-1])

компактнее

Простая задача

KILLER — Thu, 30 Apr 2015 21:17:25 +0000

KILLER:

Цитата applegame @ 30.04.15, 20:35

Так пойдет? Опять на D.

Читер :ph34r:

Простая задача

applegame — Thu, 30 Apr 2015 20:35:38 +0000

applegame:

Цитата korvin @ 30.04.15, 12:50

Цитата applegame @ 29.04.15, 16:22

короткое и красивое решение на D

Я такого не писал. :angry:

Добавлено 30.04.15, 20:41

Цитата JoeUser @ 30.04.15, 13:21

По поводу языка D - прямо щяз бы убежал и предал бы всех вас :lol: - одна засада, кроме как x32 - "D" ни где толком не работает. Не говоря уж о ARM. Он и интеловскую x64 тенет с багами.

Твои данные устарели. Под линупсом я давно и успешно кодю под x64. Под виндой с линкером MSVC тоже отлично компиляет под x64. C ARM не так хорошо, но таки работает http://wiki.dlang.org/LDC#ARM.

Добавлено 30.04.15, 20:51

Цитата KILLER @ 30.04.15, 19:49

Просто вся фишка в том, чтобы прийти к наименьшему количеству буков в решении этой задачи. То что ты написал в одну строку - несколько строк, потому что так разрешает компилятор - никуда не годится.

Так пойдет? Опять на D.

import std.stdio;

void main() {

"мама мыла раму".dup.reverse.writeln;

}

Простая задача

KILLER — Thu, 30 Apr 2015 19:49:10 +0000

KILLER:

Цитата Славян @ 30.04.15, 19:30

:blush: Не обижайтесь, KILLER, но я всё же пасану. Задачка скучная, а потому вся прелесть и могла бы быть коли в одну строку написать. А наводить марафет - выход за эту глупую 1-строчную белиберду - неинтересно. Да вы и сами можете нужных TAB'ов да ENTER'ов с пробелами куда хочется натыкать. :rolleyes:

Цитата Славян @ 30.04.15, 19:30

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

Так если бы в одну строку было бы написано, никаких притензий и не было бы. А у Вас написано не в одну строку, а в псевдо-одну строку, которая одной строкой никак не может быть. Вы написали все в одну строку потому, что компилятор - дает вам такую возможность, не более.

Добавлено 30.04.15, 20:04
Хотя с другой стороны, зачем кого то уламывать? Пусть все так и остается. Темболее у меня нет времени кого то уламывать или с кем то спорить. Как хотите так и оформляйте хоть в бинарном коде, хоть в брейнфаке...

Простая задача

Славян — Thu, 30 Apr 2015 19:30:17 +0000

Славян:

Цитата KILLER @ 30.04.15, 19:22

Поэтому оформи все нормально плз.

:blush: Не обижайтесь, KILLER, но я всё же пасану. Задачка скучная, а потому вся прелесть и могла бы быть коли в одну строку написать. А наводить марафет - выход за эту глупую 1-строчную белиберду - неинтересно. Да вы и сами можете нужных TAB'ов да ENTER'ов с пробелами куда хочется натыкать. :rolleyes:

Простая задача

KILLER — Thu, 30 Apr 2015 19:22:16 +0000

KILLER:

Цитата Славян @ 30.04.15, 19:18

Не,лучше сдаться.Считайте,что я слил,если хочется. ;)

Почему? Твое решение по сути правильное, но так как ты его оформил - никуда не годится. Выводы на экран или объявления переменных - к алгоритму не имеют никакого отношения. Поэтому оформи все нормально плз.

Простая задача

Славян — Thu, 30 Apr 2015 19:18:56 +0000

Славян:

Цитата KILLER @ 30.04.15, 19:14

Оформи пожалуйста нормально.

Не,лучше сдаться.Считайте,что я слил,если хочется. ;)

Простая задача

KILLER — Thu, 30 Apr 2015 19:14:44 +0000

KILLER: Это не в одну. Ты и программы так пишешь? Оформи пожалуйста нормально. Я ничего не понял. ';' - означает конец строки, условие - означает - конец строки, цикл - означает конец строки. Не мне тебя учить, надеюсь. Оформи нормально. Цель не написать все в одну строчку, цель - добиться минимального количества кода.

Простая задача

Славян — Thu, 30 Apr 2015 19:06:03 +0000

Славян:

Цитата KILLER @ 30.04.15, 18:30

во сколько минимум строчек кода можно оформить эту задачу стандартными средствами языка(С/С++) безо всяких STL контейнеров и Сишных функций типа strtok, strstr, strcmp, strlen ит.п.

:) Очевидно, в одну. Как-то так:

char s[]="маман мыла краму"; // интереса и дебага ради

for(int t=-1,l=0;t>-2;l++)if(s[l]==' '&&t<0)t=l;else if(!s[l]){for(--t,--l;t>=0;t--,l--)s[l]^=s[t],s[t]^=s[l],s[l]^=s[t];t--;}

Простая задача

KILLER — Thu, 30 Apr 2015 18:30:32 +0000

KILLER:

Цитата OpenGL @ 29.04.15, 16:46

Моё на плюсах. Думаю, при наличии чего-либо а-ля linq можно короче :)

Интересный подход. Но, если ввести например число 100, то на экран выдаст 100. Хотя на сколько я понял из задания нужна именно сумма чисел.
А как на счет еще проще задачи? Мне задача из первого поста, навеяла другую, более простую:
Есть строка:
"мама мыла раму"
Необходимо перевернуть задом на перед, чтобы получилось:
"раму мыла мама"

Если использовать вектора и какие нибудь потоки, то задача решается в 4-5 строчек(возможно кто то придумает и того меньше). Это не интересно. Интересно другое, во сколько минимум строчек кода можно оформить эту задачу стандартными средствами языка(С/С++) безо всяких STL контейнеров и Сишных функций типа strtok, strstr, strcmp, strlen ит.п.

Простая задача

JoeUser — Thu, 30 Apr 2015 13:21:35 +0000

JoeUser: Сиравно - комменты рулят! >:(

Добавлено 30.04.15, 13:26

Скрытый текст

Простая задача

korvin — Thu, 30 Apr 2015 13:06:03 +0000

korvin:

Цитата JoeUser @ 30.04.15, 12:54

Приводить код на неведомом ЯП без комментов - моветон! Ящетаю.

Скрытый текст

Для applegame'а, на чей пост я отвечал, как и для большинства здесь отписавшихся, он вполне ведом, насколько я знаю. =)

Простая задача

JoeUser — Thu, 30 Apr 2015 12:54:35 +0000

JoeUser: Приводить код на неведомом ЯП без комментов - моветон! Ящетаю.

Простая задача

korvin — Thu, 30 Apr 2015 12:50:43 +0000

korvin:

Цитата applegame @ 29.04.15, 16:22

короткое и красивое решение на D

Пфф… =)

import Data.Char

toBinList [] = []

toBinList s = let (hd, tl) = part s in hd : toBinList (dropWhile (== '0') tl)

part = unzip . map choose

choose '0' = ('0','0')

choose c = ('1', chr $ ord c - 1)

main = do

s <- getLine

let l = toBinList s

print $ length l

putStrLn $ unwords l

Простая задача

JoeUser — Thu, 30 Apr 2015 11:57:22 +0000

JoeUser:

Скрытый текст

Цитата Qraizer @ 30.04.15, 11:42

JoeUser, ты ж понимаешь, что кто-нибудь да запустит. Заикаешь если вдруг, будешь знать, из-за чего.

Ну я ж спецом предупредил, вменяемым людям, ИМХО, этого достаточно.

Простая задача

Qraizer — Thu, 30 Apr 2015 11:42:11 +0000

Qraizer: JoeUser, ты ж понимаешь, что кто-нибудь да запустит. Заикаешь если вдруг, будешь знать, из-за чего.

Простая задача

JoeUser — Thu, 30 Apr 2015 09:57:28 +0000

JoeUser: Ну ... я хрен его знает чего сказать :-? По мне второй вариант - конфетка в плане "понятности".
Щя сек ... поищу на форуме давнишнюю свою тему по поводу Перла ...

Добавлено 30.04.15, 10:00
Вот, прочитай тему. Вот тут эталонный туман.

Добавлено 30.04.15, 10:02
Я об этом. Под рутом не запускать!!!!

$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see

Простая задача

D_KEY — Thu, 30 Apr 2015 09:54:49 +0000

D_KEY: Ну я особой разницы между

$_ = <>;

$w = $_,

y/1-9/0-8/,

push @a, $w - $_

while - $_;

print 0 + @a, "$/@a"

$_ = <>;

while (-$_) {

$w = $_;

y/1-9/0-8/;

push @a, $w - $_;

}

print 0 + @a, "$/@a"

Не вижу. В плане понятности.

А вот за разъяснения и комментарии спасибо :)

Простая задача

JoeUser — Thu, 30 Apr 2015 09:51:31 +0000

JoeUser: А что не так? :-?

Простая задача

D_KEY — Thu, 30 Apr 2015 09:49:43 +0000

D_KEY:

Цитата JoeUser @ 30.04.15, 09:48

Привожу более удобоваримый вариант на Перле

:lool:

Простая задача

JoeUser — Thu, 30 Apr 2015 09:48:26 +0000

JoeUser:

Цитата applegame @ 29.04.15, 16:30

Вот тут нашел вырвиглазное перловое решение. Ничего не понимаю

Автор Перловского исходника - обычный понторез. Дело в том, что Perl - язык достаточно свободного синтаксиса, чем и воспользовался автор, дабы затуманить мозги Цэ++ тру-кодерам :lol: Привожу более удобоваримый вариант на Перле:

$_ = <>; # читаем из STDIN строку в "базовый" скаляр, более наглядно: $_ = <STDIN> ;

while (-$_) { # проверяем "минус базовый скаляр" не равер нулю

$w = $_; # в переменную $w копируем значение базового скаляра

y/1-9/0-8/; # в базовом скаляре транслируем цифры по правилу 9->8, 8->7 ... 1->0

push @a, $w - $_; # в массив @a заносим значение ($w -$_)

}

print 0 + @a, "$/@a" # распечатываем длину массива и его содержимое

Небольшие разъяснения:

1) был использован "постфиксный" вариант while
вместо "while($A==1) { $B=2 }" использовали аналог "$B=2 while $A==1", при этом опустив скобки в проверяемом выражении
2) вместо группировки наборов операторов в блок "{...}" - применили "операцию запятая"
3) использовав "стандартный скаляр" - избавились в строчке трансляции "y/1-9/0-8/" указания что именно транслируем

Вот и вся кухня. Алгоритм виден по комментариям. Обожаю Перл, но осуждаю понторезов :lol:

Простая задача

amk — Wed, 29 Apr 2015 17:50:10 +0000

amk: Собственно идея простая, и думается везде вше именно она и реализована
Пара утверждений:
1. Любую десятичную цифру можно получить, просуммировав не более 9 раз в соответствующем разряде цифру "1". Суммирование "0" не оказывает влияния на результат.
2. Хотя цифру можно получить суммируя "1" в младшем разряде, это приводит к увеличению числа слагаемых сверх 9.

Поэтому получаем алгоритм

выписываем десятичную запись числа
заменяем все цифры не являющиеся нулями на "1"
выводим получившийся результат, как очередное слагаемое
вычитаем значение слагаемого из числа
если результат не ноль возвращаемся к началу алгоритма

в результате получаем не более 9 слагаемых
о первой цифре заботиться не надо, в десятичной записи она всегда ненулевая, кроме случая, когда число равно нулю

Простая задача

applegame — Wed, 29 Apr 2015 17:12:38 +0000

applegame: Вот аналог моего дешного решения на плюсах:

#include <iostream>

#include <algorithm>

#include <string>

using namespace std;

int main() {

string str;

cin >> str;

char n = *std::max_element(str.begin(), str.end());

cout << n << endl;

for(char i = '0'; i < n ; ++i) {

auto zero = "";

for(int j = 0; j < str.length(); ++j) {

if(str[j] > i) {

cout << "1";

zero = "0";

} else {

cout << zero;

}

cout << " ";

}

Добавлено 29.04.15, 17:20
Еще слегка упростил:

#include <iostream>

#include <algorithm>

#include <string>

using namespace std;

int main() {

string str;

cin >> str;

char n = *std::max_element(str.begin(), str.end());

cout << n << endl;

for(char i = '0'; i < n ; ++i) {

auto d = "";

for(int j = 0; j < str.length(); ++j)

cout << (d = str[j] > i ? d = "1" : d[0] == 0 ? "" : "0");

cout << " ";

}

Простая задача

OpenGL — Wed, 29 Apr 2015 16:46:16 +0000

OpenGL: Моё на плюсах. Думаю, при наличии чего-либо а-ля linq можно короче :)

#include <iostream>

#include <algorithm>

#include <string>

using namespace std;

int main()

{

std::string str;

cin >> str;

cout << *std::max_element(str.begin(), str.end()) - '0' << std::endl;

while(!str.empty())

{

int i = 0;

while(i < str.size() && str[i] == '0') ++i;

int j = i;

while(j < str.size())

{

if(str[j] == '0') cout << '0';

else

{

cout << '1';

--str[j];

}

++j;

}

cout << " ";

str = str.substr(i);

}

Простая задача

applegame — Wed, 29 Apr 2015 16:30:43 +0000

applegame:

Цитата OpenGL @ 29.04.15, 16:29

Тоже участвуешь в соревнованиях там? :)

Это моя первая задача там :)

Добавлено 29.04.15, 16:36
Вот тут нашел вырвиглазное перловое решение. Ничего не понимаю :)

$_ = <>;

$w = $_,

y/1-9/0-8/,

push @a, $w - $_

while - $_;

print 0 + @a, "$/@a"

Простая задача

applegame — Wed, 29 Apr 2015 16:22:15 +0000

applegame: Архипростая задача - http://codeforces.ru/contest/538/problem/B
но короткое и красивое решение требует сил.

Мое решение, правда на D:

Скрытый текст

import std.stdio;

import std.range;

import std.string;

import std.algorithm;

void main() {

string s = readln.chomp;

int n = s.reduce!max - '0';

n.writeln;

n.iota.map!(i => s.map!(c => c > i + '0' ? "1" : "0").join.find!(c => c != '0')).join(" ").writeln;

}