diff options
| author | n <@> | 2021-10-10 12:51:43 +0300 |
|---|---|---|
| committer | n <@> | 2021-10-10 12:51:43 +0300 |
| commit | 6cbf9a51fb2aa6d76b7230a6239ca8faacb03236 (patch) | |
| tree | 426152dd83171ca7e89a916d40a6e1eb00df7835 /w | |
| parent | 135c0c03f31dccb8694addd5ded75b5ef2ae1bb8 (diff) | |
w/x
Diffstat (limited to 'w')
| -rw-r--r--[-rwxr-xr-x] | w/x/fractals.k | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/w/x/fractals.k b/w/x/fractals.k index 3782e867..835c9438 100755..100644 --- a/w/x/fractals.k +++ b/w/x/fractals.k @@ -1,5 +1,4 @@ -#!../k -p:{`0:".#"x;`0:"";} -p@~=\\&16 /sierpinski triangle -p@*/*/:'/2#,~1=!3#3 /cantor dust -p@n{(|(8#2)\30)@2/+3'0,x,0}\n=!1+2*n:16 /rule30 +=\\&8 /sierpinski triangle +*/*/:'/2#,~1=!2#3 /cantor dust +n{(|(8#2)\30)@2/+3'0,x,0}\n=!2*n:8 /rule30 +3{b,'1_'|'b:,/(|+x,0;,a,0;x,'a:~!#x)}/+1 /hilbert curve |