New character?
Posted: Wed Dec 12, 2007 3:45 pm
Yay, hooray, the black kitten is back. Good job ![Very Happy :grin:](./images/smilies/icon_biggrin.gif)
![Very Happy :grin:](./images/smilies/icon_biggrin.gif)
Fan forum for Azumanga Daioh and Marty (and O&M to a limited extent)
https://definecynical.net/forum/
Relax, 71% of paupal's posts are new topics.Hit New Post instead of Reply? :X
Most probaly.Ya true. Hey, is he the same one from before when Millie was trying to make Ozy have bad luck?
Yep.Most probaly.Ya true. Hey, is he the same one from before when Millie was trying to make Ozy have bad luck?
Don't worry if you make a mistake like that you don't have to t ype stuff in the box you can just close the windown.Hit New Post instead of Reply? :X
3, 2, 3, 1, 1.Also, the little puzzle in Extreme-Speed's signature:
To make this sentence true, the number of times we see 1 is _____, 2 is _____, 3 is _____, 4 is _____, and 5 is _____.
It can be answered with "one, one, one, one, and one," because if you spell it out, you only see "1" one time, "2" one time, "3" one time, "4" one time, and "5" one time. If you try to use the actual digits, it gets tricky.
Code: Select all
my $n = 6;
for my $one (1..$n) {
for my $two (1..$n) {
for my $three (1..$n) {
for my $four (1..$n) {
for my $five (1..$n) {
my @t = (0, 1, 1, 1, 1, 1);
$t[$_] += 1 for (0, $one, $two, $three, $four, $five);
if (($t[1] == $one)
&& ($t[2] == $two)
&& ($t[3] == $three)
&& ($t[4] == $four)
&& ($t[5] == $five)) {
print "$one, $two, $three, $four, $five\n";
exit(0);
} # if
} # for
} # for
} # for
} # for
} # for
print "Unsolvable for n(1,$n)\n";
exit(1);