Only for programmers

 
IL Serge Pod #14.11.2001 07:27
+
-
edit
 

Serge Pod

администратор


she = alloc_first_she(nice, pretty, tall, smart, reach); 
while (!dead(me)) 
{ 
     .... 
     if ( she->love != me ) 
        { 
             free(she); 
             she = alloc_new_she(--nice, --pretty, --tall, --smart, 
              --reach); 
         } 
   else 
         { 
             f...ck(she); 
             new_she = alloc_new_she(++nice, ++pretty, ++tall, ++smart, 
             ++reach); 
   .         if  ( new_she && new_she->love == me ) 
                 { 
                     free(she); 
                     she = new_she; 
                  } 
             else 
                 { 
                    nice--; 
                    pretty--; 
                    tall--; 
                    smart--; 
                    reach--; 
                  } 
         } 
    .... 
} 
free(me); 
return 0; 
} 
     
This however will work good if function alloc_new_she() is always 
returning a pointer and no heap problems occur and purify didn't find 
any ABR or FMR. 

In knowledge we trust!  
+
-
edit
 

=KRoN=
Balancer

администратор
★★★★☆
>she = alloc_new_she(--nice, --pretty, --tall, --smart, --reach);

Слишком уж экстремальное уменьшение параметров :smile:
 
+
-
edit
 

varban

администратор
★★★
> f...ck(she);

Это-то не пройдет :wink: Компайлер не пропустит :tongue: Долой цензуру :biggrin::biggrin::biggrin:
 
RU Владимир Малюх #14.11.2001 10:05
+
-
edit
 
мнэээ, я конечно зануда, но скобочка лишняя однако есть :smile:
Maschinen muessen "idiotensicher" werden  
RU <Slowspeed> #14.11.2001 10:33
+
-
edit
 
=KRoN=>>she = alloc_new_she(--nice, --pretty, --tall, --smart, --reach);
=KRoN=>Слишком уж экстремальное уменьшение параметров :smile: Да уж. Вообще надо бы так:

while(she->love != me)
{
go_body_building(&me.nice)
go_plastic_surgery(&me.pretty)
go_better_job(&me.reach)
}
free(she)
she = alloc_new_she(nice++, pretty++, tall++, smart++, reach++);
 
+
-
edit
 

=KRoN=
Balancer

администратор
★★★★☆

 Эх, тряхну стариной :biggrin: STRUCT REQUIREMENT
    NICE
    PRETTY 
    TAIL 
    SMART 
    REACH
END

REQUIREMENT MY_REQUIREMENT

: INCREASE
    >R
    R@ NICE    1+!
    R@ PRETTY  1+!
    R@ TAIL    1+!
    R@ SMART   1+!
    R> REACH   1+!
;

: DECREASE
    >R
    R@ NICE    1-!
    R@ PRETTY  1-!
    R@ TAIL    1-!
    R@ SMART   1-!
    R> REACH   1-!
;

: SEARCH_NEXT
    SHE EXISTS?  IF FORGET THEN
    REQUIREMENT GIRLS SEARCH
    TO  SHE ;

: SEARCH_NEXT_MATCH
   DO
       SEARCH_NEXT
       GIRLS EMPTY? IF EXIT THEN
   SHE ME LOVE?  ME DEAD?  OR  UNTIL 
;

: LIVE
    DO
        SEARCH_NEXT_MATCH
        SHE EXISTS? NOT IF
            REQUIREMENT DECREASE
            CONTINUE
        THEN

        SHE F..K
        REQUIREMENT INCREASE
    МЕ DEAD? UNTIL
;

 Во!

 
RU <Slowspeed> #14.11.2001 11:26
+
-
edit
 
А что это?
Мы тут в игрушке скрипты делаем - интересно.
 
+
-
edit
 

=KRoN=
Balancer

администратор
★★★★☆
Slowspeed>А что это?
Slowspeed>Мы тут в игрушке скрипты делаем - интересно.

Forth.
Для скриптов, кстати, очень хорош :smile: Forth - язык нового поколения :)
и немного ближе к началу в
Языческие разборки.
 

в начало страницы | новое
 
Поиск
Настройки
Твиттер сайта
Статистика
Рейтинг@Mail.ru