Sierpinski curve: Difference between revisions

m
(Added Perl example)
Line 476:
buf1,buf2 := Data(Void,axiom).howza(3), Data().howza(3); // characters
do(order){
buf1.pump(buf2.clear(),'wrap(c){ if(a:=rules.find(c,c) }); a else c// });change if rule
t:=buf1; buf1=buf2; buf2=t; // swap buffers
}
Anonymous user