Производительность ReasonML против императивного ванильного JavaScript - PullRequest
Новая
       10

Производительность ReasonML против императивного ванильного JavaScript

0 голосов
/ 15 сентября 2018

Отказ от ответственности: Я новичок в ReasonML.

В последнее время я начал играть с ReasonML и заметил большую разницу в производительности по сравнению с ванильным JavaScript. Вот мои примеры против простой функции решения головоломки (головоломка взята из: https://adventofcode.com/2015/day/1)

ReasonML 

let head = str =>
  switch (str) {
  | "" => ""
  | _ => String.sub(str, 0, 1)
  };

let tail = str =>
  switch (str) {
  | "" => ""
  | _ => String.sub(str, 1, String.length(str) - 1)
  };

let rec stringToList = str =>
  switch (str) {
  | "" => []
  | _ => [[head(str)], tail(str) |> stringToList] |> List.concat
  };

let rec findFloor = code =>
  switch (head(code)) {
  | "" => 0
  | "(" => 1 + findFloor(tail(code))
  | ")" => (-1) + findFloor(tail(code))
  | _ => 0
  };

let findFloorFold = code => {
  let calc = (a, b) =>
    switch (b) {
    | "" => a
    | "(" => a + 1
    | ")" => a - 1
    | _ => a
    };

  code |> stringToList |> List.fold_left(calc, 0);
};

JavaScript 

const solve = code => {
  let level = 0;
  for (let i = 0, l = code.length; i < l; i++) {
    const el = code[i];
    if (el === "(") {
      ++level;
      continue;
    }
    if (el === ")") {
      --level;
      continue;
    }
  }
  return level;
};

Результаты

  • JavaScript: 5 мс
  • ReasonML (рекурсивный): 470 мс
  • ReasonML (не рекурсивный): 7185мс

Ожидается ли это или мои реализации функций ReasonML слишком медленные?

Заранее спасибо за разъяснения / предложения.

По общему признанию, второе решение (не-rec) является медленным из-за преобразования строки в массив, но это потому, что в ReasonML строка не представлена ​​списком символов.

1 Ответ

0 голосов
/ 15 сентября 2018

Вы можете написать тот же императивный код в Reason, что и в JS, и на самом деле он будет быстрее (на 30% на моем компьютере): 

let findFloorImperative = code => {
  let level = ref(0);
  for (i in 0 to String.length(code) - 1) {
    switch (code.[i]) {
    | '(' => level := level^ + 1
    | ')' => level := level^ - 1
    | _   => failwith("invalid code")
    }
  };
  level^
};

И это рекурсивное решение почти такое же быстрое: 

let findFloorRecursiveNoList = code => {  
  let rec helper = (level, i) =>
    if (i < String.length(code)) {
      switch (code.[i]) {
      | '(' => helper(level + 1, i + 1)
      | ')' => helper(level - 1, i + 1)
      | _   => failwith("invalid code")
      }
    } else {
      level
    };

  helper(0, 0)
};

Результаты тестов: 

Reason, imperative:            19,246,043 ops/sec
Reason, recursive, no list:    18,113,602 ops/sec
JavaScript, imperative:        13,761,780 ops/sec
Reason, recursive, list:       481,426 ops/sec
Reason, folding, list:         239,761 ops/sec

Источник: re: bench

...