32 |
if i < l then octal_aux (acc * 8 + (octal_of_char s.[i])) (i+1) |
if i < l then octal_aux (acc * 8 + (octal_of_char s.[i])) (i+1) |
33 |
else acc in |
else acc in |
34 |
octal_aux 0 0 |
octal_aux 0 0 |
35 |
|
|
36 |
|
(* taken from http://kazaan.no-ip.com/~kazaan/item-1094206424.html *) |
37 |
|
let dec2bin num len = |
38 |
|
let rec d2b v fig = |
39 |
|
if fig < 0 then "" |
40 |
|
else |
41 |
|
match (v asr fig) land 1 with |
42 |
|
0 -> "0" ^ (d2b v (fig - 1)) |
43 |
|
| x -> "1" ^ (d2b v (fig - 1)) |
44 |
|
in |
45 |
|
d2b num (len-1) |
46 |
|
|
47 |
|
(* taken from http://www.hh.iij4u.or.jp/~kazaan/old/ObjectiveCaml.html *) |
48 |
|
let bin2dec num = |
49 |
|
let s = string_of_int num in |
50 |
|
int_of_string ("0b" ^ s) |