Sierpinski carpet: Difference between revisions
Content added Content deleted
m (J: remove failing golfed code, and clean up presentation slightly) |
(Add Brainf*** implementation.) |
||
| Line 1,050: | Line 1,050: | ||
[https://mlochbaum.github.io/BQN/try.html#code=X2RlY29kZSDihpAge+KMvfCdlZd84oyK4oiYw7fin5zwnZWX4o2fKOKGlTErwrfijIrwnZWX4ouG4oG8MeKMiOKKoil9CkNhcnBldCDihpAgeyAgIyAyRCBBcnJheSBtZXRob2QgdXNpbmcg4oi+LgogIHviiL4oM+KAvzPipYo04omg4oaVOSniio/in6go4omi8J2VqSnipYowLPCdlanin6l94o2fKPCdlaktMSkgMeKAvzHipYoxCn0KQ2FycGV0MSDihpAgeyAjIGJhc2UgY29udmVyc2lvbiBtZXRob2QsIHdvcmtzIGluIGEgc2luZ2xlIHN0ZXAuCiAgwqx74oiowrTwnZWo4oin4peLKCgt8J2VqOKMiOKXi+KJoPCdlakp4oq44oaRKfCdlal94oycy5wyfDMgX2RlY29kZcKo4oaVM+KLhvCdlaktMQp9CgrigKJTaG93ICIgIyLiio/LnENhcnBldCA0CuKAolNob3cgKENhcnBldCDiiaEgQ2FycGV0MSkgNAoK Try It!] |
[https://mlochbaum.github.io/BQN/try.html#code=X2RlY29kZSDihpAge+KMvfCdlZd84oyK4oiYw7fin5zwnZWX4o2fKOKGlTErwrfijIrwnZWX4ouG4oG8MeKMiOKKoil9CkNhcnBldCDihpAgeyAgIyAyRCBBcnJheSBtZXRob2QgdXNpbmcg4oi+LgogIHviiL4oM+KAvzPipYo04omg4oaVOSniio/in6go4omi8J2VqSnipYowLPCdlanin6l94o2fKPCdlaktMSkgMeKAvzHipYoxCn0KQ2FycGV0MSDihpAgeyAjIGJhc2UgY29udmVyc2lvbiBtZXRob2QsIHdvcmtzIGluIGEgc2luZ2xlIHN0ZXAuCiAgwqx74oiowrTwnZWo4oin4peLKCgt8J2VqOKMiOKXi+KJoPCdlakp4oq44oaRKfCdlal94oycy5wyfDMgX2RlY29kZcKo4oaVM+KLhvCdlaktMQp9CgrigKJTaG93ICIgIyLiio/LnENhcnBldCA0CuKAolNob3cgKENhcnBldCDiiaEgQ2FycGV0MSkgNAoK Try It!] |
||
=={{header|Brainf***}}== |
|||
Double the first two prints for squarer output. |
|||
<lang brainf***>input order and print the associated Sierpinski carpet |
|||
orders over 5 require larger cell sizes |
|||
+++>>+[[-]>[-],[+[-----------[>[-]++++++[<------>-]<--<<[->>++++++++++<<]>>[-<<+ |
|||
>>]<+>]]]<]<<[>>+<<-]+>[>>[-]>[-]<<<<[>>>>+<<<<-]>>>>[<<[<<+>>>+<-]>[<+>-]>-]<<< |
|||
-]>[-]<<[>+>+<<-]>>[<<+>>-]<[<[>>+>+<<<-]>>>[<<<+>>>-]<[<[>>+>>>+<<<<<-]>>[<<+>> |
|||
-]<[>>+>>>+<<<<<-]>>[<<+>>-]>>->-<<<<+[[>+>+<<-]>[<+>-]>[>[>>+>+<<<-]>>>[<<<+>>> |
|||
-]+++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>>[-]<->+<[>-]>[<<<+>>>->]<<[-]<<<[>>+>+ |
|||
<<<-]>>>[<<<+>>>-]+++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>>[-]<->+<[>-]>[<<<+>>>- |
|||
>]<<[-]<<<[>[>+<-]<-]>[-]>[<<+>>-]<<[>>++++[<++++++++>-]<.[-]<<[-]<[-]<<<->>>>>- |
|||
]<<<-]<<[>+>+<<-]>[<+>-]>[>[>>+<<-]>>>+++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>[-] |
|||
>[<<<<<+>>>>>-]<<<+++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>[-]>[<<<+>>>-]<<<<[>>+> |
|||
+<<<-]>>>[<<<+>>>-]<<[>>+>+<<<-]>>>[<<<+>>>-]<<[>[>+<-]<-]>[-]+>[[-]<->]<[->+<]> |
|||
[<<+>>-]<<[>>+++++[<+++++++>-]<.[-]<<[-]<[-]<<<->>>>>-]<<<-]<<]<-]++++++++++.[-] |
|||
<-]</lang> |
|||
{{out}} |
|||
<pre>########################### |
|||
# ## ## ## ## ## ## ## ## # |
|||
########################### |
|||
### ###### ###### ### |
|||
# # # ## # # ## # # # |
|||
### ###### ###### ### |
|||
########################### |
|||
# ## ## ## ## ## ## ## ## # |
|||
########################### |
|||
######### ######### |
|||
# ## ## # # ## ## # |
|||
######### ######### |
|||
### ### ### ### |
|||
# # # # # # # # |
|||
### ### ### ### |
|||
######### ######### |
|||
# ## ## # # ## ## # |
|||
######### ######### |
|||
########################### |
|||
# ## ## ## ## ## ## ## ## # |
|||
########################### |
|||
### ###### ###### ### |
|||
# # # ## # # ## # # # |
|||
### ###### ###### ### |
|||
########################### |
|||
# ## ## ## ## ## ## ## ## # |
|||
###########################</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |
||
If you write coordinates of any point on the carpet in base 3, the pixel if blank if and only if any matching pair of digits are (1, 1). |
If you write coordinates of any point on the carpet in base 3, the pixel if blank if and only if any matching pair of digits are (1, 1). |
||