Joke 版 (精华区)

发信人: FBI (和我一起去流浪，ok？), 信区: Joke
标  题: 程序爱情
发信站: 哈工大紫丁香 (2000年08月16日19:14:39 星期三), 站内信件

    #define AND &&
RESULT love(boy, girl)
{
　　if( boy.有房() AND boy.有车() )
　　{
　　　boy.Set(Nothing);
　　　return girl.嫁给(boy);
　　}
　　else if( girl.愿意等() )
　　{
　　　next_year:
　　　for( day=1; day<=365; day++)
　　　{
　　　　if( day == 情人节 )
　　　　　if( boy.GiveGirl(玫瑰) )
　　　　　　girl.感情++;
　　　　　else
　　　　　　girl.感情--;
　　　　if( day == girl.生日)
　if( boy.GiveGirl(玫瑰) )
　　　　　　girl.感情++;
　　　　　else
　　　　　　girl.感情--;
　　　　boy.拼命赚钱();
　　　}
　　　年龄++;
　　　girl.感情--;
　　　if( boy.有房() AND boy.有车() )
　　　{
　　　　boy.Set(Nothing);
　　　　return girl.嫁给(boy);
　　　}
　　　else if( boy.赚钱 > 100,000 AND girl.感情 > 8 )
　　　　goto next_year;
　　　else
　　　　return girl.goto( another_boy);
　　}
　　return girl.goto( another_boy);
}                                               
--

                              笑问苍天，我是谁？
                               众人皆醒我独醉

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.234.170]