Diff for scripts/perl/prime-numbers/prime-numbers.sh between version 1.2 and 1.3
| version 1.2, 2002/02/04 15:04:58 |
version 1.3, 2002/02/12 00:34:26 |
|
|
| #!/bin/sh |
#!/bin/sh |
| |
|
| # $Id$ |
|
| |
|
| # prvocisla.sh - vypis prvocisiel |
# prvocisla.sh - vypis prvocisiel |
| # |
# |
| # (c) Ondrej Jombik <nepto@pobox.sk> [3/2/2002] |
# (c) Ondrej Jombik <nepto@pobox.sk> [3/2/2002] |
| |
# |
| |
# $Id$ |
| |
|
| |
|
| perl -le '$_ = 1; (1 x $_) !~ /^(11+)\1+$/ && print while $_++'; |
perl -le '$_ = 1; (1 x $_) !~ /^(11+)\1+$/ && print while $_++'; |
| |
|
Platon Group <platon@platon.org> http://platon.org/
|
|