Remove integer bit operations

2019-01-25 12:49:11 +01:00
parent 922107e438
commit d8bf0bda45
8 changed files with 9 additions and 30 deletions
@@ -36,8 +36,6 @@ contract AllSyntax =
      (x, [y, z]) => bar({x = z, y = -y + - -z * (-1)})
      (x, y :: _) => ()

-  function bitOperations(x, y) = bnot (0xff00 band x bsl 4 bxor 0xa5a5a5 bsr 4 bor y)
-
  function mutual() =
    let rec recFun(x : int) = mutFun(x)
        and mutFun(x) = if(x =< 0) 1 else x * recFun(x - 1)