Rozdiely pre scripts/perl/prime-numbers/prime-numbers.sh medzi verziami 1.2 a 1.3
| verzia 1.2, 2002/02/04 15:04:58 |
verzia 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.sk> http://platon.sk/
|
|