Data update

Task/Cantor-set/Chipmunk-Basic/cantor-set.basic

@@ -0,0 +1,34 @@
+100 cls
+110 ancho = 81
+120 alto = 5
+130 dim intervalo$(alto,ancho)
+140 '
+150 sub cantor()
+160   for i = 0 to alto-1
+170     for j = 0 to ancho-1
+180       intervalo$(i,j) = chr$(254)
+190     next j
+200   next i
+210 end sub
+220 '
+230 sub conjcantor(inicio,longitud,indice)
+240   segmento = longitud/3
+250   if segmento = 0 then exit sub
+260   for i = indice to alto-1
+270     for j = inicio+segmento to inicio+segmento*2-1
+280       intervalo$(i,j) = chr$(32)
+290     next j
+300   next i
+310   conjcantor(inicio,segmento,indice+1)
+320   conjcantor(inicio+segmento*2,segmento,indice+1)
+330 end sub
+340 '
+350 cantor()
+360 conjcantor(0,ancho,1)
+370 for i = 0 to alto-1
+380   for j = 0 to ancho-1
+390     print intervalo$(i,j);
+400   next j
+410   print
+420 next i
+430 end