zettacode.files/arithmetic.integer/r.txt in zettacode-0.1.0 vs zettacode.files/arithmetic.integer/r.txt in zettacode-0.1.1

@@ -1,11 +1,11 @@
-c(" umb ")
- - c(=1, qu=TRUE)
-c(" ub ")
-b - c(=1, qu=TRUE)
-(('+b=', +b))
-(('-b=', -b))
-(('*b=', *b))
-(('%%b=', %%b))
-(('%%b=', %%b))
-(('^b=', ^b))
+cat("insert number ")
+a <- scan(nmax=1, quiet=TRUE)
+cat("insert number ")
+b <- scan(nmax=1, quiet=TRUE)
+print(paste('a+b=', a+b))
+print(paste('a-b=', a-b))
+print(paste('a*b=', a*b))
+print(paste('a%/%b=', a%/%b))
+print(paste('a%%b=', a%%b))
+print(paste('a^b=', a^b))