Arithmetic/Integer: Difference between revisions
Content added Content deleted
(Racket) |
No edit summary |
||
Line 2: | Line 2: | ||
Also include the exponentiation operator if one exists. |
Also include the exponentiation operator if one exists. |
||
=={{header|0815}}== |
|||
<lang 0815> |
|||
|~>|~#:end:> |
|||
<:61:x<:3d:=<:20:$==$~$=${~>%<:2c:~$<:20:~$ |
|||
<:62:x<:3d:=<:20:$==$~$=${~>%<:a:~$$ |
|||
<:61:x<:2b:=<:20:$==$~$=$<:62:x<:3d:=<:20:$==$~$=${x{x~>~>~+%<:a:~$ |
|||
<:61:x<:2d:=<:20:$==$~$=$<:62:x<:3d:=<:20:$==$~$=${x{x~>~>~-%<:a:~$ |
|||
<:61:x<:2a:=<:20:$==$~$=$<:62:x<:3d:=<:20:$==$~$=${x{x~>~>~*%<:a:~$ |
|||
<:61:x<:2f:=<:20:$==$~$=$<:62:x<:3d:=<:20:$==$~$=${x{x~>~>~/%<:a:~$ |
|||
<:61:x<:25:=<:20:$==$~$=$<:62:x<:3d:=<:20:$==$~$=${x{x~>~>~/=%<:a:~$ |
|||
{~>>{x<:1:-^:u: |
|||
<:61:x<:5e:=<:20:$==$~$$=$<:62:x<:3D:=<:20:$==$~$=${{~%#:end: |
|||
}:u:=>{x{=>~*>{x<:2:-#:ter: |
|||
}:ml:x->{x{=>~*>{x<:1:-#:ter:^:ml: |
|||
}:ter:<:61:x<:5e:=<:20:$==$~$$=$<:62:x<:3D:=<:20:$==$~$=${{~%#:end: |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
a = 6, b = 4 |
|||
a + b = A |
|||
a - b = 2 |
|||
a * b = 18 |
|||
a / b = 1 |
|||
a % b = 2 |
|||
a ^^ b = 510 |
|||
</pre> |
|||
=={{header|6502 Assembly}}== |
=={{header|6502 Assembly}}== |