Sierpinski triangle: Difference between revisions

Line 2,586:
Requires the pick character to be substituted with 'O' in the portable interpreter linked-to from https://strlen.com/false-language/.
<syntaxhighlight lang="false">{ print spaces; in:n }
[[$0>][" " 1-]#%]w:
[
[$0>]
[" " 1-]#%
]w:
 
{ left shift; in:x,y out:x<<y }
[[$0>][\2*\ 1-]#%]l:
[
[$0>]
[\2*\ 1-]#%
]l:
 
1 4 l;! { SIZE = 1<<4 }
 
$ { y = SIZE }
[$0>] { y > 0 }
[
1-
1- { y-- }
$w;! { w(y) }
1ø { x = SIZE }
[$0>] { x > 0 }
[
1-
1- { x-- }
1ø$2ø\-&0= { !((x - y) & y) }
$ ["* "]?
~ [" "]?
]#%
]#%% { SIZE }</syntaxhighlight>
% { x }
10, { newline }
]#
% { y }
% { SIZE }</syntaxhighlight>
 
=={{header|FOCAL}}==
5

edits