From 6cbf9a51fb2aa6d76b7230a6239ca8faacb03236 Mon Sep 17 00:00:00 2001
From: n <@>
Date: Sun, 10 Oct 2021 12:51:43 +0300
Subject: w/x

---
 w/x/fractals.k | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)
 mode change 100755 => 100644 w/x/fractals.k

(limited to 'w')

diff --git a/w/x/fractals.k b/w/x/fractals.k
old mode 100755
new mode 100644
index 3782e867..835c9438
--- 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
-- 
cgit v1.2.3-70-g09d2