Diskuze: Machr na algoritmy - římská čísla
#include "stdafx.h"
#include <iostream>
#include <unordered_map>
#include <string>
using namespace std;
int _tmain(int argc, _TCHAR* argv[])
{
unordered_map<string, int> n = {
{ "I", 1 },
{ "IV", 4 },
{ "V", 5 },
{ "IX", 9 },
{ "X", 10 },
{ "L", 50 },
{ "C", 100 },
{ "D", 500 },
{ "M", 1000 },
};
int number;
while (cin >> number)
{
for (auto i = n.rbegin(); i != n.rend(); ++i)
{
while (number - i->second >= 0)
{
number -= i->second;
cout << i->first;
}
}
cout << endl;
}
return 0;
}Pro inspiraci 
Řešení v Prologu (GNU Prolog), základem je predikát conversion/2 se
vstupně/výstupními parametry.
Dál už je kód samopopisný
% knowledge base for romans characters
romans('M', 1000). romans('CM', 900). romans('D', 500). romans('CD', 400).
romans('C', 100). romans('XC', 90). romans('L', 50). romans('XL', 40).
romans('X', 10). romans('IX', 9). romans('V', 5). romans('IV', 4). romans('I', 1).
% numeral/2, numeral(?Roman, +Arabic)
numeral('', 0).
numeral(Roman, Arabic) :- romans(Rh, Ah), Ah =< Arabic, !,
Am is Arabic - Ah, numeral(Rt, Am), atom_concat(Rh, Rt, Roman).
% numeral/3, numeral(?Roman, -Arabic, +Acc)
numeral('', 0, 0).
numeral(Roman, Arabic, Arabic) :- numeral(Roman, Arabic), !.
numeral(Roman, Arabic, Acc) :- An is Acc - 1, numeral(Roman, Arabic, An).
% conversion/2, conversion(?Roman. ?Arabic)
conversion('', 0).
conversion(Roman, Arabic) :- integer(Arabic), !, numeral(R, Arabic), R = Roman.
conversion(Roman, Arabic) :- numeral(Roman, Arabic, 4999).Test cases:
:- initialization(main).
main :- conversion(R, 19), write(R), nl, fail.
main :- conversion('XIX', A), write(A), nl, fail.
main :- conversion(R, 99), write(R), nl, fail.
main :- conversion('XCIX', A), write(A), nl, fail.
main :- conversion(R, 1957), write(R), nl, fail.
main :- conversion('MCMLVII', A), write(A), nl, fail.
main :- conversion('XIX', 19), write(ok), nl, fail.
main :- conversion('XCIX', 99), write(ok), nl, fail.
main :- conversion('MCMLVII', 1957), write(ok), nl, fail.
main.
Zde zasílám řešení http://leteckaposta.cz/801187890 Pokud to nebude fachšit na
windows, tak napiš a já se to pokusim napravit . V zipu je i video z iPhone
simulatoru.
Tak přidávám též svoje řešení. Napsal jsem ho v PHP a umí pouze
převádět z arabských čísel na římská čísla. Snad se bude líbit.
On-line: http://application.wz.cz/machr/
Ke stažení: http://leteckaposta.cz/356433278
Jan Lupčík:31.10.2014 15:53
Omlouvám se, ale až teď odpoledne jsem si uvědomil, že existuje i více
římských čísel, než jsem měl v původním programu. Proto dávám na
nový program nový odkaz. Snad to nebude vadit. 
Ke stažení: http://leteckaposta.cz/853804761
Jelikož mi nejde stránka letecká pošta a nevím proč, tak tady vložím
přímo kód. Snad vám to nebude moc vadit
|
public class PrevodNaArabske {
public static void main(String[] args) {
String rimske = "MCCXXXIV";
int aktualni = 0, minulaCislice = 0, arabske = 0;
//číslice(znaky) čte od konce (zprava) a zjišťuje zda byla předchozí číslice menší nebo větší a podle toho počítá
for(int i = rimske.length()-1; i >= 0; i--){
//inicializace aktuálního čísla
switch(rimske.charAt(i)) {
case 'I': aktualni = 1; break;
case 'V': aktualni = 5; break;
case 'X': aktualni = 10; break;
case 'L': aktualni = 50; break;
case 'C': aktualni = 100; break;
case 'D': aktualni = 500; break;
case 'M': aktualni = 1000; break;
}
//pokud je minulaCislice větší než aktuální, tak se od arabskeho odečte aktuální, a pokud je menší nebo rovna, tak se přičte
if(minulaCislice > aktualni) {
arabske -= aktualni;
} else {
arabske += aktualni;
}
//inicializace minuleCislice
minulaCislice = aktualni;
}
//výpis arabského čísla
System.out.println(arabske);
}
}
Hartrik:1.11.2014 20:35
Tak tedy ještě vysvětlení mého kódu...
V Javě bohužel nemůžeme moc elegantně inicializovat mapy nebo 2D pole s
více typy a itaraci dvou polí jsem se chtěl vyhnout (ošklivý for i cyklus),
proto jsem jako formát dat jsem zvolil enum. Kromě základních římských
číslic jsem deklaroval i čísla složená, typu: IV, IX,... řešení těchto
speciálních případů by jen zesložitilo kód.
Konstanty jsou úmyslně seřazeny sestupně podle své hodnoty.
private enum Numbers {
M(1000), CM(900), D(500), CD(400),
C(100), XC(90), L(50), XL(40),
X(10), IX(9), V(5), IV(4),
I(1);
private final int value;
private Numbers(int value) {
this.value = value;
}
public int value() {
return value;
}
}A dále už je to jasné...
public static String toRoman(int integer) {
String result = "";
for (Numbers number : Numbers.values()) {
while (number.value() <= integer) {
integer -= number.value();
result += number.name();
}
}
return result;
}Toto je jen pro porozumění hodnoťte kód postnutý výše
Ladislav Ondris:1.11.2014 21:05
Ano:) a právě proto tohle nemusím řešit v mém algoritmu, protože 3 je
římsky III, nikoli IIV 
Ladislav Ondris:1.11.2014 21:30
Ještě jsem na tvé řešení nedíval na žádné řešení ještě pak kouknu na ta řešení, která
vyhrála
Michal Žůrek - misaz:2.11.2014 9:45
Tentokrát dorazilo nevídaně mnoho řešení. Většina z Vás si vybrala Javu nebo C#. Někteří z Vás to využili jako ukázku něčeho zajímavého. Ačkoliv algoritmus může být jednoduchý, moc se mi nezamlouvalo, když do programu pošlete předvyplněné pole a on to jenom nějak slepí. Tak jako jste k těm hodnotám pole došli vy, mohl k tomu dojít program. Protože řešení je strašně moc, tak mi docela dělalo problém zpětně zjišťovat, kdo se jmenuje Number, převody římských čísel a podobně.
Tukmak
Tvoje řešení je oboustranné, objektové, umí validovat, bohužel na úkor
přehlednosti a jednoduchosti, šlo to pole, kde máš všechny jednotky,
desítky a stovky. Nesedí mi tam ta metoda, pro vypisování „O programu“,
třída by měla dělat jednu věc, ne 2 (počítat a vypisovat) čímž ses
vlastně i částečně zbavil rozšiřitelnosti kódu, protože z tohoto
vypisování lze vycítit, že třída byla navržena jen pro tebe jen do tohoto
machra a nikam dál s ní nepočítáš.
Kokosmán
Tvůj kód je jednoduchý a účelný, všechno je v main. Switch by se moc
neměl používat, šlo to vyřešit polem. Do budoucna je lepší to dělat
objektově nebo minimálně do funkcí/metod.
Fuull - (10 bodová penalizace)
Nijak v tom názvu Number nevidím tvůj nick (-10 bodů). Název Parser není
moc výstižný pro římská čísla. Algoritmus je jednoduchý, nemá
zbytečné pole, které nepotřebuje a je skoro zázračně krátký.
Omega
Název Prevadec, je hodně obecný Mělo by tam být zmíněno to hlavní –
Římská čísla. Kód je napatlaný v jedné třídě a děláš toho
zbytečně moc v Mainu. Existuje taková poučka, že řádek kódu by neměl
mít více jak 80 znaků. Nemusíš se toho striktně držet, ale je fajn, když
se mi to vleze i do okna a editor to nemusí znásilňovat nějakým
rozždákováním nebo dalším scrollbarem. V Charu máš „dvoj chary“,
takže to není až zas tak výstižné a hlavně to je zbytečné. Jak jsi
došel k tomu, že CM = 900? Nemohl k tomu dojít program sám?
Hartrik
Tvůj kód je sice skladný a celkem krátký, ale v reálu to asi
nepoužijeme.
Škrášek Michal – (10 bodová penalizace)
V názvu převod římských čísel.zip nikde nevidím tvůj nick (-10
bodů) Tvůj kód je napsaný v Mainu výchozí třídy. Na první pohled není
vůbec jasné, co dělá, chtělo by to nějak pojmenovat.
1001001
PřevodČísel není vhodný název. Za prvné nevíme jakých čísel a za
druhé v názvech by neměla být diakritika. Kolekce obsahuje věci, ke kterým
mohl program dojít sám. Kód je naplácaný v Mainu.
Werty
Název Vypocet s metodou Preved? Trochu divné, když se třída jmenuje podle
toho, co nedělá. Kód je však celkem pěkný a překvapivě krátký.
Kaczmi
Kontrola1, Kontrola2, … by šlo vyřešit lépe, minimálně podle názvu, ale
tak zrovna u kontrol to není taková tragédie. příště se podívej na
rozhraní (IKontrola, metoda Kontroluj) a třídy KontrolaNeco : IKontrola.
Gcx11 – (10 bodová penalizace)
Neumíš pojmenovat soubor podle svého jména (-10 bodů). Tvůj kód vypadá
dobře, jen k tomu šílenému poli mohl program dojít sám.
dave23
Tvůj kód není vůbec špatný, akorát si taky pohlídej délku řádku.
Taková doporučená délka je 80 znaků. Visual Studio ti to píše na stavové
liště.
coells
Hezká ukázka již ne příliš známého jazyka.
Phyber
Na Windows je hustě rozbombardované kódování složek a názvu souborů. A
spousta editorů neumí odřádkování i přesto jsem se tím nějak letmo
prokousal, škoda že jsi to takhle nedal na poprvé a spoustu chyb si opravil
až po upozornění coelsem.
IT Man
Není to vůbec objektové. Spousta věcí se tam několikrát neskutečně
opakuje, to co lze jednoduše vyřešit polem, děláš asi 10 funkcemi. Zkus si
pohlídat délku řádku, abys na menším monitoru v editoru horizontální
scroolbar.
Tomisoka
Kód je spíše nepřehledný, ale poměrně krátký. Komentáři ses moc
nezabýval a jde to poznat.
Frofo1 – (10 bodová penalizace)
Neumíš pojmenovat soubor podle svého jména (-10 bodů). Tak tento kód je
fakt úžasný, krátky, přehledný, bez zbytečností a bez potřeby
složitého komentáře u každého řádku.
Tomáš Bitter
Kód je pěkný a komentář „NEPOUŽÍVAT, NEFUNGUJE PŘEVOD DEVÍTEK (A
NAVÍC JE V TOM BORDEL)“ mě docela pobavil. Jestli jsi ten druhý směr
nestihl, tak si to měl smazat. Ze C#pistů jsi to měl asi nejlepší, tady by
se taky dala udělit placka.
Jsem rád, že jste to zkusili, příště nezapomeňte, že i malé aplikace
a algoritmy programujeme objektově, protože když Vás to chytí, tak se to
bude rozšiřovat a pak se v tom začnete ztrácet. Kód by měl být dobře
čitelný pro každého. Krátký kód = (ale výjimky se najdou) lepší kód,
jelikož je toho ke zkoumání méně. Osobně jsem uděloval i body, ale ty
nemají vypovídající hodnotu (snad krom penalizací), protože většina z
Vás na tom byla víceméně stejně. Za porušení pravidel jsem tentokrát
body jenom odečítal, příště budu diskvalifikovat. V 17 řešeních se fakt
špatně dohledává, kdo odevzdává soubor Number.zip a podobné. Zdrojové
kódy jsem zkoumal v Poznámkovém bloku 
a některé specifičtější v
PSpadu. Je třeba si však uvědomit, že pokud ty řádky (hlavně s
komentáři) budou hodně dlouhé, tak buď tam editor přidá scroolbar nebo to
rozděli na více řádků a tím se to akorát znepřehledňuje. 80 znaků sice
nemusíte striktně držet, ale jestli to překročíte 3×, tak se někde stala
chyba. Nezapomeňte, že většina jazyků má víceřádkové komentáře a ze
srandy králíkům tam nejsou. Zkuste program nechat řešit vše, když mu
něco předvypočítáne je to sice super a možná rychlejší, ale zbytečně
se to akorát komplikuje. Úplně stačilo jedno pole s těmi základními
číslicemi. Placky teda rozdám 2. Úplný vítěz je Frofo1, který
neumí pojmenovat soubor (příště by byl diskvalifikován) a ještě se mi
celkem líbilo řešení od Tomáš Bitter. Prosím publikovat a o placku pak
požádejte Zdeněk Pavlátka.
+20 Zkušeností
Uživatel sítě :2.11.2014 14:38
Toto pravidlo není povinné a pokud to není uvedeno v zadání jako
podmínka tak bych to tak nehrotil..
Zobrazeno 49 zpráv z 49.