output.png

Sierpinski.elm

module Sierpinski where

import Diagrams.Core exposing (..)
import Diagrams.Align exposing (..)
import Diagrams.FillStroke exposing (..)
import Diagrams.FullWindow exposing (..)
import Color

sierpinski n sl = case n of
                    0 -> eqTriangle sl (justSolidFill Color.blue)
                    _ -> let smaller = sierpinski (n-1) sl
                         in smaller
                              `above`
                              (smaller `beside` smaller |> alignCenter)
                              |> alignCenter

main = sierpinski 5 10
        |> alignCenter
        |> fullWindowMain

Made with elm-diagrams; compare haskell diagrams