5outh

puts "hello"

5outh

bubbleSort :: (Ord a) => [a] -> [a]
bubbleSort [] = []
bubbleSort [x] = [x]
bubbleSort (x:y:xs) = if sorted thisSort then thisSort else bubbleSort thisSort
    where thisSort = (min x y) : bubbleSort ((max x y):xs)

sorted :: (Ord a) => [a] -> Bool
sorted [] = True
sorted [x] = True
sorted (x:y:xs) = if x <= y then sorted (y:xs) else False

5outh

puts "Hello world"

5outh

bubbleSort :: (Ord a) => [a] -> [a]
bubbleSort [] = []
bubbleSort [x] = [x]
bubbleSort (x:y:xs) = if sorted thisSort then thisSort else bubbleSort thisSort
    where thisSort = (min x y) : bubbleSort ((max x y):xs)

sorted :: (Ord a) => [a] -> Bool
sorted [] = True
sorted [x] = True
sorted (x:y:xs) = if x <= y then sorted (y:xs) else False

5outh

import Data.List

insertionSort :: (Ord a) => [a] -> [a]
insertionSort = foldr insert [] 

5outh

quickSort :: (Ord a) => [a] -> [a]
quickSort [] = []
quickSort (x:xs) = quickSort smaller ++ [x] ++ quickSort larger
    where smaller = filter (<=x) xs
          larger = filter (>x) xs

5outh

data Count = Multiple Int Char 
	     | Single Char 
	     deriving (Eq, Show)
			
encodeDirect :: [Char] -> [Count]
encodeDirect = map toCount . foldr encode []
	where 
		toCount (x, y) = case x of
				   1 -> Single y
				   _ -> Multiple x y

5outh

var target : Transform;

var distance = 10.0;
var xSpeed = 250.0;
var ySpeed = 120.0;
var zoomSpeed = 10;

var yMinLimit = -20;
var yMaxLimit = 80;
var zoomMinLimit = 10;

5outh

if(Input.GetKey("w")){
        xDisplacement = Mathf.Sin(Mathf.Deg2Rad * transform.eulerAngles.y);
        zDisplacement = Mathf.Cos(Mathf.Deg2Rad * transform.eulerAngles.y);

        displacement = Vector3(xDisplacement, 0, zDisplacement) * forwardSpeed * Time.deltaTime;
 
        transform.position += displacement;
}

5outh

#pragma strict

var forwardSpeed = 10;
var backwardSpeed = 8;
var sideSpeed = 10;

var xDisplacement:float;
var zDisplacement:float;
var displacement:Vector3;