vvoody在xiyoulinux上提出了一个C语言的问题，这个问题我之前见过，所以不想自己想了，想让计算机帮我完成。于是费了一番功夫写了个脚本帮我完成。（哎，老了，写代码慢了～～）

先贴“答案”，应该是总共8个结果（下面的9个中有两个明显是等价的）：

int i,n=99;main(){for(i=0;i<n;i—){printf(“#”);}}
int i,n=99;main(){for(i=0;i<n;i—){printf(“#”);}}
int i,n=99;main(){for(i=0;-i<n;i—){printf(“#”);}}
int i,n=99;main(){for(i=0;~i<n;i—){printf(“#”);}}
int i,n=99;main(){for(i=0;i<&n;i—){printf(“#”);}}
int i,n=99;main(){for(i=0;i<n;i—);{printf(“#”);}}
int*i,n=99;main(){for(i=0;i<n;i—){printf(“#”);}}
int i,n=99;main(){for(i=0;i+n;i—){printf(“#”);}}
int i,n=99;main(){for(i=0;i<n;n—){printf(“#”);}}

用时：

real 1m3.881s
user 0m44.097s
sys 0m17.436s

最让我吃惊的结果是那个溢出的，很巧妙，脚本运行到那里停了大约4，5秒钟的样子。

最后放脚本，包括两部分，一部分用bash完成，另一部分用Perl完成。其实完全用bash或者完全用Perl都是可行的，而且完全用Perl应该是最快的。

[bash]

!/bin/bash

TEST_VAR=’int i,n=99;main(){for(i=0;i<n;i—){printf("#");}}'

Generated by Python with

''.join(map(lambda x: '' if chr(x).isupper() else chr(x), range(32, 127)))

except '$','(',')', '{','}', '[', ']', '@', "`", """, "#", "'", "\", ' '

possible_chars='!'"%&*+,-./0123456789:;?^_abcdefghijklmnopqrstuvwxyz|~”
len=${#TEST_VAR}
num_chars=${#possible_chars}
tmpfile=$(mktemp /tmp/test-$$.XXXXXXX)
outfile=”/tmp/test_sh.out”

function is_valid_and_ok()
{
echo $1 > $tmpfile
if gcc -xc -c -o $outfile.o $tmpfile &>/dev/null;
then
gcc -o $outfile $outfile.o &>/dev/null
if [[ $? -ne 0 ]]; then
return 0
fi

    #nohup $outfile > $resultfile 2> /dev/null &
    #sleep 1 && killall $outfile 2> /dev/null
    n=$(./get_run_result.pl $outfile)
    echo $n
    if [[ $n -eq 99 ]] || [[ $n -eq 100 ]] || [[ $n -eq 1 ]]
    then
        return 1
    fi
fi
return 0

}

main

i=8
while(($i $tmp” 1>&2
fi
i=$(($i+1))
done;

i=4
while (($i < $len - 14));
do
j=0
while(($j $tmp” 1>&2
fi
j=$(($j+1))
done
i=$(($i+1))
if (($i == 11)) ; then
i=17
fi
done;

i=0
while(($i<$len - 16));
do
j=0
while(($j $tmp” 1>&2
fi
j=$(($j+1))
done
i=$(($i+1))
if (($i == 11)) ; then
i=17
fi
done;
[/bash]
[perl]

!/usr/bin/perl -w

use strict;
use warnings;

my $n;
my $chars;

open(my $in_file, “$ARGV[0]|”) or exit 1;
$n = read($in_file, $chars, 101);
print “$nn”;
close $in_file;
[/perl]