Running S OLD ...
> #tests of arith, logic and bit operations
> #arith with integer arguments
> 1+3;c(-3,1789)-20;c(-7,09)*c(100,-10,1); c(5,3,1,340)/3; c(5,3,1,340)%/3
       4
        -23   1769
      -700   -90    -7
        1.666666     1.000000     0.3333333  113.3333
        1    1    0  113
> c(12,35,159,NA)^2; 7**c(0,1,-1)
         144    1225   25281      NA
      1.000000   7.000000   0.1428571
> c(86,-33,123456)%%5
       1   2   1
> #arith with real or mixed arguments
> 15+.0078; c(23.4,1,-50)-17; 1.234e12*.02; c(15,-2.,1.e3)/7.2; c(15,-2.,1.e3)%/7.2
      15.0078
        6.4  -16.0  -67.0
      2.468e10
         2.083333     -0.2777778   138.8888
        2    0  138
> 17.53%%c(5.,0.,1.5)
       2.53  17.53   1.03
> c(1.2,-3,5.67)^2; c(1.2,-3,5.67)^2.001
       1.4400   9.0000  32.1489
Warning in ^: Missing values generated from zero or negative data
       1.440263         NA  32.20473
> # logical with integer arguments
> 5<c(4,6,-5)
      F  T  F
> c(7,12345)>500
      F  T
> 17<=c(17,-1,100,NA)
      T  F  T  N
> -12>=c(500,0,-5,-12,-30)
      F  F  F  T  T
> c(2,3,-3,4,NA)==c(2,-3,-3,1,NA)
      T  F  T  F  N
> # logical with real or mixed arguments
> 5<c(4.9,6.123,-5)
      F  T  F
> c(7.3,12345)>7.3
      F  T
> 1.17<=c(1.17,-1.1,100.1,NA)
      T  F  T  N
> -12.001>=c(500.001,0.001,-5.001,-12.001,-30)
      F  F  F  T  T
> c(2.,3.,-3.,4.,NA)==c(2.,-3.,-3.,1.,NA)
      T  F  T  F  N
> #bit operators
> 17<=c(17,-1,100,NA) & -12>=c(500,0,-5,-12,-30)
      F  F  F  N  T
> 17<=c(17,-1,100,NA) | -12>=c(500,0,-5,-12,-30)
      T  F  T  N  T
1.0u 1.6s 3r 	 /usr/s/cmd/RUN.S
