aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

32
Task/Roman-numerals-Decode/Sidef/roman-numerals-decode-1.sidef
View file

@ -1,9 +1,9 @@
func roman2arabic(roman) {
var arabic = 0;
var last_digit = 1000;
static m = Hash.new(
 
var arabic = 0
var last_digit = 1000
 
static m = Hash(
I => 1,
V => 5,
X => 10,
@ -11,18 +11,18 @@ func roman2arabic(roman) {
C => 100,
D => 500,
M => 1000,
);
roman.uc.split('').map{m{_} \\ 0}.each { |digit|
last_digit < digit && (
arabic -= (2 * last_digit);
);
arabic += (last_digit = digit);
)
 
roman.uc.chars.map{m{_} \\ 0}.each { |digit|
if (last_digit < digit) {
arabic -= (2 * last_digit)
}
arabic += (last_digit = digit)
}
return arabic;
 
return arabic
}
 
%w(MCMXC MMVIII MDCLXVI).each { |roman_digit|
"%-10s == %d\n".printf(roman_digit, roman2arabic(roman_digit));
"%-10s == %d\n".printf(roman_digit, roman2arabic(roman_digit))
}

2
Task/Roman-numerals-Decode/Sidef/roman-numerals-decode-2.sidef
View file

@ -15,7 +15,7 @@ func roman2arabic(digit) {
:I: '1+',
]).split('+').map{.to_i}.sum;
}
 
%w(MCMXC MMVIII MDCLXVI).each { |roman_num|
say "#{roman_num}\t-> #{roman2arabic(roman_num)}";
}