Cantor set: Difference between revisions

Content deleted Content added

Inline

@@ Line 920: / Line 920: @@
 --------------------------- CANTOR -------------------------
 cantor :: (Rational, Rational) -> [[(Rational, Rational)]]
 cantor = iterate (>>= go) . return
@@ Line 928: / Line 929: @@
 ---------------------------- TEST --------------------------
 main :: IO ()
 main = do
@@ Line 935: / Line 937: @@
 -------------------------- DISPLAY -------------------------
 intervalBars :: [[(Rational, Rational)]] -> String
 intervalBars xs = unlines $ go (d % 1) <$> xs
@@ Line 943: / Line 946: @@
       mapAccumL
         (\a (rx, ry) ->
-            let (wx, wy) = (w * rx, w * ry)
+            let (wy, wx) = (w * ry, w * rx)
-            in ( wy -- Accumulator – end of previous interval.
+            in ( wy
-               , replicate (floor (wx - a)) ' ' -- Preceding gap, and
+               , replicate (floor (wx - a)) ' ' ++
-                  ++
+                 replicate (floor (wy - wx)) '█'))
-                 replicate (floor (wy - wx)) '█' -- interval bar.
-                ))
         xs