note BrowserUk <blockquote><i></i></blockquote> <p><spoiler><strike>986400</strike> 548 (Fuckup: = instead of == !) <code> #! perl -slw use strict; use Algorithm::Combinatorics qw[ variations ]; my @digits = 1 .. 9; my $c = 0; for my $k ( 1 .. 9 ) { my $i = variations( \@digits, $k ); while( my $aref = $i->next ) { my $n = join '', @$aref; my $dv = 0; for my $d ( @$aref ) { my $r = $n / $d; ++$dv if int( $r ) == $r; ## <<< } ++$c if $dv == @$aref; } } print $c; </code> </spoiler> <div class="pmsig"><div class="pmsig-171588"> <hr /> <font size=1 > <div>With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'</div> <div>Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.</div> <div>"Science is about questioning the status quo. Questioning authority". </div> <div>In the absence of evidence, opinion is indistinguishable from prejudice. <p align=right> [http://thebottomline.cpaaustralia.com.au/|RIP Neil Armstrong]</p></div> </font> </div></div> 1010066 1010066