capitalize

無力だ。

#!/usr/bin/env ocaml
let capitalize c =
  let ic = int_of_char c in
  if 'a' <= c && c <= 'z'
  then char_of_int (ic - 32)
  else c
;;

let ch = 'h';;

print_char (capitalize ch);;