Reoder examples
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 15 Sep 2010 13:50:54 +0000 (13:50 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 15 Sep 2010 13:50:54 +0000 (13:50 +0000)
b18n-combined-cgi.hs

index 1422d19..1b99b2d 100644 (file)
@@ -192,6 +192,11 @@ examples =
                , "initWork a []    = []"
                , "initWork a (b:x) = a:initWork b x"
                ])
+       , ("sieve", unlines
+               [ "sieve []      = []"
+               , "sieve [a]     = []"
+               , "sieve (a:b:x) = b:sieve x"
+               ])
        , ("initHalf", unlines
                [ "initHalf []    = []"
                , "initHalf (a:x) = a:initHalfWork x x"
@@ -201,11 +206,6 @@ examples =
                , "initHalfWork (a:x) (b:c:y)"
                , "                    = a:initHalfWork x y"
                ])
-       , ("sieve", unlines
-               [ "sieve []      = []"
-               , "sieve [a]     = []"
-               , "sieve (a:b:x) = b:sieve x"
-               ])
        , ("rev", unlines
                [ "reverse xs = rev xs []"
                , "rev []    y = y"