| Server IP : 127.0.1.1 / Your IP : 216.73.216.152 Web Server : Apache/2.4.52 (Ubuntu) System : Linux bahcrestlinepropertiesllc 5.15.0-113-generic #123-Ubuntu SMP Mon Jun 10 08:16:17 UTC 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.33 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /var/www/bahcrestline/core/vendor/scrivo/highlight.php/test/detect/reasonml/ |
Upload File : |
/* This is a
multiline
comment */
type point = {
x: float,
y: float,
};
let some_string = "this is a string";
let rec length = lst =>
switch (lst) {
| [] => 0
| [head, ...tail] => 1 + length(tail)
};
type result('a, 'b) =
| Ok('a)
| Error('b);
let promisify = (res: result('a, 'b)) : Js.Promise.t('a) =>
switch (res) {
| Ok(a) => Js.Promise.resolve(a)
| Error(b) => Js.Promise.reject(b)
};
exception Test;
module MakeFFI = (T: {type t;}) => {
[@bs.module] external ffi : string => T.t = "";
};
type expression =
| Const(float)
| Var(string)
| Sum(expression, expression) /* e1 + e2 */
| Diff(expression, expression) /* e1 - e2 */
| Prod(expression, expression) /* e1 * e2 */
| Quot(expression, expression); /* e1 / e2 */
class point = {
as _;
val mutable x = 0;
pub get_x = x;
pri move = d => x = x + d;
};