This Perl Script find the lowest, divisible number from 1 to 10:
|
1 2 3 4 5 6 7 8 9 10 11 |
use strict; my ($number,$check) = (0,0); while(1){ ++$number; $check=0; for(1..20){ unless($number%$_==0){++$check;last;} } last unless($check); } print "$number\n"; |
The result is 2520.
Superb blog you have here but I was curious if you knew of any discussion boards that cover the
same topics discussed in this article? I’d really like to be a part of community where I can get advice from other experienced individuals
that share the same interest. If you have any recommendations, please
let me know. Cheers!
Helpful information. Lucky me I found your site unintentionally, and I’m surprised why this twist of
fate did not happened earlier! I bookmarked it.
Howdy are using WordPress for your blog platform? I’m new to the blog world but
I’m trying to get started and create my own. Do you require any
coding expertise to make your own blog? Any help would be really appreciated!
Saved as being a favorite, I really like your blog!