LATBauerdick

// foreign import countPrefix :: (Char -> Boolean) ->  String -> Int
//
exports["countPrefix"] = [](const boxed& f_) -> boxed {
  return [=](const boxed& s_) -> boxed {
    const string& s = unbox<string>(s_);
    size_t i = 0;
    while ( i<s.length() && unbox<bool>(f_(boxed(s.substr(i, 1)))) ) i++;
    return i;
  };
};