The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]



Индекс форумов
Составление сообщения

Исходное сообщение
"Разработка модулей для Linux ядра на языке Haskell"
Отправлено pavlinux, 14-Сен-09 14:46 
>>Настоящие программисты не забивают гвозди головой.
>
>ОК. Прошу в студию примеры того, что не умеет паскаль такого, что
>умеет Си? :)

модули для ядра :)

Ах да, вспомнил, в Паскале незя мешать логику и математику...

( a || b ) * ( a && b ) << c
c + !( a || b ) * d

которая ох как нужна при работе с девайсами  

В паскале указатель может ссылаться на не инициализируемую переменную - очень полезно для глюкофф
В Паскале нет арифметики с указателями

Вычисление чисел Фибоначчи, работает раз в 20 быстрее чем любая рекурсия, рекурсия с массивами,....

/* ---------------- */

#include <stdio.h>

void l(unsigned int* n1, unsigned int* n2, int n) {

    unsigned int k1,k2;

    if(n<=1) { *n1=1; *n2=1; return; }
    if(n==2) { *n1=2; *n2=1; return; }
    
    if(n%2) {  
              l(&k1, &k2, (n-1)/2 );
              *n1 = k1 * ( k1 + k2 ) + k1 * k2;
             *n2 = k1*k1 + k2*k2;
    } else {    
             l(&k1, &k2, (n/2)-1);
             *n1 = ( k1+k2 ) * ( k1+k2 ) + k1*k1;
             *n2 = ( k1+k2 ) * k1 + k1*k2;
    }
}

unsigned int f(int n) {

    unsigned int n1, n2;
    l(&n1,&n2,n);
    return n1;
}

void f_print(int n) {
    printf("%dth Fibonacci number is %lu\n",n,f(n));
}

int main(void) {
    f_print(46);
    return 0;
}

/* ---------------- */

Только ради такой красоты, можно выкинуть слово Pascal из мозга,
и поставить фаервол, чтоб не возвращалось.

У Паскаля есть один большой ПЛЮС, - С него ЛЕГКО перейти на С, обратно уже не возможно. :)

 

Ваше сообщение
Имя*:
EMail:
Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email).
Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
 
При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.



Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру