palindrome.re

open Printf;

module Unicode = Zed_utf8;

let isPalindrome = aString => {
  Unicode.compare(aString, Unicode.rev(aString)) == 0
};

let main = {
  let testCases = [|
    ("aoeu", false),
    ("aoeuueoa", true),
    ("racecar", true),
    ("你好", false),
    ("對不對", true)
  |];

  for (i in 0 to Array.length(testCases) - 1) {
    let (aString, expected) = testCases[i];
    let actual = isPalindrome(aString);
    printf(
      "isPalindrome(%s)?\n\
        \texpected - %b\n\
        \tactual - %b\n",
      x,
      expected,
      actual
    )
  }
};