Cantor set: Difference between revisions
Added XPL0 example.
m (/ Haskell :: Interval bars */ Tidied) |
(Added XPL0 example.) |
||
Line 3,838:
*** *** *** *** *** *** *** ***
* * * * * * * * * * * * * * * *
</pre>
=={{header|XPL0}}==
<lang XPL0>char LineSeg;
proc Cantor(N, Base, Len); \Delete middle third of LineSeg
int N, Base, Len, Third, I;
[if N>0 and Len>1 then
[Third:= Len/3;
for I:= Base+Third, Base+2*Third-1 do
LineSeg(I):= ^ ;
Cantor(N-1, Base, Third);
Cantor(N-1, Base+2*Third, Third);
];
];
int N;
[LineSeg:=
"#################################################################################
";
for N:= 0 to 4 do
[Cantor(N, 0, 81);
Text(0, LineSeg);
];
]</lang>
{{out}}
<pre>
#################################################################################
########################### ###########################
######### ######### ######### #########
### ### ### ### ### ### ### ###
# # # # # # # # # # # # # # # #
</pre>
| |||