On 11/09/10 21:33, Kim Cascone wrote:
is there a Pd object for generating prime numbers?
A prime number has exactly two factors (1 and itself). I attached an abstraction to generate a list of all factors of a number, which could be used to see if a number is prime (inefficiently).
Claude -- http://claudiusmaximus.goto10.org
#N canvas 0 0 341 412 10; #X obj 24 22 inlet; #X obj 24 61 t b f f b; #X obj 24 42 max 1; #X obj 36 238 list prepend; #X obj 37 260 t a a; #X obj 25 286 list append; #X obj 25 313 outlet; #X obj 36 85 until; #X obj 36 106 f; #X obj 64 106 + 1; #X obj 36 134 t f f; #X obj 59 155 swap; #X obj 59 176 mod; #X obj 59 196 ==; #X obj 36 217 spigot; #X msg 75 84 1; #X connect 0 0 2 0; #X connect 1 0 5 0; #X connect 1 1 7 0; #X connect 1 2 11 1; #X connect 1 3 3 1; #X connect 1 3 15 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 4 0 5 1; #X connect 4 1 3 1; #X connect 5 0 6 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 8 0 10 0; #X connect 9 0 8 1; #X connect 10 0 14 0; #X connect 10 1 11 0; #X connect 11 0 12 0; #X connect 11 1 12 1; #X connect 12 0 13 0; #X connect 13 0 14 1; #X connect 14 0 3 0; #X connect 15 0 8 1;
#N canvas 1 3 449 297 10; #X obj 98 111 factors; #X floatatom 98 33 5 0 0 0 - - -; #X msg 128 53 360; #X obj 112 137 print factors; #X msg 139 76 127; #X obj 98 174 list length; #X obj 98 195 sel 2; #X obj 98 216 print isprime; #X connect 0 0 3 0; #X connect 0 0 5 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 4 0 0 0; #X connect 5 0 6 0; #X connect 6 0 7 0;
_______________________________________________ [email protected] mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
