Add tasks for all the new languages

Task/Sierpinski-triangle/Elm/sierpinski-triangle.elm

@@ -0,0 +1,52 @@
+import String exposing (..)
+import Html exposing (..)
+import Html.Attributes as A exposing (..)
+import Html.Events exposing (..)
+import Html.App exposing (beginnerProgram)
+import Result exposing (..)
+
+sierpinski : Int -> List String
+sierpinski n =
+  let down n = sierpinski (n - 1)
+      space n = repeat (2 ^ (n - 1)) " "
+  in case n of
+       0 -> ["*"]
+       _ ->    List.map ((\st -> space n ++ st) << (\st -> st ++ space n)) (down n)
+            ++ List.map (join " " << List.repeat 2) (down n)
+
+main = beginnerProgram { model = "4", view = view, update = update }
+
+update newStr oldStr = newStr
+
+view : String -> Html String
+view levelString =
+  div []
+    ([ Html.form
+          []
+          [ label [ myStyle ] [ text "Level: "]
+          , input
+            [ placeholder "triangle level."
+            , value levelString
+            , on "input" targetValue
+            , type' "number"
+            , A.min "0"
+            , myStyle
+            ]
+            []
+          ]
+     ] ++
+     [ pre [] (levelString
+               |> toInt
+               |> withDefault 0
+               |> sierpinski
+               |> List.map (\s -> div [] [text s]))
+     ])
+
+myStyle : Attribute msg
+myStyle =
+  style
+    [ ("height", "20px")
+    , ("padding", "5px 0 0 5px")
+    , ("font-size", "1em")
+    , ("text-align", "left")
+    ]

Task/Sierpinski-triangle/Nim/sierpinski-triangle.nim

@@ -0,0 +1,11 @@
+const size = 1 shl 4 - 1
+
+for y in countdown(size, 0):
+  for i in 0 .. <y:
+    stdout.write " "
+  for x in 0 .. size-y:
+    if (x and y) != 0:
+      stdout.write "  "
+    else:
+      stdout.write "* "
+  stdout.write "\n"

Task/Sierpinski-triangle/Oforth/sierpinski-triangle.oforth

@@ -0,0 +1,16 @@
+: nextGen(l, r)
+| i |
+   StringBuffer new
+   l size loop: i [
+      l at(i 1 -) '*' == 4 *
+      l at(i)     '*' == 2 * +
+      l at(i 1 +) '*' == +
+      2 swap pow r bitAnd ifTrue: [ '*' ] else: [ ' ' ] over addChar
+      ] ;
+
+: automat(rule, n)
+   StringBuffer new " " <<n(n) "*" over + +
+   #[ dup println rule nextGen ] times(n) drop ;
+
+: sierpinskiTriangle(n)
+   90 4 n * automat ;

Task/Sierpinski-triangle/Phix/sierpinski-triangle.phix

@@ -0,0 +1,14 @@
+procedure sierpinski(integer n)
+integer lim = power(2,n)-1
+    for y=lim to 0 by -1 do
+        puts(1,repeat(' ',y))
+        for x=0 to lim-y do
+            puts(1,iff(and_bits(x,y)?"  ":"* "))
+        end for
+        puts(1,"\n")
+    end for
+end procedure
+
+for i=1 to 5 do
+    sierpinski(i)
+end for

Task/Sierpinski-triangle/Sidef/sierpinski-triangle.sidef

@@ -0,0 +1,11 @@
+func sierpinski_triangle(n) {
+    var triangle = ['*'];
+    { |i|
+        var sp = (' ' * Math.pow(2, i-1));
+        triangle = (triangle.map {|x| sp + x + sp} +
+                    triangle.map {|x| x + ' ' + x});
+    } * n;
+    triangle.join("\n");
+}
+
+say sierpinski_triangle(4);

Task/Sierpinski-triangle/Swift/sierpinski-triangle.swift

@@ -0,0 +1,44 @@
+import Foundation
+
+// Easy get/set of charAt
+extension String {
+    subscript(index:Int) -> String {
+        get {
+            var array = Array(self)
+            var charAtIndex = array[index]
+            return String(charAtIndex)
+        }
+
+        set(newValue) {
+            var asChar = Character(newValue)
+            var array = Array(self)
+            array[index] = asChar
+            self = String(array)
+        }
+    }
+}
+
+func triangle(var n:Int) {
+    n = 1 << n
+    var line = ""
+    var t = ""
+    var u = ""
+
+    for (var i = 0; i <= 2 * n; i++) {
+        line += " "
+    }
+
+    line[n] = "*"
+
+    for (var i = 0; i < n; i++) {
+        println(line)
+        u = "*"
+        for (var j = n - i; j < n + i + 1; j++) {
+            t = line[j-1] == line[j + 1] ? " " : "*"
+            line[j - 1] = u
+            u = t
+        }
+        line[n + i] = t
+        line[n + i + 1] = "*"
+    }
+}