Data update
This commit is contained in:
Ingy döt Net
parent
ed705008a8
commit
0df55f9f24
2196 changed files with 32999 additions and 3075 deletions
|
|
@ -20,7 +20,7 @@ extension op : String
|
|||
var s := self.toUpper();
|
||||
var total := 0;
|
||||
|
||||
for(int i := 0, i < s.Length, i += 1)
|
||||
for(int i := 0; i < s.Length; i += 1)
|
||||
{
|
||||
var thisNumeral := RomanDictionary[s[i]] - minus;
|
||||
if (i >= s.Length - 1 || thisNumeral + minus >= RomanDictionary[s[i + 1]])
|
||||
|
|
|
|||
14
Task/Roman-numerals-Decode/Phix/roman-numerals-decode-1.phix
Normal file
14
Task/Roman-numerals-Decode/Phix/roman-numerals-decode-1.phix
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
with javascript_semantics
|
||||
function romanDec(string s)
|
||||
integer res = 0, prev = 0
|
||||
for i=length(s) to 1 by -1 do
|
||||
integer rdx = find(upper(s[i]),"IVXLCDM"),
|
||||
rn = power(10,floor((rdx-1)/2))
|
||||
if even(rdx) then rn *= 5 end if
|
||||
res += iff(rn<prev?-rn:rn)
|
||||
prev = rn
|
||||
end for
|
||||
return {s,res} -- (for output)
|
||||
end function
|
||||
|
||||
?apply({"MCMXC","MMVIII","MDCLXVI"},romanDec)
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
with javascript_semantics
|
||||
requires("1.0.5")
|
||||
function romanDec(string s)
|
||||
return {s,scanf(s,"%R")[1][1]}
|
||||
end function
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">function</span> <span style="color: #000000;">romanDec</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">romans</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"MDCLXVI"</span><span style="color: #0000FF;">,</span>
|
||||
<span style="color: #000000;">decmls</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">1000</span><span style="color: #0000FF;">,</span><span style="color: #000000;">500</span><span style="color: #0000FF;">,</span><span style="color: #000000;">100</span><span style="color: #0000FF;">,</span><span style="color: #000000;">50</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">}</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">prev</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">to</span> <span style="color: #000000;">1</span> <span style="color: #008080;">by</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #000000;">n</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">decmls</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">romans</span><span style="color: #0000FF;">)]</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #000000;">n</span><span style="color: #0000FF;"><</span><span style="color: #000000;">prev</span> <span style="color: #008080;">then</span> <span style="color: #000000;">n</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span><span style="color: #0000FF;">-</span><span style="color: #000000;">n</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #000000;">res</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">n</span>
|
||||
<span style="color: #000000;">prev</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">n</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<span style="color: #000080;font-style:italic;">-- return res</span>
|
||||
<span style="color: #008080;">return</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #000000;">res</span><span style="color: #0000FF;">}</span> <span style="color: #000080;font-style:italic;">-- (for output)</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
|
||||
|
||||
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">({</span><span style="color: #008000;">"MCMXC"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"MMVIII"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"MDCLXVI"</span><span style="color: #0000FF;">},</span><span style="color: #000000;">romanDec</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
24
Task/Roman-numerals-Decode/Refal/roman-numerals-decode.refal
Normal file
24
Task/Roman-numerals-Decode/Refal/roman-numerals-decode.refal
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
$ENTRY Go {
|
||||
= <Prout <RomanDecode 'MCMXC'>>
|
||||
<Prout <RomanDecode 'MMVIII'>>
|
||||
<Prout <RomanDecode 'MDCLXVI'>>;
|
||||
};
|
||||
|
||||
RomanDecode {
|
||||
= 0;
|
||||
e.D, <Upper e.D>: {
|
||||
'M' e.R = <+ 1000 <RomanDecode e.R>>;
|
||||
'CM' e.R = <+ 900 <RomanDecode e.R>>;
|
||||
'D' e.R = <+ 500 <RomanDecode e.R>>;
|
||||
'CD' e.R = <+ 400 <RomanDecode e.R>>;
|
||||
'C' e.R = <+ 100 <RomanDecode e.R>>;
|
||||
'XC' e.R = <+ 90 <RomanDecode e.R>>;
|
||||
'L' e.R = <+ 50 <RomanDecode e.R>>;
|
||||
'XL' e.R = <+ 40 <RomanDecode e.R>>;
|
||||
'X' e.R = <+ 10 <RomanDecode e.R>>;
|
||||
'IX' e.R = <+ 9 <RomanDecode e.R>>;
|
||||
'V' e.R = <+ 5 <RomanDecode e.R>>;
|
||||
'IV' e.R = <+ 4 <RomanDecode e.R>>;
|
||||
'I' e.R = <+ 1 <RomanDecode e.R>>;
|
||||
};
|
||||
};
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
import "/fmt" for Fmt
|
||||
import "./fmt" for Fmt
|
||||
|
||||
var decode = Fn.new { |r|
|
||||
if (r == "") return 0
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue