Sierpinski triangle: Difference between revisions
Content added Content deleted
BrianFennell (talk | contribs) |
|||
Line 2,583: | Line 2,583: | ||
=={{header|FALSE}}== |
=={{header|FALSE}}== |
||
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"> |
<syntaxhighlight lang="false">{ print spaces; in:n } |
||
⚫ | |||
[ |
|||
⚫ | |||
[$0>] |
|||
[1\[$][1-\2*\]#%]e: { 2^n } |
|||
[" " 1-]#% |
|||
[e;!1\[$][\$s;!$2*x;!\1-]#%%]t: |
|||
]w: |
|||
⚫ | |||
{ left shift; in:x,y out:x<<y } |
|||
[ |
|||
[$0>] |
|||
[\2*\ 1-]#% |
|||
]l: |
|||
1 4 l;! { SIZE = 1<<4 } |
|||
$ { y = SIZE } |
|||
⚫ | |||
[ |
|||
1- { y-- } |
|||
$w;! { w(y) } |
|||
1ø { x = SIZE } |
|||
[$0>] { x > 0 } |
|||
[ |
|||
1- { x-- } |
|||
1ø$2ø\-&0= { !((x - y) & y) } |
|||
$ ["* "]? |
|||
~ [" "]? |
|||
]# |
|||
% { x } |
|||
10, { newline } |
|||
]# |
|||
⚫ | |||
⚫ | |||
=={{header|FOCAL}}== |
=={{header|FOCAL}}== |