Primzahlen mit Perl ...J, ssl, maxima, awk und bash

[linuxCowboy]

Ausgangspunkt:

Code: Alles auswählen

perl -lne '(1x$_) !∼ /^1?$|^(11+?)\1+$/ && print "$_ is prime"'

implemented:

Code: Alles auswählen

seq 100|perl -lne '$\="";(1x$_) !~ /^1?$|^(11+?)\1+$/ && print "$_ ";END {print "\n"}'
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 

golfed:

Code: Alles auswählen

seq 99|perl -l40nE'(1x$_)!~/^1?$|^(11+)\1+$/&&print}{say' # 57
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 

Eine Perl-Pearl!

[GoKi]

Mal J probieren? http://www.jsoftware.com/source.htm

Code: Alles auswählen

$ echo "i.&.(p:^:_1) 99" | ./jconsole
   2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

[wanne]

Drittprogramme sind unfair: (dash/openssl)

Code: Alles auswählen

seq 99 | sed 's/^/openssl prime /g' | sh | grep -v n

gegen (garantiert noch optimierbare)

Code: Alles auswählen

n=2; while [ $n -le 500 ]; do z=2; f="p"; while [ $z -le $(($n-1)) ]; do [ $(($n%$z)) -eq 0 ] && f="n"; z=$(($z+1)); done; [ "$f" = "p" ] && echo $n; n=$(($n+1)); done

(Im übrigen Beeindruckend wie viel schneller das läuft als wenn man das so schreibt. (Orginalversion war mit if then fi))
Nochbäser währe Java oder maxima enfach nextprime sagt:

Code: Alles auswählen

echo "i:1;while i<99 do print(i:next_prime(i));" | maxima

[linuxCowboy]

Zugegeben, das hat was:

Code: Alles auswählen

echo "i.&.(p:^:_1)99"|jconsole # 30

Die Installationsroutine allein war den Blick schon wert!
(andere würden einfach einen tarball anbieten.

[GoKi]

Dann halt noch mal mit Boardmitteln:

Code: Alles auswählen

seq 99|awk '$1>1{for(d=1;$1%++d;);if(d==$1)print}'

[linuxCowboy]

maxima - Wow, wo hast du die denn ausgegraben... die lib hat 36MB!

Code: Alles auswählen

echo "i:1;while i<97 do print(i:next_prime(i))$"|maxima -q|sed /%/d|tr -d '\n';echo # 83
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 

openssl ist kreativ:

Code: Alles auswählen

for i in `seq 99`;do openssl prime $i|grep -q n||echo -n "$i ";done;echo # 72
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

eine schöne Fingerübung in bash:

Code: Alles auswählen

n=2;while((n<99));do z=2;f=1;while((z<n));do((n%z))||f=0;((++z));done;((f))&&echo -n "$n ";((++n));done;echo # 108
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

Keep coding!

[wanne]

maxima - Wow, wo hast du die denn ausgegraben... die lib hat 36MB!

Meiner meinung nach das bei weitem beste OpenSource CAS Außerdem muss man die schon deshalb loben weil sie das in lisp geschrieben haben.

[linuxCowboy]

an Originalität dem Perler durchaus vergleichbar:

Code: Alles auswählen

seq 2 99|awk '{for(d=1;$1%++d;);if(d==$1)printf "%d ",$1}';echo # 63
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 

nur in der B-Note schwächelt er...

...das bei weitem beste OpenSource CAS

Ja ist schon erstaunlich, was sich so in den Weiten des debian-Archivs verbirgt!

PS: ...schon wird's eine B+:

Code: Alles auswählen

seq 2 99|awk '{for(d=1;$1%++d;);if(d==$1)printf d" "}';echo # 59
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

[rendegast]

Nebenbei
http://packages.debian.org/wheezy/maxima
unten die Paketgrößen unterscheiden sich doch stark 120MB (amd64/i386)<-> ~40MB (andere),
die filelist sind identisch.