История изменений

Исправление x4DA, 11.09.13 15:57 (текущая версия) :

Хаскель компилируется в сишку, поэтому такие вещи там возможны.

У SBCL свой оптимизирующий компилятор в ISA, поэтому сишка ему вообще не упала.

Про инлайнинг сишки в CL я слышал только у ECL, который тоже компилится в Си.

(defun sample (x)
  (ffi:c-inline (n1 n2) (:int :int) (values :int :int) "{
    int n1 = #0, n2 = #1, out1 = 0, out2 = 1;
    while (n1 <= n2) {
      out1 += n1;
      out2 *= n1;
      n1++;
    }
    @(return 0)= out1;
    @(return 1)= out2;
    }"
   :side-effects nil))

Есть реализации scheme, которые компилятся в Си, например chicken, там есть директива inline для этих вещей. http://wiki.call-cc.org/eggref/4/inline

Исправление x4DA, 11.09.13 15:57:

Хаскель компилируется в сишку, поэтому такие вещи там возможны.

У SBCL свой оптимизирующий компилятор в ISA, поэтому сишка ему вообще не упала.

Про инлайнинг сишки в CL я слышал только у ECL, который тоже компилится в Си.

(defun sample (x)
  (ffi:c-inline (n1 n2) (:int :int) (values :int :int) "{
    int n1 = #0, n2 = #1, out1 = 0, out2 = 1;
    while (n1 <= n2) {
      out1 += n1;
      out2 *= n1;
      n1++;
    }
    @(return 0)= out1;
    @(return 1)= out2;
    }"
   :side-effects nil))

Исправление x4DA, 11.09.13 15:55:

Хаскель компилируется в сишку, поэтому такие вещи там возможны.

У SBCL свой оптимизирующий компилятор в ISA, поэтому сишка ему вообще не упала.

Про инлайнинг сишки в CL я слышал только у ECL, который тоже компилится в Си.

(defun sample (x)
  (ffi:c-inline (n1 n2) (:int :int) (values :int :int) "{
    int n1 = #0, n2 = #1, out1 = 0, out2 = 1;
    while (n1 <= n2) {
      out1 += n1;
      out2 *= n1;
      n1++;
    }
    @(return 0)= out1;
    @(return 1)= out2;
    }"
   :side-effects nil))

Исходная версия x4DA, 11.09.13 15:53:

Хаскель компилируется в сишку, поэтому такие вещи там возможны.

Про инлайнинг сишки в CL я слышал только у ECL, который тоже компилится в Си.

(defun sample (x)
  (ffi:c-inline (n1 n2) (:int :int) (values :int :int) "{
    int n1 = #0, n2 = #1, out1 = 0, out2 = 1;
    while (n1 <= n2) {
      out1 += n1;
      out2 *= n1;
      n1++;
    }
    @(return 0)= out1;
    @(return 1)= out2;
    }"
   :side-effects nil))