Diff for scripts/perl/prime-numbers/prime-numbers.sh between version 1.3 and 1.4
| version 1.3, 2002/02/12 00:34:26 |
version 1.4, 2003/12/25 12:05:57 |
|
|
| #!/bin/sh |
#!/bin/sh |
| |
|
| # prvocisla.sh - vypis prvocisiel |
# prime-numbers.sh - prime numbers printing |
| # |
# |
| # (c) Ondrej Jombik <nepto@pobox.sk> [3/2/2002] |
# (c) 2002-2004 Ondrej Jombik <nepto@platon.sk> [3/2/2002] |
| # |
# |
| # $Id$ |
# $Platon: $ |
| |
|
| |
|
| 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/
|
|
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to