TheSeamau5

compute : Int -> (a -> a) -> a -> a
compute iterations function argument = 
    if (iterations <= 0) then argument
    else compute (iterations - 1) function (function argument)

TheSeamau5

#include <string>

using namespace std;

template <typename First, typename Second>
struct Tuple{
    First first;
    Second second;
};

TheSeamau5

#include <string>
#include <functional>

using namespace std;

template <typename T>
struct Maybe{
  T just;
  bool isNothing;
};

TheSeamau5

-- STACKS

type Stack a = Bottom | Element a (Stack a)

push : a -> Stack a -> Stack a
push element stack = 
  Element element stack
  
  
pop : Stack a -> (Maybe a, Stack a)

TheSeamau5

sphereMesh : Int -> Vec3 -> Float -> Mesh
sphereMesh tesselation center radius =
  let normalize = (flip (/)) (toFloat tesselation)
      shift     = (+) -0.5
      scale     = (*) (2 * radius)
      transform = normalize >> shift >> scale
      latitudes  = map transform (map toFloat [0..tesselation])
      longitudes = latitudes
      plotPoint longitude latitude =
        let cosLatitude  = cos (pi * latitude / (toFloat tesselation))

TheSeamau5

mapAll : (a -> a -> a) -> List a -> List (List a)
mapAll f list = 
  let innerMapAll f tempList = 
    case tempList of 
      [] -> []
      x :: xs -> map (f x) list :: innerMapAll f xs 
  in innerMapAll f list 

TheSeamau5

import Graphics.Collage (move, filled, circle, Form, collage)
import Graphics.Element (Element)
import List (map, map2, (::), head, tail)
import Color (rgb)

--- GLOBALS YOU CAN MESS WITH

pointSize  = 3             -- THE SIZE OF THE POINTS
pointColor = rgb 255 100 0 -- THE COLOR OF THE POINTS
iterations = 5             -- NUMBER OF ITERATIONS OF CATMULL-CLARK SUBDIVISION

TheSeamau5

interleave : List a -> List a -> List a
interleave list1 list2 = 
  case list1 of
    []      -> list2
    x :: xs -> 
      case list2 of
        []      -> list1
        y :: ys -> y :: x :: interleave xs ys

TheSeamau5

quickCheck : Generator a -> Int -> (a -> Bool) -> String
quickCheck randomGenerator numberOfCases testingCondition =
  let listGenerator = list numberOfCases <| randomGenerator
      testInputs = fst <| generate listGenerator (initialSeed 1)
      getOutput input = (input, testingCondition input)
      testOutputs = map getOutput testInputs
      failingOutputs = filter (\x -> (snd x) == False) testOutputs
      successString = "Ok, passed " ++ (toString numberOfCases) ++ " tests."
      failingString fail = "The following input has failed the test: " ++ (toString fail)
  in

TheSeamau5

import Graphics.WebGL (..)
import Math.Vector3 (..)
import Math.Matrix4 (..)

type Attribute = {position : Vec3}
type Uniform = { rotationMatrix : Mat4}
type Varying = {}

mapMesh : (a -> b) -> [Triangle a] -> [Triangle b]
mapMesh = map << mapTriangle