35 lines
773 B
Plaintext
35 lines
773 B
Plaintext
SUB Cantor
|
|
FOR i = 0 TO alto - 1
|
|
FOR j = 0 TO ancho - 1
|
|
intervalo$(i, j) = CHR$(254) '"#"
|
|
NEXT j
|
|
NEXT i
|
|
END SUB
|
|
|
|
SUB ConjCantor (inicio, longitud, indice)
|
|
segmento = INT(longitud / 3)
|
|
IF segmento = 0 THEN EXIT SUB
|
|
FOR i = indice TO alto - 1
|
|
FOR j = inicio + segmento TO inicio + segmento * 2 - 1
|
|
intervalo$(i, j) = CHR$(32) '" "
|
|
NEXT j
|
|
NEXT i
|
|
CALL ConjCantor(inicio, segmento, indice + 1)
|
|
CALL ConjCantor(inicio + segmento * 2, segmento, indice + 1)
|
|
END SUB
|
|
|
|
CONST ancho = 81
|
|
CONST alto = 5
|
|
DIM SHARED intervalo$(alto, ancho)
|
|
|
|
CLS
|
|
CALL Cantor
|
|
CALL ConjCantor(0, ancho, 1)
|
|
FOR i = 0 TO alto - 1
|
|
FOR j = 0 TO ancho - 1
|
|
PRINT intervalo$(i, j);
|
|
NEXT j
|
|
PRINT
|
|
NEXT i
|
|
END
|