Cantor set: Difference between revisions

#( seg:=(int(largo/3))), no es cero?, entonces{

no es cero?, entonces #basic{

#( líneas[índice:HEIGHT, (inicio+seg):((inicio+seg*2)-1)] = " ")

#( cantor( inicio, seg, índice+1 ) )

#( cantor( (inicio+(seg*2)), seg, índice+1 ) )

seg_size = 0, linescantor=5"", lj=0

iterar para (j=0, #(j<=lines), ++j)

#(seg_size i= 3^(lines-j-1))0

cadenas 'c="", i=0s,v'

#( c = cat( c, $ v:=(occurs("1", dectobase(i,3)) ? " " : "#";)))\

#(l s =len s $ replicate(cv, 3^(HEIGHT-j-1) )), s="")

para#(cantor cada= caracter(v,cantor $ s c,$ lNL)