Examples/Roman: Difference between revisions

From NARS2000
Jump to navigationJump to search
VisualWikitext
(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}...")
 
No edit summary
 
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>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;⎕vr 'roman' {lamp} System function to list the contents of a function<br/>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;⎕vr 'roman' {lamp} System function to list the contents of a function<br/>

Latest revision as of 07:12, 18 March 2013

→ 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 ⍝ 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.
      ⎕vr 'roman' ⍝ System function to list the contents of a function
    ∇ result ← roman value ⍝ result is the output of the function; value is the number supplied
[1]   result ← '' ⍝ set result to null to prevent VALUE ERROR
[2]   M: →(value<1000)/CM ⍝ if the value is less than 1000, go to label CM
[3]   result ← result,'m' ⍝ for each 1000, tack an 'm' onto result and reduce value by 1000
[4]   value ←value-1000
[5]   →M ⍝ go back to label M
[6]   CM: →(value<900)/D ⍝ if the value is less than 900, go to label D
[7]   result ← result,'cm' ⍝ tack a 'cm' on result and reduce value by 900
[8]   value ←value-900
[9]   D: →(value<500)/CD ⍝ if the value is less than 500, go to label CD
[10]  result ← result,'d'
[11]  value ←value-500
[12]  CD: →(value<400)/C ⍝ if the value is less than 400, go to label C
[13]  result ← result,'cd'
[14]  value ←value-500
[15]  C: →(value<100)/XC ⍝ 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 ⍝ if the value is less than 90, go to label L
[20]  result ← result,'xc'
[21]  value ←value-90
[22]  L: →(value<50)/XL ⍝ if the value is less than 50, go to label XL
[23]  result ← result,'l'
[24]  value ←value-50
[25]  XL: →(value<40)/X ⍝ if the value is less than 40, go to label X
[26]  result ← result,'xl'
[27]  value ←value-40
[28]  X: →(value<10)/IX ⍝ 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 ⍝ if the value is less than 9, go to label V
[33]  result ← result,'ix'
[34]  value ←value-9
[35]  V: →(value<5)/IV ⍝ if the value is less than 5, go to label IV
[36]  result ← result,'v'
[37]  value ←value-5
[38]  IV: →(value<4)/I ⍝ if the value is less than 4, go to label I
[39]  result ← result,'iv'
[40]  value ←value-4
[41]  I: →(value<1)/0 ⍝ 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) ⍝ this is when the function was last edited



See Also
System Commands System Variables and Functions Operators


Keyboard
Alt+Shift ⍪ ≡ ≢ ⍒ ⍋ ⌽ ⍉ ⊖ ⍟ ⍱ ⍲ ⍠ ⌹
Alt ⋄ ¨ ¯ < ≤ ∅ ≥ > ≠ ∨ ∧ × ÷
Shift ~ ! @ # $ % ^ & * ( ) _ +
Key ` 1 2 3 4 5 6 7 8 9 0 - =
Alt+Shift ⍷ √ ⍨ ⍸ ⍥ ⍣ ⍞ ⍬ ⊣
Alt ? ⍵ ∊ ⍴ § ↑ ↓ ⍳ ○ π ← → ⊢
Shift Q W E R T Y U I O P { } |
Key q w e r t y u i o p [ ] \
Alt+Shift ∫ ∂ ⌻ ⍢ ⍙ ⍤ ⍫ ⌷
Alt ⍺ ⌈ ⌊ ∞ ∇ ∆ ∘ ‼ ⎕ ⍎ ⍕
Shift A S D F G H J K L : "
Key a s d f g h j k l ; '
Alt+Shift ⊆ ⊇ χ ⍡ ⍭ ⊙
Alt ⊂ ⊃ ∩ ∪ ⊥ ⊤ ⍦ ⍝ ⍀ ⌿
Shift Z X C V B N M < > ?
Key z x c v b n m , . /
NARS 2000 Lang
Tool
Bar 		← → + - × ÷ * ⍟ ⌹ ○ ! ? √ | ⌈ ⌊ ⊥ ⊤ ⊣ ⊢
≡ ≢ < ≤ = ≥ > ≠ ∨ ∧ ⍱ ⍲ ↑ ↓ ⊂ ⊃ ⌷ ⍋ ⍒
⍳ ∊ ⍸ ⍷ ∪ ∩ ⊆ ⊇ ~ § π .. , ⍪ ⍴ ⌽ ⊖ ⍉
/ \ ⌿ ⍀ ⊙ ¨ ⍨ ⍤ ⍣ ⍡ ⍥ ⍦ . ∘ ⍠ ‼ ⌻ ∂ ∫ ⍞ ⎕ ⍎ ⍕
⋄ ⍝ ∇ ∆ ⍙ _ ⍺ ⍵ ¯ ⍬ ∞ ∅
Second Row i j k i j k l g p r v x

[[Category:Mouse Group {{{1}}}|{{{2}}}]]

Retrieved from "https://wiki.nars2000.org/index.php?title=Examples/Roman&oldid=2019"