Sierpinski triangle: Difference between revisions

Content added Content deleted
Line 2,583: Line 2,583:


=={{header|FALSE}}==
=={{header|FALSE}}==
{{incorrect|FALSE|Different results with different interpreters (like http://morphett.info/false/false.html and http://www.quirkster.com/iano/js/false-js.html}}
Runs correctly in http://www.quirkster.com/iano/js/false-js.html.
Requires the pick character to be substituted with 'O' in the portable interpreter linked-to from https://strlen.com/false-language/.
<syntaxhighlight lang="false">[[$][$1&["*"]?$~1&[" "]?2/]#%"
<syntaxhighlight lang="false">{ print spaces; in:n }
"]s: { stars }
[
[$@$@|@@&~&]x: { xor }
[$0>]
[1\[$][1-\2*\]#%]e: { 2^n }
[" " 1-]#%
[e;!1\[$][\$s;!$2*x;!\1-]#%%]t:
]w:
4t;!</syntaxhighlight>

{ left shift; in:x,y out:x<<y }
[
[$0>]
[\2*\ 1-]#%
]l:

1 4 l;! { SIZE = 1<<4 }
$ { y = SIZE }
[$0>] { y > 0 }
[
1- { y-- }
$w;! { w(y) }
1ø { x = SIZE }
[$0>] { x > 0 }
[
1- { x-- }
1ø$2ø\-&0= { !((x - y) & y) }
$ ["* "]?
~ [" "]?
]#
% { x }
10, { newline }
]#
% { y }
% { SIZE }</syntaxhighlight>


=={{header|FOCAL}}==
=={{header|FOCAL}}==