Цитата

---

Суть - написать ядро вычислений на scheme, чтобы потом использовать их в программе на языке с++ (которая собственно будет больше оформлением для программы на scheme)

---

Цитата

---

Мне тоже хотелось бы использовать Scheme как встраиваемый язык вместо Lua или AngelScript.

---

Цитата

---

Мегабайты меня не волнуют, 21 век на дворе.

---

Цитата

---

А главная проблема - хочу удобную IDE.

---

Цитата

---

А как же хваленый REPL? Где он тут?

---

Цитата

---

останется только Haskell.

---

Цитата

---

Идея! А что, если использовать DrRacket только как IDE? А программировать на Scheme R5RS? И потом компилировать с помощью Chicken или Gambit? И как я сразу не допёр...

---

Цитата

---

Да-да, везде. Даже в CLIPS. Только им пользоваться невозможно. Кнопочки Home, End и даже Del не работают. Спасибо, но я знаю другие способы мазохизма.

---

Цитата

---

Это Вам не копирование из Sublime Text в консольное окно CLIPS.

---

// without_zeros.c

#ifndef WITHOUT_ZEROS

#define WITHOUT_ZEROS

 

void without_zeros(double* z, size_t n)

{

    while( n-- ) {

        if( *z == 0.0 ) {

            *z = 0.0001;

        }

        ++z;

    }

}

 

#endif

// test_without_zeros.c

#include "without_zeros.c"

 

TEST empty_array()

{

     double* z = NULL;

     n = 0;

     without_zeros(z, n);

     PASS();

}

 

TEST one_non_zero_element()

{

    double non_zero_element = 1.0;

    double z[1];

    z[0] = non_zero_element;

    without_zeros(z, sizeof(z) / sizeof(z[0]));

    ASSERT_EQ(z[0], non_zero_element);

    PASS();

}

 

TEST one_zero_element()

{

    double z[1] = { 0.0 };

    without_zeros(z, sizeof(z) / sizeof(z[0]));

    ASSERT(z[0] > 0.0 && z[0] < 1.0);

    PASS();

}

 

// TODO: less trivial tests

 

SUITE(Without_Zeros)

{

    RUN_TEST(empty_array);

    RUN_TEST(one_non_zero_element);

    RUN_TEST(one_zero_element);

    // TODO: run less trivial tests

}