OCamlでも愛が生まれた。UCoreLib依存。
もっと良い書き方を知りたい。
open UCoreLib;;
let love =
let sei = UChar.int_of (Text.get (Text.of_string "生") 0) in
let si = UChar.int_of (Text.get (Text.of_string "死") 0) in
let ai = Text.to_string (Text.of_uchar (UChar.of_int (sei land si))) in
ai
;;
print_string love;;