369 by double_bogey

#!/usr/bin/perl\x0d
for($i=1;$i<=1000;$i++){\x0d
        @j = split(//,$i);\x0d
        $clap_is_true = 0;\x0d
        if (($j[0] == "3" ) || ($j[0] == "6") || ($j[0] == "9")){\x0d
                $clap_is_true = $clap_is_true + 1;\x0d
        }\x0d
\x0d
        if (($j[1] == "3" ) || ($j[1] == "6") || ($j[1] == "9")){\x0d
                $clap_is_true = $clap_is_true + 1;\x0d
        }\x0d
\x0d
        if (($j[2] == "3" ) || ($j[2] == "6") || ($j[2] == "9")){\x0d
                $clap_is_true = $clap_is_true + 1;\x0d
        }\x0d
\x0d
        if(($clap_is_true) >0) {\x0d
\x09\x09\x09for($k=0;$k<$clap_is_true;$k++) {\x0d
\x09\x09\x09\x09print "Clap";\x0d
            }\x0d
        }\x0d
        else {\x0d
\x09\x09\x09print $i;\x0d
        }\x0d
        print "\n";\x0d
}\x0d
exit 0;\x0d

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page