15 lines
547 B
Plaintext
15 lines
547 B
Plaintext
# Arithmetic/Integer, in LIL
|
|
write "Enter two numbers separated by space: "
|
|
if {[canread]} {set line [readline]}
|
|
print
|
|
|
|
set a [index $line 0]
|
|
set b [index $line 1]
|
|
print "A is $a"", B is $b"
|
|
print "Sum A + B is [expr $a + $b]"
|
|
print "Difference A - B is [expr $a - $b]"
|
|
print "Product A * B is [expr $a * $b]"
|
|
print "Integer Quotient A \\ B is [expr $a \ $b], truncates toward zero"
|
|
print "Remainder A % B is [expr $a % $b], sign follows first operand"
|
|
print "LIL has no exponentiation expression operator"
|