[FUN] Numbers to Roman letters/num


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting [FUN] Numbers to Roman letters/num
# 1  
Old 12-09-2014
[FUN] Numbers to Roman letters/num

Heyas

Just a little fun script (code block) i'd like to share for fun.
Code:
#/bin/bash
# roman.sh
#
#	Function
#
	num2roman() { # NUM
	# Returns NUM in roman letters
	#
		input=$1	# input num
		output=""	# Clear output string
		len=${#input}	# Initial length to count down
		
		roman_val() { # NUM one five ten
		# This sub does the basic 'roman' algorythm
		#
			N=$1
			one=$2
			five=$3
			ten=$4
			out=""
			
			case $N in
			0)	out+=""	;;
			[123])	while [[ $N -gt 0 ]]
				do	out+="$one"
					N=$(($N-1))
				done
				;;
			4)	out+="$one$five"	;;
			5)	out+="$five"	;;
			[678])	out+="$five"
				N=$(($N-5))
				while [[ $N -gt 0 ]]
				do	out+="$one"
					N=$(($N-1))
				done
				;;
			9)	while [[ $N -lt 10 ]]
				do	out+="$one"
					N=$(($N+1))
				done
				out+="$ten"
				;;
			esac
			echo $out
		}
		
		while [[ $len -gt 0  ]]
		do	# There are letters to add
			num=${input:0:1}
			# Do action according position
			case $len in
			1)	# 1
				output+="$(roman_val $num I V X)"
				;;
			2)	# 10
				output+="$(roman_val $num X L C)"
				;;
			3)	# 100
				output+="$(roman_val $num C D M)"
				;;
			*)	# 1000+
				# 10'000 gets a line above, 100'000 gets a line on the left.. how to?
				num=${input:0:(-3)}
				while [[ $num -gt 0 ]]
				do	output+="M"
					num=$(($num-1))
				done
				
				;;
			esac
			input=${input:1} ; len=${#input}
		done
		echo $output
	}
#
#	Call it
#
	num2roman $1

Output:
Code:
+ ~ $ for N in 1 4 5 6 8 9 10 13 42 99 123 256 1024 2048 3999;do ./roman.sh $N;done

I
IV
V
VI
VIII
IX
X
XIII
XLII
XCIX
CXXIII
CCLVI
MXXIV
MMXLVIII
MMMCMXCIX

Hth & have fun Smilie
These 6 Users Gave Thanks to sea For This Post:
# 2  
Old 12-09-2014
Thank you sea for nice code Smilie, here is an awk form of same. Honestly speaking got the idea from your code and tried to make it in awk,
lets have little more fun.

Code:
awk 'BEGIN {INPUT_NUMBERS = split("1990 2008 1666",arr," ")
        for (i=1; i<=INPUT_NUMBERS; i++) {
                                                X = arr[i]
                                                printf("%s = %s\n",X,ROMAN(X))
                                         }
        exit(0)
           }
function ROMAN(number,Z,Y,A,B,rom1,rom10,rom100,rom1000) {
                                                                number = int(number)
                                                                        if (number < 1 || number > 3999)
                                                                        {
                                                                                return
                                                                        }
                                                                        split("I II III IV V VI VII VIII IX",rom1," ")
                                                                        split("X XX XXX XL L LX LXX LXXX XC",rom10," ")
                                                                        split("C CC CCC CD D DC DCC DCCC CM",rom100," ")
                                                                        split("M MM MMM",rom1000," ")
                                                                        Z = (number - (number % 1000)) / 1000
                                                                        number = number % 1000
                                                                        Y = (number - (number % 100)) / 100
                                                                        number = number % 100
                                                                        A = (number - (number % 10)) / 10
                                                                        B = number % 10
                                                                        return(rom1000[Z] rom100[Y] rom10[A] rom1[B])
                                                         }'

Output will be as follows.
Code:
1990 = MCMXC
2008 = MMVIII
1666 = MDCLXVI

Thanks,
R. Singh
This User Gave Thanks to RavinderSingh13 For This Post:
# 3  
Old 12-09-2014
Now it handles numbers up to 99999 Smilie
4000 in roman numerals please helped me a bit, probaly i just overread the related parts on the wiki page Smilie
Added:
Code:
		U="\033[4m"	# Underscore, multiplies with 1000
		R="\033[0m"	# Resets the underscore

and changed to:
Code:
			4)	output+="$(roman_val $num M ${U}V${R} ${U}X${R})"	;;
			5)	output+="$(roman_val $num ${U}X${R} ${U}L${R} ${U}C${R})"	;;
			*)	# Fallback 'failsafe'.. actualy just beeing lazy to handle higher numbers properly... 99999 is enough
				num=${input:0:(-3)}
				while [[ $num -gt 0 ]]
				do	output+="M"
					num=$(($num-1))
				done
				;;
			esac

So the output is now:
Code:
~/roman.sh 3999 4500 11600 99000

MMMCMXCIX
MVD
XMDC
XC

Have a nice evening Smilie

Last edited by sea; 12-09-2014 at 01:06 PM..
# 4  
Old 12-09-2014
Terrific...
Just one point, you are underscoring the multipy by 1000.
It should be an over bar.
Have a look at the upside down capital "C" which can be displayed as a ")" in text mode too, you might find it interesting.
I once wrote an basic article about Roman Numbers many years ago for
The Crypt Magazine

EDIT:
Hmmm, looks like the mag is now closed...

Last edited by wisecracker; 12-09-2014 at 03:35 PM.. Reason: See above.
# 5  
Old 12-09-2014
Very interesting thread, well done.

Quote:
Originally Posted by wisecracker
I once wrote an basic article about Roman Numbers many years ago for
The Crypt Magazine
The link is working and i could find most of the issues, but weren't able to locate your article as there is no directory. Would you care to tell us which issue it is in?

bakunin
# 6  
Old 12-09-2014
Hi bakunin...

Crikey this was years ago so no I can't. I do have a copy though on my A1200 I will dig it out and post it if you want to see it...
# 7  
Old 12-09-2014
Cool, I did a roman -> int awk function in this thread

Code:
awk '
BEGIN {
    rn="MDCLXVI" # Roman numerals desc order
    split("1000 500 100 50 10 5 1",v) # value for each numeral
}
function roman_val(s,val,c,d,p,q) {
    if(s !~ "^[" rn tolower(rn) "]+$") return 0;
    c = split(toupper(s),d,"")
    val = v[index(rn,d[c])]
    while (--c) {
      p = index(rn,d[c])
      q = index(rn,d[c+1])
      val += (p>q)? -v[p] : v[p]
    }
    return val
}
{ print roman_val($1) }'


Code:
$ printf "%s\n" MMXIV XII XXVIII | ./roman.awk
2014
12
28

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. UNIX for Beginners Questions & Answers

Decimal numbers and letters in the same collums: round numbers

Hi! I found and then adapt the code for my pipeline... awk -F"," -vOFS="," '{printf "%0.2f %0.f\n",$2,$4}' xxx > yyy I add -F"," -vOFS="," (for input and output as csv file) and I change the columns and the number of decimal... It works but I have also some problems... here my columns ... (7 Replies)
Discussion started by: echo manolis
7 Replies

2. UNIX for Dummies Questions & Answers

sed - extract a group of Letters/numbers

I have a file with hundreds of lines in it. I wanted to extract anything that matches the following: KR followed by 4 digits: example KR1201 cat list | sed "s///g" Is the closest I've come, and obviously it is not what I want. This would remove all of the items that I want and leave me... (2 Replies)
Discussion started by: newbie2010
2 Replies

3. Shell Programming and Scripting

Sorting mixed numbers and letters

Hello, I have a file such as this: chr1 chr2 chr1 chr2 chr3 chr10 chr4 chr5 chrz chr1AI want to sort it, I use this command: sort -k1 -th -n testfilebut I get this output, how can I fix this? chr1 chr1 chr10 chr1A chr2 chr2 (3 Replies)
Discussion started by: Homa
3 Replies

4. Shell Programming and Scripting

awk : match only the pattern string , not letters or numbers after that.

Hi Experts, I am finding difficulty to get exact match: file OPERATING_SYSTEM=HP-UX LOOPBACK_ADDRESS=127.0.0.1 INTERFACE_NAME="lan3" IP_ADDRESS="10.53.52.241" SUBNET_MASK="255.255.255.192" BROADCAST_ADDRESS="" INTERFACE_STATE="" DHCP_ENABLE=0 INTERFACE_NAME="lan3:1"... (6 Replies)
Discussion started by: rveri
6 Replies

5. UNIX for Dummies Questions & Answers

Selective Replacements: Using sed or awk to replace letters with numbers in a very specific way

Hello all. I am a beginner UNIX user who is using UNIX to work on a bioinformatics project for my university. I have a bit of a complicated issue in trying to use sed (or awk) to "find and replace" bases (letters) in a genetics data spreadsheet (converted to a text file, can be either... (3 Replies)
Discussion started by: Mince
3 Replies

6. Shell Programming and Scripting

reducing values in columns with both numbers and letters

Hi, I columns with both number and letters however i need the number 4 trimmed off the lines that have 3 numbers in them so it just because the 2 preceding numbers only For example V25QG2-K18QG-V25CG2 L26HG-L17HA-L26CG I434QD1-L19HB2-I434CD1 I434QD1-A31QB-I434CD1 ... (7 Replies)
Discussion started by: olifu02
7 Replies

7. Shell Programming and Scripting

Sort roman numerals

If I use ls to print all the files of a folder, is there a way to sort using roman numerals? I am thinking about a result like: benjamin_I.wmv benjamin_II.wmv benjamin_II.wmv benjamin_III.wmv benjamin_IV.wmv benjamin_V.wmv benjamin_VI.wmv benjamin_VII.wmv benjamin_VIII.wmv... (6 Replies)
Discussion started by: locoroco
6 Replies

8. Shell Programming and Scripting

sed command, look for numbers following letters

If I have a set of strings, C21 F231 H42 1C10 1F113 and I want to isolate the ints following the char, what would the sed string be to find numbers after letters? If I do, *, I will get numbers after letters, but I am looking to do something like, sed 's/*/\t*/g' this will give me... (14 Replies)
Discussion started by: LMHmedchem
14 Replies

9. UNIX for Dummies Questions & Answers

Help! scrolling numbers and letters

Hello all I am a unix newbie.... I have a sun netra t1 and it is freaking out I am connected to it through a console port, and it is just spitting out a ton on numbers and letters like below its just keeps going and going. I have tried rebooting it and I cannot get it back to any kind of a... (1 Reply)
Discussion started by: intraining11
1 Replies

10. UNIX for Dummies Questions & Answers

Letters, Numbers or Alphanumerical

How do I check if a variable consisted of letters, numbers or both letters and numbers? For example, I have a variable $X and I want to print "1" if it contains only letters, "2" if it contains only numbers and "3" if it contains both (2 Replies)
Discussion started by: sleepster
2 Replies
Login or Register to Ask a Question