OCamlでのbit演算.md

OCamlでのbit演算

10進数38を2進数に変換すると100110になる。
これを16bitにするには、0埋めするので0000000000100110。

指定のbit位置が1かどうか調べるにはlsl関数とland関数を使う。

lsl

lsl関数は左にビットシフトさせることができる。

1 lsl 0;; (* - : int = 1, 1を左に0ビットシフト *) 
1 lsl 1;; (* - : int = 2, 1を左に1ビットシフト *)
1 lsl 2;; (* - : int = 4, 1を左に2ビットシフト *)
1 lsl 3;; (* - : int = 8, 1を左に3ビットシフト *)

land

land関数は論理積を計算できる。

38 land 1;; (* - : int = 0, 1bit目 *)
38 land 2;; (* - : int = 2, 2bit目 *)
38 land 4;; (* - : int = 4, 3bit目 *)
38 land 8;; (* - : int = 0, 4bit目 *)
38 land 16;; (* - : int = 0, 5bit目 *)
38 land 32;; (* - : int = 32, 6bit目 *)

lsl && land

下記の例では10進数38のbit位置の状態を調べている。
0以外を返す場合、2進数の値は1になっている。

38 land (1 lsl 0);; (* - : int = 0 *)
38 land (1 lsl 1);; (* - : int = 2 *)
38 land (1 lsl 2);; (* - : int = 4 *)
38 land (1 lsl 3);; (* - : int = 0 *)
38 land (1 lsl 4);; (* - : int = 0 *)
38 land (1 lsl 5);; (* - : int = 32 *)
38 land (1 lsl 6);; (* - : int = 0 *)