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

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

55
Task/Roman-numerals-Encode/PARI-GP/roman-numerals-encode-1.pari Normal file
View file

@ -0,0 +1,55 @@
oldRoman(n)={
while(n>999999,
n-=1000000;
print1("((((I))))")
);
if(n>499999,
n-=500000;
print1("I))))")
);
while(n>99999,
n-=100000;
print1("(((I)))")
);
if(n>49999,
n-=50000;
print1("I)))")
);
while(n>9999,
n-=10000;
print1("((I))")
);
if(n>4999,
n-=5000;
print1("I))")
);
while(n>999,
n-=1000;
print1("(I)")
);
if(n>499,
n-=500;
print1("I)")
);
while(n>99,
n-=100;
print1("C")
);
if(n>49,
n-=50;
print1("L");
);
while(n>9,
n-=10;
print1("X")
);
if(n>4,
n-=5;
print1("V");
);
while(n,
n--;
print1("I")
);
print()
};

55
Task/Roman-numerals-Encode/PARI-GP/roman-numerals-encode-2.pari Normal file
View file

@ -0,0 +1,55 @@
medievalRoman(n)={
while(n>999,
n-=1000;
print1("M")
);
if(n>899,
n-=900;
print1("CM")
);
if(n>499,
n-=500;
print1("D")
);
if(n>399,
n-=400;
print1("CD")
);
while(n>99,
n-=100;
print1("C")
);
if(n>89,
n-=90;
print1("XC")
);
if(n>49,
n-=50;
print1("L")
);
if(n>39,
n-=40;
print1("XL")
);
while(n>9,
n-=10;
print1("X")
);
if(n>8,
n-=9;
print1("IX")
);
if(n>4,
n-=5;
print1("V")
);
if(n>3,
n-=4;
print1("IV")
);
while(n,
n--;
print1("I")
);
print()
};