Paul Robinson at 12:12, 18 March 2013

2013-03-18T12:12:04Z

← Older revision		Revision as of 08:12, 18 March 2013
Line 1:		Line 1:
	:{goto} [[Examples]] - Go back to examples		:{goto} [[Examples]] - Go back to examples

	The following function takes a decimal number and returns the equivalent in roman numerals. The comments to the right of the {lamp} symbol are for edification but are not necessary to use this function.<br/>		The following function takes a decimal number and returns the equivalent in roman numerals. The comments to the right of the {lamp} symbol are for edification but are not necessary to use this function. This code is very simple in order to demonstrate the various operators in APL, and is not necessarily the most efficient way to implement this function.<br/>
	<code>		<code>
	⎕vr 'roman' {lamp} System function to list the contents of a function<br/>		⎕vr 'roman' {lamp} System function to list the contents of a function<br/>

Paul Robinson: Created page with ":{goto} Examples - Go back to examples The following function takes a decimal number and returns the equivalent in roman numerals. The comments to the right of the {lamp}..."

2013-03-18T12:07:48Z

Created page with ":{goto} Examples - Go back to examples The following function takes a decimal number and returns the equivalent in roman numerals. The comments to the right of the {lamp}..."

New page

:{goto} [[Examples]] - Go back to examples

The following function takes a decimal number and returns the equivalent in roman numerals. The comments to the right of the {lamp} symbol are for edification but are not necessary to use this function. 
<code>
      ⎕vr 'roman' {lamp} System function to list the contents of a function 
    ∇ result ← roman value {lamp} '''result''' is the output of the function; '''value''' is the number supplied 
[1]   result ← '' {lamp} set result to null to prevent VALUE ERROR 
[2]   M: →(value<1000)/CM {lamp} if the value is less than 1000, go to label CM 
[3]   result ← result,'m' {lamp} for each 1000, tack an 'm' onto result and reduce value by 1000 
[4]   value ←value-1000 
[5]   →M {lamp} go back to label M 
[6]   CM: →(value<900)/D {lamp} if the value is less than 900, go to label D 
[7]   result ← result,'cm' {lamp} tack a 'cm' on result and reduce value by 900 
[8]   value ←value-900 
[9]   D: →(value<500)/CD {lamp} if the value is less than 500, go to label CD 
[10]  result ← result,'d' 
[11]  value ←value-500 
[12]  CD: →(value<400)/C {lamp} if the value is less than 400, go to label C 
[13]  result ← result,'cd' 
[14]  value ←value-500 
[15]  C: →(value<100)/XC {lamp} if the value is less than 100, go to label XC 
[16]  result ← result,'c' 
[17]  value ←value-100 
[18]  →C 
[19]  XC: →(value<90)/L {lamp} if the value is less than 90, go to label L 
[20]  result ← result,'xc' 
[21]  value ←value-90 
[22]  L: →(value<50)/XL {lamp} if the value is less than 50, go to label XL 
[23]  result ← result,'l' 
[24]  value ←value-50 
[25]  XL: →(value<40)/X {lamp} if the value is less than 40, go to label X 
[26]  result ← result,'xl' 
[27]  value ←value-40 
[28]  X: →(value<10)/IX {lamp} if the value is less than 10, go to label IX 
[29]  result ← result,'x' 
[30]  value ←value-10 
[31]  →X 
[32]  IX: →(value<9)/V {lamp} if the value is less than 9, go to label V 
[33]  result ← result,'ix' 
[34]  value ←value-9 
[35]  V: →(value<5)/IV {lamp} if the value is less than 5, go to label IV 
[36]  result ← result,'v' 
[37]  value ←value-5 
[38]  IV: →(value<4)/I {lamp} if the value is less than 4, go to label I 
[39]  result ← result,'iv' 
[40]  value ←value-4 
[41]  I: →(value<1)/0 {lamp} if the value is less than 1, go to 0, which exits the function 
[42]  result ← result,'i' 
[43]  value ←value-1 
[44]  →I 
    ∇ 2013 3 18 11 42 9 262 (UTC) {lamp} this is when the function was last edited 
</code>

{{Article footer}}

Examples/Roman - Revision history

Paul Robinson at 12:12, 18 March 2013

Paul Robinson: Created page with ":{goto} Examples - Go back to examples The following function takes a decimal number and returns the equivalent in roman numerals. The comments to the right of the {lamp}..."